' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB pared (h1!, v1!, h2!, v2!, t!, ladrillo!, cemento!) SCREEN 12 PAINT (1, 1), 15 pared 0, 20, 300, 60, 4, 12, 7 pared 0, 80, 300, 135, 8, 12, 7 pared 0, 150, 250, 230, 12, 12, 7 pared 0, 240, 250, 310, 16, 6, 15 pared 0, 320, 200, 380, 20, 6, 15 pared 0, 428, 200, 480, 24, 6, 15 pared 330, 20, 640, 60, 4, 7, 8 pared 330, 80, 640, 135, 8, 7, 8 pared 330, 150, 640, 230, 12, 7, 8 pared 330, 240, 640, 310, 16, 8, 7 pared 330, 320, 640, 380, 20, 8, 7 pared 330, 428, 640, 480, 24, 8, 7 SLEEP ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' ' DIBUJA UNA PARED DE LADRILLOS EN LA POSICIàN DADA POR H1, V1, H2 Y V2 ' ' CON EL TAMA¥O DEFINDO POR T QUE ES LA ALTURA DEL LADRILLO ' ' Y EL COLOR DEFINIDO POR LADRILLO Y CEMENTO ' SUB pared (h1, v1, h2, v2, t, ladrillo, cemento) FOR h = h1 TO h2 STEP (4 * t) + 2 FOR v = v1 TO v2 STEP (2 * t) + 4 PSET (h, v) LINE STEP(0, 0)-STEP((4 * t) + 3, (2 * t) + 3), cemento, BF PSET (h, v) LINE STEP(0, 0)-STEP(2 * t, t), ladrillo, BF LINE STEP(2, -t)-STEP(2 * t, t), ladrillo, BF LINE STEP(-(4 * t) - 1, 2)-STEP((4 * t) + 2, t), ladrillo, BF NEXT NEXT END SUB