'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB letras (x!, y!, TEXT$, escl!, CLRS!, ang!, ancho!, relleno!)
CONST pi = 3.1415926539#
RANDOMIZE TIMER
SCREEN 12
PALETTE 3, 63
PAINT (1, 1), 7

CIRCLE (330, 250), 225, 8
PAINT (330, 250), 8, 8

CIRCLE (320, 240), 220, 3
CIRCLE (320, 240), 210, 3
PAINT (320, 25), 3, 3
PAINT (320, 240), 15, 3


FOR r = 0 TO 360 STEP 6
   DRAW "bm320,240 c9 ta" + STR$(r) + "br180r10"
NEXT

FOR r = 0 TO 360 STEP 30
   DRAW "bm320,240 c15 ta" + STR$(r) + "r190l20 c0r5dl5uur5"
NEXT

letras 300, 53, "12", 12, 9, 0, 3, 1
letras 310, 437, "6", 12, 9, 0, 3, 1
letras 210, 80, "11              1", 12, 9, 0, 3, 1
letras 210, 410, "7               5", 12, 9, 0, 3, 1
letras 135, 150, "10                          2", 12, 9, 0, 3, 1
letras 147, 340, "8                          4", 12, 9, 0, 3, 1
letras 125, 245, "9                              3", 12, 9, 0, 3, 1

TIMER ON
ON TIMER(1) GOSUB hora

DO: LOOP WHILE INKEY$ = ""  'BUCLE PRINCIPAL DE FUNCIONAMIENTO DEL RELOJ
END


hora:
SELECT CASE cs
   CASE 0
      SOUND 1200, 2
      SOUND 1600, 1
      cs = 1
   CASE 1
      SOUND 1600, 2
      SOUND 1200, 1
      cs = 0
END SELECT

hora = VAL(MID$(TIME$, 1, 2))
IF hora > 12 THEN : hora = hora - 12

r1 = 360 - (hora * 30)
r1 = r1 + 90
r1 = r1 - INT(VAL(MID$(TIME$, 4, 2)) / 2)

IF r1 <= 0 THEN : r1 = 360 - r1
IF r1 >= 360 THEN : r1 = r1 - 360



r2 = 360 - (VAL(MID$(TIME$, 4, 2)) * 6)
r2 = r2 + 90
IF r2 <= 0 THEN : r2 = 360 - r2
IF r2 >= 360 THEN : r2 = r2 - 360




r3 = 360 - (VAL(MID$(TIME$, 7, 2)) * 6)
r3 = r3 + 90
IF r3 <= 0 THEN : r3 = 360 - r3
IF r3 >= 360 THEN : r3 = r3 - 360


r11 = r1 + 1
IF r11 <= 0 THEN : r11 = 360 - r11
IF r11 >= 360 THEN : r11 = r11 - 360
r22 = r2 + 6
IF r22 <= 0 THEN : r22 = 360 - r22
IF r22 >= 360 THEN : r22 = r22 - 360
r33 = r3 + 6
IF r33 <= 0 THEN : r33 = 360 - r33
IF r33 >= 360 THEN : r33 = r33 - 360



DRAW "bm320,240 s4 c15 ta" + STR$(r33) + "br7r160"

IF MID$(TIME$, 7, 2) = "00" THEN : DRAW "bm320,240 s4 c15 ta" + STR$(r22) + "r3 u4r145f4g4l145"
IF MID$(TIME$, 7, 2) = "00" AND VAL(MID$(TIME$, 4, 2)) = INT(VAL(MID$(TIME$, 4, 2))) THEN : DRAW "bm320,240 s4 c15 ta" + STR$(r11) + "r3 u4r125f4g4l125"

letras 260, 350, "Hecho en RONDA", 8, 0, 0, 2, 1

DRAW "bm320,240 s4  c15 ta" + STR$(r1) + "r3 c0 u4r125f4g4l125"
DRAW "bm320,240 s4  c15 ta" + STR$(r2) + "r3 c0 u4r145f4g4l145"
DRAW "bm320,240 s4  c0 ta" + STR$(r3) + "br7r160"



CIRCLE (320, 240), 5, 0


PAINT (320, 240), 0, 0

RETURN

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
'
'            ---------------------------------------------
'            SUB MODIFICADA:  NO CONTIENE TODAS LAS LETRAS
'            ---------------------------------------------
'
'
SUB letras (x, y, TEXT$, escl, CLRS, ang, ancho, relleno)


IF relleno < 1 THEN : relleno = 1
relleno = INT(relleno)

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


CLR$ = STR$(CLRS)
escala$ = STR$(escl)
angulo$ = STR$(ang)


FOR A = 1 TO LEN(TEXT$)
IF CLRS > 15 THEN : CLR$ = STR$(INT(RND * 15) + 1)
SELECT CASE UCASE$(MID$(TEXT$, A, 1))
CASE "A": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 u2nnr2u2r2d4"
CASE "C": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 bu4 nr2d4r2"
CASE "D": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 u4rfd2glbr2"
CASE "E": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 bu4 nr2d2nr2d2r2"
CASE "H": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 u2nu2r2nu2d2"
CASE "N": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 u4f4nu4"
CASE "O": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 bu4 nr2d4r2nu4"
CASE "R": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 u4r2d2l2f2"

CASE "1": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 bu3ed4nlr"
CASE "2": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 bu3 erfg3r3"
CASE "3": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 bu4 r2d2nl2d2nl2" '"br2 bu4 r2fgnlfgnl2bl"
CASE "4": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 bu2 nu2r2nu2d2"
CASE "5": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 bu4 nr2d2r2d2nl2"
CASE "6": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 bu4 nr2d2nr2d2r2nu2"
CASE "7": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 bu4 r2d4"
CASE "8": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 u4r2d2nl2d2nl2"
CASE "9": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 bu2 nr2u2r2d4"
CASE "0": DRAW "S" + escala$ + "C" + CLR$ + "ta" + angulo$ + "br2 bu4 nr2d4r2nu4"

CASE ELSE: DRAW "S" + escala$ + "ta" + angulo$ + "BR4"

END SELECT
NEXT
NEXT
NEXT


END SUB