Navigation¶

• Main Page
  

• Random Page
• Create a new Page
• All Pages
• Categories
  

• Administration
• File Management
  

• Language Selection
  
  
  

Spiral sample

'Spiral   
  
Radius = 200   
RadiusStep = .2   
  
Angle = 0   
x1 = 320 + Math.Sin(Angle) * Radius   
y1 = 220 + Math.Cos(Angle) * Radius   
While Radius > 0   
  
  x = 320 + Math.Sin(Angle) * Radius   
  y = 220 + Math.Cos(Angle) * Radius      
  Angle = Angle + .1   
  GraphicsWindow.DrawLine(x,y,x1,y1)   
     
  x1 = x   
  y1 = y   
     
  Radius = Radius - RadiusStep   
  RadiusStep = RadiusStep - .0001   
     
EndWhile  

SpiralImage