'===========================================================================
' Subject: WEB LIKE SPHERE                   Date: 10-25-98 (19:15)       
' Author:  Leandro Pardini                   Code: QB, QBasic, PDS        
' Origin:  lpardini@cefex.com              Packet: GRAPHICS.ABC
'===========================================================================
'=======================================================<lpardini@cefex.com>=
' This is a program I created four years ago and  I  don't  know why, but it
' looks  good,  like  a web. Playing with the numbers you'll get some pretty
' patterns.
'============================================================================

'$STATIC
DEFINT A-Z

DECLARE SUB Mandala (PosX%, PosY%, Diametro%, Vertices%, ColorNum%)

SCREEN 12
Mandala 319, 239, 240, 29, 15
WHILE INKEY$ = "": WEND
SCREEN 0
END

SUB Mandala (PosX, PosY, Diametro, Vertices, ColorNum)

DIM VertX(Vertices), VertY(Vertices)

FOR Iniciar = 0 TO Vertices
VertX(Iniciar) = PosX + (SIN(6.283185 * (Iniciar / Vertices)) * Diametro)
VertY(Iniciar) = PosY + (COS(6.283185 * (Iniciar / Vertices)) * Diametro)
NEXT Iniciar

FOR Dibujar1 = 0 TO Vertices
FOR Dibujar2 = 0 TO Vertices
LINE (VertX(Dibujar1), VertY(Dibujar1))-(VertX(Dibujar2), VertY(Dibujar2)), ColorNum
NEXT Dibujar2
NEXT Dibujar1

END SUB