'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'               
DECLARE SUB balaustrada (x!, y!, t!, n!, c1!, c2!)
SCREEN 12


balaustrada 10, 20, 1, 44, 8, 7
balaustrada 10, 60, 2, 22, 8, 7
balaustrada 10, 140, 3, 15, 8, 7
balaustrada 10, 250, 4, 11, 8, 7
balaustrada 10, 400, 1, 10, 7, 15
balaustrada 160, 400, 1, 10, 9, 11
balaustrada 320, 400, 1, 10, 5, 13
balaustrada 480, 400, 1, 10, 10, 0

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'               
'                   Dibuja una balaustrada en la pantalla
'            
'                x,y....Posici¢n esquina superior izquierda
'                t......Tama¤o de la proporci¢n
'                n......N£mero de balaustres
'                c1.....Color de linea
'                c2.....Color de relleno
'
SUB balaustrada (x, y, t, n, c1, c2)

LINE (x, y)-(x + (14 * n * t) - 1, y + (2 * t)), c2, BF
LINE (x, y + (30 * t))-(x + (14 * n * t) - 1, y + (32 * t)), c2, BF
LINE (x, y)-(x + (14 * n * t) - 1, y + (2 * t)), c1, B
LINE (x, y + (30 * t))-(x + (14 * n * t) - 1, y + (32 * t)), c1, B
FOR dibu = x TO x + (14 * n * t) - 1 STEP 14 * t
   PSET (dibu, y), c1
   CIRCLE STEP(7 * t, 16 * t), 10 * t, c1, , , 2
   PAINT STEP(0, 0), c2, c1
   LINE STEP(-4 * t, -12 * t)-STEP(8 * t, 2 * t), c1, B
   LINE STEP(-8 * t, 20 * t)-STEP(8 * t, 2 * t), c1, B
   LINE STEP(-7 * t, 0)-STEP(6 * t, 2 * t), c1, B
   LINE STEP(-6 * t, -28 * t)-STEP(6 * t, 2 * t), c1, B
   PSET (dibu + (7 * t), y), c1
   PAINT STEP(0, 3 * t), c2, c1
   PAINT STEP(0, 2 * t), c2, c1
   PAINT STEP(0, 22 * t), c2, c1
   PAINT STEP(0, 2 * t), c2, c1
NEXT

END SUB