# =========================================================================== # # From: # # www.contextfreeart.org/gallery2/#design/3422 # # HEIGHT: 600 # WIDTH: 600 # # =========================================================================== #

startshape Math_Eye(6,2)[s 14 r 270] CF::Background=[b -1] CF::Size=[s 16 9]

Fx(u,v)=cos(u+v)*sin(v) Fy(u,v)=sin(u+v)*sin(v)

shape Math_Eye(Su,Sv) {loop u=0, 360, Su []

{loop v=0, 90, Sv []
 {P00=(Fx(u   ,v   ),Fy(u   ,v   ))
  P10=(Fx(u+Su,v   ),Fy(u+Su,v   ))
  P01=(Fx(u   ,v+Sv),Fy(u   ,v+Sv)) 
  P11=(P10[0]+P01[0]-P00[0],P10[1]+P01[1]-P00[1]) 
  transform [trans P00 P10 P11]
   transform [x .5 y .5 s 1 (2/sqrt(3)) skew -30 0]
    CIRCLE [h(u-v) sat(cos(v)^2) b 1 a-(cos(v)^24)]

}}}

# runcfdg math_eye