'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB boton (h!, v!, l!, a!, sl!, sm!, ca!, bo!)
DECLARE SUB objeto (h!, v!, n!)
DECLARE SUB ventana (h!, v!, l!, a!, txt$)
DECLARE SUB letras (X!, Y!, TEXT$, escl!, clrs!, ang!, ancho!, relleno!)
DIM SHARED plano(1 TO 20, 1 TO 40)
CONST cp = 6


SCREEN 12



ventana 20, 10, 385, 285, "plano"
ventana 20, 300, 385, 145, "GALERIA DE OBJETOS"
FOR n = 1 TO 9
   objeto (n * 40), 400, n
   letras ((n * 40) - 3), 420, STR$(n), 8, 8, 0, 2, 1
NEXT


FOR v = 1 TO 7
   FOR h = 1 TO 10
      READ n
      objeto ((h * 25) + (v * 15)), v * 15 + 100, n
   NEXT
   FOR h = 1 TO 11
      READ n
      objeto ((h * 25) + (v * 15)), v * 15 + 100, n + 10
   NEXT
NEXT

DATA 0 ,2 ,0 ,0 ,3 ,0 ,20,20,20,20
DATA 0 ,20,20,0 ,20,20,0 ,20,20,20,20
DATA 20,20,20,20,20,20,0 ,3 ,0 ,8
DATA 2 ,20,20,0 ,20,20,7 ,20,20,20,0
DATA 20,20,20,20,20,20,20,20,20,20
DATA 0 ,20,20, 0,20,20, 0,20,20,20,0
DATA 20,20,20, 0, 0, 5, 0, 0, 0, 6
DATA 0 ,20,20, 5,20,20,20,20,20, 5, 0
DATA 0 ,0 ,0 ,20, 0, 5, 0, 0, 0,20
DATA 4 ,20,20,5 , 0,20,20,20,20,5 ,0
DATA 0 ,0 ,0 ,20,20,20,20,20,20,1
DATA 4 ,20,20,5 , 0,20,20,20,20,0 ,20
DATA 0 ,0 ,0 ,20,20, 0, 0, 3, 8,20
DATA 0 ,20,20, 0, 0, 5,20,4 ,20,0,20

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB boton (h, v, l, a, sl, sm, ca, bo)
l = l - 1
a = a - 1
LINE (h, v)-STEP(l, a), bo, B
LINE (h + 1, v + 1)-STEP(l - 2, a - 2), sl, B
LINE (h + 2, v + 2)-STEP(l - 3, a - 3), sm, B
LINE (h + 2, v + 2)-STEP(l - 4, a - 4), ca, BF

