Fedora fast wireframe

Ahora la versión (y última por ahora) que usamos la simetria del eje Y:

como wireframe:

TIME$  = 002217

y version normal con arreglo para evitar TRAP: 002400

100 REM ARCHIMEDES SPIRAL V6
110 REM
120 REM ANALOG MAGAZINE
130 REM  320 X 192
140 GRAPHICS 8+16:SETCOLOR 2,0,0
150 XP=144:XR=4.71238905:XF=XR/XP

151 REM VERSION RAPIDA COMPLETA (IN LINEA 240)
155 COLOR 1
159 REM LA MITAD?  -64
160 FOR ZI=0 TO 64
   
    170 ZT=ZI*2.25:ZS=ZT*ZT
    180 XL=INT(SQR(20736-ZS)+0.5)
   
    181 ZX=ZI+160:ZY=90+ZI
    182 ZX2=-ZI+160:ZY2=90-ZI
   
    185 REM LA MITAD?  0-XL
    190 FOR XI=0 TO XL
   
        200 XT=SQR(XI*XI+ZS)*XF
        210 YY=(SIN(XT)+SIN(XT*3)*0.4)*56
       
        219 REM TODO: SACAR 90-
        220 X1 = XI+ZX:Y1 =ZY-YY
        221 X12= XI+ZX2:Y12=ZY2-YY
        222 X13=-XI+ZX:Y13=ZY-YY
        223 X14=-XI+ZX2:Y14=ZY2-YY
       
        230 trap 250: PLOT X1,Y1:PLOT X12,Y12:PLOT X13,Y13:PLOT X14,Y14
       
    250 NEXT XI: NEXT ZI

260 GOTO 260