' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' CASA CON PUERTAS Y VENTANAS DECLARE SUB ventana (H!, v!, c!) DECLARE SUB puerta (H!, v!, c!) 'DIBUJA LA CASA SCREEN 13 PAINT (1, 1), 106 FOR N = 134 TO 153 LINE (0, N + 51)-STEP(320, 0), N NEXT LINE (15, 10)-(304, 190), 7, BF LINE (35, 148)-(144, 190), 25, BF LINE (175, 148)-(284, 190), 25, BF FOR H = 12 TO 306 STEP 2 LINE (H, 2)-STEP(0, 47), 40 LINE (H + 1, 2)-STEP(0, 46), 4 NEXT puerta 40, 150, 40 puerta 65, 150, 40 puerta 90, 150, 40 puerta 115, 150, 40 puerta 180, 150, 40 puerta 205, 150, 40 puerta 230, 150, 40 puerta 255, 150, 40 FOR H = 30 TO 300 STEP 40 FOR v = 60 TO 120 STEP 45 ventana H, v, 40 NEXT NEXT FOR v = 51 TO 180 STEP 20 LINE (15, v)-STEP(6, 8), 26, BF LINE (15, v + 10)-STEP(4, 8), 25, BF LINE (304, v)-STEP(-6, 8), 26, BF LINE (304, v + 10)-STEP(-4, 8), 25, BF NEXT 'AHORA ES CUANDO SE ABREN LAS PUERTAS SLEEP FOR H = 0 TO 25 puerta 65 - H, 150, 40 puerta 90 + H, 150, 40 LINE (90 - H, 150)-(89 + H, 190), 0, B puerta 205 - H, 150, 40 puerta 230 + H, 150, 40 LINE (230 - H, 150)-(229 + H, 190), 0, B FOR delay = 1 TO 5000: NEXT NEXT SLEEP ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DIBUJA UNA PUERTA DE CRISTALES SUB puerta (H, v, c) LINE (H, v)-STEP(24, 40), c, BF FOR hh = 2 TO 13 STEP 11 FOR vv = 3 TO 25 STEP 10 LINE (H + hh, v + vv)-STEP(9, 8), 52, BF NEXT NEXT LINE (H + 2, v + 34)-STEP(20, 4), c + 1, B END SUB ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DIBUJA UNA VENTANA SUB ventana (H, v, c) LINE (H - 3, v - 2)-STEP(24, 25), 25, BF LINE (H, v)-STEP(18, 22), c, BF LINE (H + 2, v + 2)-STEP(6, 8), 52, BF LINE (H + 10, v + 2)-STEP(6, 8), 52, BF LINE (H + 2, v + 12)-STEP(6, 8), 52, BF LINE (H + 10, v + 12)-STEP(6, 8), 52, BF END SUB