END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                         TIPOGRAFIA VECTORIAL ESCALABLE HECHO EN RONDA
'
'
'
SUB letras (X, Y, TEXT$, escl, clrs, ang, ancho, relleno)
IF relleno < 1 THEN : relleno = 1
FOR h = 1 TO ancho STEP relleno
FOR v = 1 TO ancho STEP relleno
ccc = POINT(X + h, Y + v)
PSET (X + h, Y + v), ccc
C$ = STR$(clrs): e$ = STR$(escl): a$ = STR$(ang)
FOR a = 1 TO LEN(TEXT$)
IF clrs > 255 THEN RANDOMIZE TIMER: C$ = STR$(INT(RND * 15) + 1)
DRAW "S" + e$ + "C" + C$ + "ta" + a$
SELECT CASE UCASE$(MID$(TEXT$, a, 1))
CASE "A": DRAW "br2 u2nnr2u2r2d4"
CASE "B": DRAW "br2 u4r2dgnlfdnl2"
CASE "C": DRAW "br2 bu4 nr2d4r2"
CASE "D": DRAW "br2 u4rfd2glbr2"
CASE "E": DRAW "br2 bu4 nr2d2nr2d2r2"
CASE "F": DRAW "br2 bu4 nr2d2nr2d2br2"
CASE "G": DRAW "br2 bu4 nr2d4r2unld"
CASE "H": DRAW "br2 u2nu2r2nu2d2"
CASE "I": DRAW "br2 nu4"
CASE "J": DRAW "br2 nur2nu4"
CASE "K": DRAW "br2 u2 nu2ne2f2"
CASE "L": DRAW "br2 nu4r2"
CASE "M": DRAW "br2 u4f2e2d4"
CASE "N": DRAW "br2 u4f4nu4"
CASE "¤": DRAW "br2 u3f3u3bunl3bd4"
CASE "¥": DRAW "br2 u3f3u3bunl3bd4"
CASE "O": DRAW "br2 bu4 nr2d4r2nu4"
CASE "P": DRAW "br2 u2nnr2u2r2d2bd2"
CASE "Q": DRAW "br2 bu4 nr2d4renu3blf"
CASE "R": DRAW "br2 u4r2d2l2f2"
CASE "S": DRAW "br2 r2u2l2u2r2BD4"
CASE "T": DRAW "br2 BU4r2nd4r2bd4"
CASE "U": DRAW "br2 nu4r2nu4"
CASE "V": DRAW "br2 bunu3fenu3bd"
CASE "W": DRAW "br2 bunu3fenu2fenu3bd"
CASE "X": DRAW "br2 br2bu2ne2nf2ng2nh2br2bd2"
CASE "Y": DRAW "br2 br2u2nh2ne2bd2br2"
CASE "Z": DRAW "br2 bu4 r4g2nlnrg2r4"
CASE "1": DRAW "br2 bu3ed4nlr"
CASE "2": DRAW "br2 bu3 erfg3r3"
CASE "3": DRAW "br2 bu4 r2d2nl2d2nl2" '"br2 bu4 r2fgnlfgnl2bl"
CASE "4": DRAW "br2 bu2 nu2r2nu2d2"
CASE "5": DRAW "br2 bu4 nr2d2r2d2nl2"
CASE "6": DRAW "br2 bu4 nr2d2nr2d2r2nu2"
CASE "7": DRAW "br2 bu4 r2d4"
CASE "8": DRAW "br2 u4r2d2nl2d2nl2"
CASE "9": DRAW "br2 bu2 nr2u2r2d4"
CASE "0": DRAW "br2 bu4 nr2d4r2nu4"
CASE "*": DRAW "br2 br2 u2nl2nu2nr2nengnhfbf "
CASE "+": DRAW "br2 br2 u2nl2nu2r2bd2"
CASE "-": DRAW "br2 bu2r2bd2"
CASE ".": DRAW "br2": PSET STEP(0, 0), clrs
CASE ",": DRAW "br2 ng"
CASE ";": DRAW "br2 ngbunuBD"
CASE ":": DRAW "br2": PSET STEP(0, 0), clrs: PSET STEP(0, -2), clrs: DRAW "bd2"
CASE "=": DRAW "br2 bunr2bu2r2bd3"
CASE ELSE: DRAW "S" + e$ + "ta" + a$ + "BR4"
END SELECT
NEXT: NEXT: NEXT
DRAW "s4"
END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB objeto (h, v, n)
IF n > 19 THEN EXIT SUB
IF n < 10 THEN
   LINE (h, v)-STEP(24, -44), 15, BF
   LINE STEP(0, 0)-STEP(-24, 0), 0
ELSE
   FOR hh = 0 TO 14
      LINE (h + hh, v + hh)-STEP(0, -44), 7
   NEXT
   LINE STEP(0, 0)-STEP(-14, -14), 0
END IF

SELECT CASE n
CASE 1
   LINE (h + 3, v - 35)-STEP(18, 35), cp, BF
   LINE (h + 5, v - 33)-STEP(14, 33), 0, B
   PSET (h + 12, v - 11), 14
   FOR hh = h + 7 TO h + 20 STEP 4
      FOR vv = v - 30 TO v - 3 STEP 4
         LINE (hh, vv)-STEP(2, 2), 0, B
      NEXT
   NEXT
CASE 2
   LINE (h + 5, v - 35)-STEP(14, 22), 8, BF
   LINE (h + 7, v - 33)-STEP(4, 18), 11, BF
   LINE (h + 13, v - 33)-STEP(4, 18), 11, BF
CASE 3
   LINE (h + 2, v - 35)-STEP(20, 22), 8, BF
   LINE (h + 4, v - 33)-STEP(4, 18), 11, BF
   LINE (h + 10, v - 33)-STEP(4, 18), 11, BF
   LINE (h + 16, v - 33)-STEP(4, 18), 11, BF
CASE 4
   LINE (h + 6, v - 35)-STEP(12, 22), 8, BF
   LINE (h + 8, v - 33)-STEP(8, 18), 11, BF
CASE 5
   LINE (h + 3, v - 35)-STEP(18, 35), cp, BF
   LINE (h + 5, v - 33)-STEP(14, 33), 0, B
   PSET (h + 7, v - 15), 14
CASE 6
   LINE (h + 3, v - 35)-STEP(18, 35), cp, BF
   LINE (h + 5, v - 33)-STEP(14, 33), 0, B
   PSET (h + 7, v - 15), 14
   LINE (h + 9, v - 29)-STEP(6, 22), 11, BF
