' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DIBUJA BLOQUE DE PISOS CON PUERTAS Y VENTANAS EN 3D DECLARE SUB DEMO () DECLARE SUB barandalado (h!, v!) DECLARE SUB barandafrente (h!, v!) DECLARE SUB ventanalado (h!, v!) DECLARE SUB puertalado (h!, v!) DECLARE SUB prisma (h!, v!) DECLARE SUB ventanafrente (h!, v!) DECLARE SUB puertafrente (h!, v!) SCREEN 12 RANDOMIZE TIMER DEMO 'DIBUJA MODULO CON BARANDAS FOR a = 0 TO 250 STEP 50 n = 0 FOR v = 300 - a TO 410 - a - (a / 2.5) STEP 11 n = n + 1 FOR h = (245 - (n * 22)) TO (245 - (n * 22)) + 360 - a / 2 STEP 30 prisma h, v NEXT NEXT NEXT ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB barandafrente (h, v) LINE (h, v - 1)-STEP(30, -18), 13, B DRAW "l3d18l3u18l3d18l3u18l3d18l3u18l3d18l3u18l3d18" END SUB ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB barandalado (h, v) h = h + 30 cf = POINT(h, v) LINE (h, v)-STEP(22, -11), 13 LINE STEP(0, 0)-STEP(0, -18), 13 LINE STEP(0, 0)-STEP(-22, 11), 13 LINE STEP(0, 0)-STEP(0, 18), 13 FOR n = 1 TO 10 LINE (h + n + n, v - n - 1)-STEP(0, -16), 13 NEXT PSET (h, v), cf h = h - 30 END SUB ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB DEMO prisma 152, 89 prisma 100, 100 prisma 130, 100 prisma 122, 38 ventanafrente 100, 100 puertafrente 130, 100 ventanalado 152, 89 puertalado 130, 100 ventanafrente 122, 38 puertalado 122, 38 barandafrente 130, 100 barandafrente 100, 100 barandafrente 174, 78 barandalado 130, 100 barandalado 152, 89 END SUB ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB prisma (h, v) LINE (h, v)-STEP(30, 50), 15, BF FOR n = 1 TO 11 LINE (h + n + n, v - n)-STEP(30, 0), 1 LINE STEP(0, 1)-STEP(-1, 50), 7, B NEXT IF RND < .3 THEN puertafrente h, v: ELSE ventanafrente h, v IF RND < .3 THEN puertalado h, v: ELSE ventanalado h, v END SUB ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB puertafrente (h, v) LINE (h + 5, v + 8)-STEP(1, 42), 7, B LINE (h + 7, v + 8)-STEP(18, 42), 8, BF LINE (h + 9, v + 8)-STEP(6, 22), 3, BF LINE (h + 19, v + 8)-STEP(6, 22), 3, BF LINE (h + 9, v + 34)-STEP(6, 12), 3, BF LINE (h + 19, v + 34)-STEP(6, 12), 3, BF LINE (h + 5, v + 50)-STEP(20, 0), 1 PSET (h + 20, v + 32), 7 END SUB ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB puertalado (h, v) h = h + 30 LINE (h + 5, v + 6)-STEP(1, 38), 11, B LINE (h + 7, v + 5)-STEP(1, 38), 11, B LINE (h + 9, v + 4)-STEP(1, 38), 8, B LINE (h + 11, v + 3)-STEP(1, 38), 11, B LINE (h + 13, v + 2)-STEP(1, 38), 11, B LINE (h + 15, v + 1)-STEP(1, 38), 8, B LINE (h + 17, v)-STEP(1, 42), 15, B FOR n = 1 TO 6 LINE (h + 3 + n + n, v + 30 - n)-STEP(1, 2), 8, B LINE (h + 3 + n + n, v + 45 - n)-STEP(1, 2), 8, B LINE STEP(-1, 1)-STEP(3, 0), 1 NEXT LINE (h + 5, v + 48)-STEP(1, 0), 1 PSET (h + 11, v + 27), 7 h = h - 30 END SUB ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB ventanafrente (h, v) LINE (h + 5, v + 8)-STEP(1, 25), 7, B LINE (h + 7, v + 8)-STEP(18, 25), 8, BF LINE (h + 9, v + 8)-STEP(6, 22), 3, BF LINE (h + 19, v + 8)-STEP(6, 22), 3, BF LINE (h + 5, v + 33)-STEP(20, 0), 4 LINE (h + 7, v + 32)-STEP(18, 0), 4 END SUB ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB ventanalado (h, v) h = h + 30 LINE (h + 5, v + 6)-STEP(1, 22), 11, B LINE (h + 7, v + 5)-STEP(1, 22), 11, B LINE (h + 9, v + 4)-STEP(1, 22), 8, B LINE (h + 11, v + 3)-STEP(1, 22), 11, B LINE (h + 13, v + 2)-STEP(1, 22), 11, B LINE (h + 15, v + 1)-STEP(1, 22), 8, B LINE (h + 17, v)-STEP(1, 25), 15, B FOR n = 1 TO 6 LINE (h + 3 + n + n, v + 30 - n)-STEP(1, 1), 8, B LINE STEP(-1, 1)-STEP(3, 0), 4 NEXT LINE (h + 5, v + 32)-STEP(1, 0), 4, B h = h - 30 END SUB