[vuott]

Os dejo este simple codigo para dibujar la Espiral de Arquímedes:

GAMBAS

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

[tincho]

Interesante Vuott, gracias por compartir.

[vuott]

Hola tincho,
prueba cambiando unos parametros.

[tincho]

Hola tincho,
prueba cambiando unos parametros.

ok, cambie algunos parámetros, y si, cambian las cosas, bueno me apunto porque tal vez lo incluya en GauchoCAD.
Saludos.