CASE 7
   LINE (h + 1, v - 35)-STEP(22, 35), cp, BF
   LINE (h + 2, v - 33)-STEP(20, 33), 0, B
   LINE (h + 6, v - 29)-STEP(3, 22), 11, BF
   LINE (h + 15, v - 29)-STEP(3, 22), 11, BF
   PSET (h + 11, v - 15), 14
   PSET (h + 13, v - 15), 14
CASE 8
   LINE (h + 5, v - 35)-STEP(14, 35), 8, BF
   LINE (h + 7, v - 33)-STEP(10, 30), 11, BF
   LINE (h + 7, v - 13)-STEP(10, 2), 8, BF
CASE 9
   LINE (h + 1, v - 35)-STEP(22, 35), 8, BF
   LINE (h + 3, v - 33)-STEP(18, 31), 11, BF
   LINE (h + 3, v - 12)-STEP(18, 1), 8, BF
   LINE (h + 12, v - 35)-STEP(0, 33), 8

CASE 11
   FOR hh = 0 TO 10
      LINE (h + hh + 2, v + hh + 2)-STEP(0, -34), cp
   NEXT
   PSET (h + 3, v + 3), 0: DRAW "u32f8d32"
   FOR hh = 0 TO 4 STEP 2
      FOR vv = v - 24 TO v + 0 STEP 4
         LINE (h + hh + 5, vv + hh)-STEP(0, 2), 0
      NEXT
   NEXT
   PSET (h + 7, v - 1), 14
CASE 12
   FOR hh = 0 TO 8
      LINE (h + hh + 3, v + hh - 9)-STEP(0, -22), 8
   NEXT
   PSET (h + 4, v - 10), 11: DRAW "u18fd18fu18bf2d18fu18fd18"
CASE 13
   FOR hh = 0 TO 10
      LINE (h + hh + 2, v + hh - 10)-STEP(0, -22), 8
   NEXT
   PSET (h + 3, v - 11), 11: DRAW "u18fd18bf2u18fd18fu18bf2d18fu18"
CASE 14
   FOR hh = 0 TO 6
      LINE (h + hh + 4, v + hh - 8)-STEP(0, -22), 8
   NEXT
   PSET (h + 5, v - 9), 11: DRAW "u18fd18fu18fd18fu18"
CASE 15
   FOR hh = 0 TO 10
      LINE (h + hh + 2, v + hh + 2)-STEP(0, -34), cp
   NEXT
   PSET (h + 3, v + 3), 0: DRAW "u32f8d32"
   PSET (h + 5, v - 5), 14
CASE 16
   FOR hh = 0 TO 10
      LINE (h + hh + 2, v + hh + 2)-STEP(0, -34), cp
   NEXT
   PSET (h + 3, v + 3), 0: DRAW "u32f8d32c11bu9bl3u22hd22hu22"
   PSET (h + 5, v - 5), 14
CASE 17
   FOR hh = 0 TO 12
      LINE (h + hh + 1, v + hh + 1)-STEP(0, -34), cp
   NEXT
   PSET (h + 2, v + 2), 0: DRAW "u32f10d32c11bu8bl2u22hd22bh4u22hd22"
   PSET (h + 6, v - 4), 14
   PSET (h + 8, v - 2), 14
CASE 18
   FOR hh = 0 TO 8
      LINE (h + hh + 3, v + hh + 3)-STEP(0, -34), 8
   NEXT
   PSET (h + 4, v + 1), 11: DRAW "u29fd29fu29fd29fu29fd29fu29c8bd19h6df6dh6"
CASE 19
   FOR hh = 0 TO 12
      LINE (h + hh + 1, v + hh + 1)-STEP(0, -34), 8
   NEXT
   PSET (h + 2, v), 11: DRAW "u30fd30fu30fd30fu30fd30fu30fd30fu30fd30fu30c8bd19h10df10dh10"
   LINE (h + 7, v + 7)-STEP(0, -32), 8

END SELECT
END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB ventana (h, v, l, a, txt$)
boton h, v, l, a, 15, 8, 7, POINT(h, v)
boton h + 4, v + 44, l - 8, a - 48, 8, 15, 0, 7
boton h + 4, v + 4, l - 8, 25, 9, 0, 1, 7
letras h + 10, v + 19, txt$, 8, 15, 0, 2, 1
letras h + 6, v + 38, "HECHO EN RONDA", 8, 0, 0, 2, 1
END SUB