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]
      
[
         
z2k2+(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]
      
[   
         
z2k2+(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==[pu][pd]
      
_setPos Se (x3+ff+rfx4
      
]
      
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