HiResHat

    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