Plots 3D image of a fedora.
Gallery
Source Code
5 SAVE "HI RES HAT" 10 REM HI RES HAT 20 PLOT 0,0: DRAW 0,175: DRAW 255,0: DRAW 0,-175: DRAW -255,0: 30 REM Lines 40 to 130 calcu X and Y for Plotting 35 LET xs=.78: LET ys=.85 40 LET p=128: LET q=95: LET xp=144: LET xr=1.5*PI: LET yp=56: LET yr=1 50 LET zp=64: LET xf=xr/xp: LET yf=yp/yr: LET zf=xr/zp: LET xq=xp/zp 60 FOR k=-zp TO zp 70 LET zt=k*xq 80 LET xl=INT (.5+SQR (xp*xp-zt*zt)) 90 FOR t=-xl TO xl 100 LET xt=SQR (t*t+zt*zt)*xf 110 LET yy=(SIN (xt)+.4*SIN (3*xt))*yf 120 LET x=(xs*(t+k))+p 130 LET y=(ys*(yy-k))+q 140 PLOT x,y 150 NEXT t 160 NEXT k 170 STOP