aUCBLogo Demos and Tests / smith

to smith
clearScreen
fullScreen
ff=400
rf=60
ii=-1
smith2
smith1
end

to smith1
   pr "Smith1
   hT
   for [k2 -1 1 .05]
   [   ccc
      for [k1 -90 90 .1]
      [
         z2= k2+(2+k1*3i)
         w=(z2-1)/(z2+1)
         _setPos Se ff*real w ff*imag w
      ]
      PU
   ]
   for [k2 1 5.2 .2]
   [   ccc
      for [k1 -90 90 .1]
      [
         z2= k2+(2+k1*3i)
         w=(z2-1)/(z2+1)
         _setPos Se ff*real w ff*imag w
      ]
      PU
   ]
   home sT
end

to smith2
   home
   pr "Smith2
   phi0=Pi/2
   hT
   c3i=3i
   for [k2 -.99 .99 .005]
   [   ccc
       for [k1 0 5 .05]
       [
         z= (1+k2*c3i)+k1
         y=1/z
         w=(y+1)/(y-1)
         x3=rf*real w  x4=rf*imag w
      ifelse k1==0 [pu][pd]
      _setPos Se (x3+ff+rf) x4
      ]
      PU
   ]
;   home sT
end

to ccc
   PD ii+=1
   ifelse 0==mod ii 2
      [setPC RGB 0 0 1]
      [setPC RGB 0 1 0]
end