Sorry your browser is not supported!

Global MX as Float
Global MY as Float
Global MMZ as Float
Global SX as Float
Global SY as Float
Global Comlplexity as Float
SX = 1024
SY = 768
Complexity = 25.0
Set Display Mode SX, SY, 32
Sync On
Set Window On
Set Window Position 50, 50
Set Text Font "Verdana"
Set Text Size 14
Do
   MX = MouseX( )
   MY = MouseY( )
   MMZ = MouseMoveZ( )
   Complexity = Complexity + ( MMZ / 100.0 )
   CLS
   LineArt( Complexity )
   Text SX / 2, SY - 100, "Use the mousewheel to change the number of lines."
   Sync
Loop
Function LineArt( A as Float )
   Line 0, 0, MX, MY
   For I = 1 to A
      Line 0, SY * ( ( 1.0 / A ) * I ), MX * ( 1.0 - ( ( 1.0 / A ) * I ) ), MY * ( 1.0 - ( ( 1.0 / A ) * I ) )
      Line SX * ( ( 1.0 / A ) * I ), 0, MX * ( 1.0 - ( ( 1.0 / A ) * I ) ), MY * ( 1.0 - ( ( 1.0 / A ) * I ) )
   Next I
EndFunction

SX as Float
SX = 800
SY as Float
SY = 600

MX as Float
MY as Float
MMX as Float
MMY as Float
MMZ as Float

Angle as Float
Angle = 180
Radius as Float
Radius = 100

SpaceHold as Boolean

DrawBox as Boolean

Set Display Mode SX, SY, 32, 0, 1, 0
Set Window On
Set Window Position 100, 100
Sync On
Sync Rate 60

Do

   MX = MouseX( )
   MY = MouseY( )
   MMX = MouseMoveX( )
   MMY = MouseMoveY( )
   MMZ = MouseMoveZ( )
   Angle = Angle - ( MMX / 2 )
   Angle = Angle - ( MMY / 2 )
   Radius = Radius + ( MMZ / 50.0 )

   If SpaceKey( ) and SpaceHold = 0
      SpaceHold = 1
      If DrawBox = 1
         DrawBox = 0
      Else
         DrawBox = 1
      EndIf
   EndIf
   If SpaceKey( ) = 0
      SpaceHold = 0
   EndIf

   CLS

   Line 0, 0, MX - ( Radius * Sin( Angle ) ), MY - ( Radius * Cos( Angle ) )
   Line 0, 0, MX + ( Radius * Sin( Angle ) ), MY + ( Radius * Cos( Angle ) )
   Line 0, 0, MX - ( Radius * Sin( Angle + 90 ) ), MY - ( Radius * Cos( Angle + 90 ) )
   Line 0, 0, MX + ( Radius * Sin( Angle + 90 ) ), MY + ( Radius * Cos( Angle + 90 ) )

   Line SX, 0, MX - ( Radius * Sin( Angle ) ), MY - ( Radius * Cos( Angle ) )
   Line SX, 0, MX + ( Radius * Sin( Angle ) ), MY + ( Radius * Cos( Angle ) )
   Line SX, 0, MX - ( Radius * Sin( Angle + 90 ) ), MY - ( Radius * Cos( Angle + 90 ) )
   Line SX, 0, MX + ( Radius * Sin( Angle + 90 ) ), MY + ( Radius * Cos( Angle + 90 ) )

   Line 0, SY, MX - ( Radius * Sin( Angle ) ), MY - ( Radius * Cos( Angle ) )
   Line 0, SY, MX + ( Radius * Sin( Angle ) ), MY + ( Radius * Cos( Angle ) )
   Line 0, SY, MX - ( Radius * Sin( Angle + 90 ) ), MY - ( Radius * Cos( Angle + 90 ) )
   Line 0, SY, MX + ( Radius * Sin( Angle + 90 ) ), MY + ( Radius * Cos( Angle + 90 ) )

   Line SX, SY, MX - ( Radius * Sin( Angle ) ), MY - ( Radius * Cos( Angle ) )
   Line SX, SY, MX + ( Radius * Sin( Angle ) ), MY + ( Radius * Cos( Angle ) )
   Line SX, SY, MX - ( Radius * Sin( Angle + 90 ) ), MY - ( Radius * Cos( Angle + 90 ) )
   Line SX, SY, MX + ( Radius * Sin( Angle + 90 ) ), MY + ( Radius * Cos( Angle + 90 ) )

   If DrawBox = 1
      Line MX - ( Radius * Sin( Angle ) ), MY - ( Radius * Cos( Angle ) ), MX + ( Radius * Sin( Angle ) ), MY + ( Radius * Cos( Angle ) )
      Line MX - ( Radius * Sin( Angle + 90 ) ), MY - ( Radius * Cos( Angle + 90 ) ), MX + ( Radius * Sin( Angle + 90 ) ), MY + ( Radius * Cos( Angle + 90 ) )
      Line MX - ( Radius * Sin( Angle ) ), MY - ( Radius * Cos( Angle ) ), MX - ( Radius * Sin( Angle + 90 ) ), MY - ( Radius * Cos( Angle + 90 ) )
      Line MX + ( Radius * Sin( Angle ) ), MY + ( Radius * Cos( Angle ) ), MX + ( Radius * Sin( Angle + 90 ) ), MY + ( Radius * Cos( Angle + 90 ) )
      Line MX - ( Radius * Sin( Angle ) ), MY - ( Radius * Cos( Angle ) ), MX + ( Radius * Sin( Angle + 90 ) ), MY + ( Radius * Cos( Angle + 90 ) )
      Line MX + ( Radius * Sin( Angle ) ), MY + ( Radius * Cos( Angle ) ), MX - ( Radius * Sin( Angle + 90 ) ), MY - ( Radius * Cos( Angle + 90 ) )
   EndIf

   Sync

