Espiral de Arquímedes - Versión para impresión

Código:
Private DrAr As DrawingArea

Private Const A As Float = 4.0

Private Const B As Float = 4.0

Private Const KYKLOS As Float = 26.0

Private Const PASOS As Integer = 200

Private incr As Float = 1.0 / PASOS



 

Public Sub Form_Open()

 

  With Me

    .W = Screen.AvailableWidth

    .H = Screen.AvailableHeight

    .Center

  End With

  With DrAr = New DrawingArea(Me) As "DrAr"

    .X = 0

    .Y = 0

    .W = Me.W

    .H = Me.H

    .Background = Color.White

  End With

 

End





Public Sub DrAr_Draw()

 

  Dim x, y As Integer

  Dim i As Float

 

  x = DrAr.W / 2

  y = DrAr.H / 2

 

  With Paint

    While i <= KYKLOS * Pi

      .FillRect(x + (A + B * i) * Cos(i), y + (A + B * i) * Sin(i), 2, 2, Color.Red)

      i += incr

    Wend

    .End

  End With

 

End