' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB simbolos (tipo!, h!, v!, cs!) SCREEN 12 PALETTE 12, 63 PAINT (1, 1), 7 simbolos 1, 100, 200, 8 simbolos 2, 200, 200, 8 simbolos 3, 300, 200, 8 simbolos 4, 400, 200, 8 ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SIMBOLOS PARA CUADROS DE MENSAJES DE INFERFACES GRAFICOS ' 'TIPO: 1=­ 2=i 3=¨ 4=STOP 'H,V 'COLOR DE SOMBRA ' ' SUB simbolos (tipo, h, v, cs) CONST pi = 3.1415926539# SELECT CASE tipo CASE 1 CIRCLE (h + 3, v + 3), 23, cs PAINT (h + 3, v + 3), cs, cs CIRCLE (h, v), 23, 0 CIRCLE (h, v), 20, 0 PAINT (h, v), 14, 0 PAINT (h, v - 21), 0, 0 LINE (h - 3, v - 5)-(h + 3, v + 15), 0, BF CIRCLE (h, v - 12), 4, 0 PAINT (h, v - 12), 0, 0 CASE 2 CIRCLE (h + 3, v + 3), 23, cs PAINT (h + 3, v + 3), cs, cs CIRCLE (h, v), 23, 0 CIRCLE (h, v), 20, 0 PAINT (h, v), 10, 0 PAINT (h, v - 21), 0, 0 LINE (h - 3, v - 5)-(h + 3, v + 15), 0, BF LINE (h - 6, v - 5)-(h + 3, v - 1), 0, BF LINE (h - 8, v + 11)-(h + 8, v + 15), 0, BF CIRCLE (h, v - 12), 4, 0 PAINT (h, v - 12), 0, 0 CASE 3 CIRCLE (h + 3, v + 3), 23, cs PAINT (h + 3, v + 3), cs, cs CIRCLE (h, v), 23, 0 CIRCLE (h, v), 20, 0 PAINT (h, v), 9, 0 PAINT (h, v - 21), 0, 0 LINE (h - 3, v - 5)-(h + 3, v + 3), 0, BF LINE (h + 4, v + 7)-(h + 10, v + 7), 0 CIRCLE (h, v + 7), 4, 0, pi / 2 CIRCLE (h, v + 7), 10, 0, pi / 2 PAINT (h - 6, v + 7), 0, 0 CIRCLE (h, v - 12), 4, 0 PAINT (h, v - 12), 0, 0 CASE 4 IF POINT(h, v) = 15 THEN : cs = 15 PSET (h - 20, v - 5), cs DRAW "d20f13r20e13u20h13l20g13" PAINT (h, v), cs, cs PSET (h - 23, v - 10) DRAW "c15 d20f13r20e13u20h13l20g13" PAINT (h - 22, v), 15, 15 PSET (h - 20, v - 9) DRAW "c12 d18f11r18e11u18h11l18g11" PAINT (h, v), 12, 12 FOR hh = h - 20 TO h - 19 FOR vv = v + 3 TO v + 4 PSET (hh, vv), POINT(hh, vv) DRAW "S8 C15 br2 r2u2l2u2r2BD4" DRAW "br2 BU4r2nd4r2bd4" DRAW "br2 bu4 nr2d4r2nu4" DRAW "br2 u2nnr2u2r2d2bd2" NEXT NEXT END SELECT END SUB