Loop

Set Display Mode 800,600, 32
Set Window On
Set Window Position 100, 100
Sync On
Sync Rate 60

set window size 832,632

cx = 400
cy = 300
rad# = 250

edges = 3
lasttime = timer()
Set Text Font "Verdana"
Set Text Size 14

Do
    cx = MouseX()
    cy = MouseY()
    angs# = 360.0/edges
    for i=0 to edges-1
        x# = angs#*i
        for n=1 to edges-1
            line cx + cos(x#)*rad#,cy - sin(x#)*rad#,cx + cos(x#+angs#*n)*rad#,cy - sin(x#+angs#*n)*rad#
        next n
    next i

    if mouseclick()=1 and timer()-lasttime > 200
        inc edges
        lasttime = timer()
    endif
        
    if mouseclick()=2 and timer()-lasttime > 200
        dec edges
        lasttime = timer()
    endif
    
    rad# = rad#+mousemovez()/10.0
    
    Text 0,0, "Use the mousewheel to zoom"
    Text 0,20,"Move the mouse to move the center of the circle."
    Text 0,40,"Press left / right mouse button to change the number of edges."
    
    Sync
    cls
Loop

SX as Float
SX = 800
SY as Float
SY = 600

MX as Float
MY as Float
MMX as Float
MMY as Float
MMZ as Float

Angle as Float
Angle = 180
Radius as Float
Radius = 100
Spokes as Float
Spokes = 16

Set Display Mode SX, SY, 32, 0, 1, 0
Set Window On
Set Window Position 100, 100
Sync On
Sync Rate 60

Do

   MX = MouseX( )
   MY = MouseY( )
   MMX = MouseMoveX( )
   MMY = MouseMoveY( )
   MMZ = MouseMoveZ( )
   Angle = Angle - ( MMX / 2 )
   Angle = Angle - ( MMY / 2 )
   Radius = Radius + ( MMZ / 50.0 )
   If MouseClick( )
      Spokes = Spokes + ( MMX / 10 )
   EndIf

   CLS

   For I = 1 to Spokes
      Line 0, 0, MX + ( Radius * Sin( Angle + ( ( 360.0 / Spokes ) * I ) ) ), MY + ( Radius * Cos( Angle + ( ( 360.0 / Spokes ) * I ) ) )
      Line SX, 0, MX + ( Radius * Sin( Angle + ( ( 360.0 / Spokes ) * I ) ) ), MY + ( Radius * Cos( Angle + ( ( 360.0 / Spokes ) * I ) ) )
      Line 0, SY, MX + ( Radius * Sin( Angle + ( ( 360.0 / Spokes ) * I ) ) ), MY + ( Radius * Cos( Angle + ( ( 360.0 / Spokes ) * I ) ) )
      Line SX, SY, MX + ( Radius * Sin( Angle + ( ( 360.0 / Spokes ) * I ) ) ), MY + ( Radius * Cos( Angle + ( ( 360.0 / Spokes ) * I ) ) )
   Next I

   Sync

Loop