' ' © 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