sunstone.bmp
 Ing. Alejandro A. Hassey (C) 2000-2008 
kk22 = 2 - 1

Pi = 3.1415926#
c7 = 14 - 14: c14 = 14: K4 = 14: c300 = 4: c100 = 13
k15 = 0: kk15 = 15
K10 = 10
GOSUB minutero
GOSUB para
GOSUB minuterox: REM igual Horario
'GOSUB horario 
GOSUB para
GOSUB rubrica
GOSUB para
GOSUB ss
GOSUB para
GOSUB H24
GOSUB para
END
minutero:
u0 = 1: u1 = 2
ex = kk22: ey = kk22
REM SCREEN 9 , 1

SCREEN 9, 1
kien = 50
WINDOW ((-320 - kien) / ex, (240 - cien) / ey)-((320 - kien) / ex, (-240 - cien) / ey)
PAINT (0, 0), 15, 15
c5 = 4 + 7
'cuerpo 
'''LINE (-c5, 90)-(c5, -20), 0, B 
'LINE (-c5, -20)-(c5, -20), 0 
''LINE (0, 90)-(c5, -70), 0 
''LINE (0, 90)-(-c5, -70), 0 
''LINE (-c5, 20)-(-c5, -70), 0 
                         
'tip 
LINE (-c5, 0)-(0, 100), u0
LINE (c5, 0)-(0, 100), u0

LINE (-c5, 0)-(0, -25), u0
LINE (c5, 0)-(0, -25), u0

LINE (-c5 + 4, 0)-(0, 78), u0
LINE (c5 - 4, 0)-(0, 78), u0

LINE (-c5 + 4, 0 + 4)-(c5 - 4, 0 + 4), u0
''LINE (c5-4, 0)-(0, -40), 0 



''LINE (-c5 + .5, 90)-(c5 - .5, 90), 15 
'centro 
CIRCLE (0, 0), 2, u0
PSET (0, 0), u0
'limite fosforecencia 
''''LINE (-c5 + 2, 90)-(c5 - 2, 20), 0, B 
'pinta ORO 
''''''PAINT (0, 95), 0, 0 
'pinta  fosforescencia 
''''''''''PAINT (0, 50), 10, 0 

CIRCLE (-c5, 100), 2, u1
PAINT (-c5, 100), u1, u1
CIRCLE (c5, -100), 2, u1
PAINT (c5, -100), u1, u1

PSET (-c5, 100), 15
PSET (c5, -100), 15
PAINT (0, -10), u0, u0

RETURN
minuterox:
ex = kk22: ey = kk22
SCREEN 9, 1
kien = 50 + 50
WINDOW ((-320 - kien) / ex, (240 - cien) / ey)-((320 - kien) / ex, (-240 - cien) / ey)
PAINT (0, 0), 15, 15
c5 = 4 + 7
'cuerpo 

'tip 
LINE (-c5, 0)-(0, 100 - 20), u0
LINE (c5, 0)-(0, 100 - 20), u0

LINE (-c5, 0)-(0, -20), u0
LINE (c5, 0)-(0, -20), u0

LINE (-c5 + 4, 0)-(0, 78 - 20), u0
LINE (c5 - 4, 0)-(0, 78 - 20), u0

LINE (-c5 + 4, 0 + 4)-(c5 - 4, 0 + 4), u0
''LINE (c5-4, 0)-(0, -40), u0 



''LINE (-c5 + .5, 90)-(c5 - .5, 90), 15 
'centro 
CIRCLE (0, 0), 2, u0
PSET (0, 0), 4
'limite fosforecencia 
''''LINE (-c5 + 2, 90)-(c5 - 2, 20), 0, B 
'pinta ORO 
''''''PAINT (0, 95), 0, 0 
'pinta  fosforescencia 
''''''''''PAINT (0, 50), 10, 0 

CIRCLE (-c5, 100), 2, u1
PAINT (-c5, 100), u1, u1
CIRCLE (c5, -100), 2, u1
PAINT (c5, -100), u1, u1

PSET (-c5, 100), 15
PSET (c5, -100), 15
PAINT (0, -10), u0, u0

RETURN

horario:
kien = 100
ex = kk22: ey = kk22
SCREEN 9, 1
WINDOW ((-320 - kien) / ex, (240 - cien) / ey)-((320 - kien) / ex, (-240 - cien) / ey)

'cuerpo 
LINE (-c5, 70)-(c5, -20), 0, B
'LINE (-c5, -20)-(c5, -20), 0 

'tip 
LINE (-c5, 70)-(0, 80), 0
LINE (c5, 70)-(0, 80), 0
LINE (-c5 + .5, 70)-(c5 - .5, 70), 15
'centro 
CIRCLE (0, 0), 2, 0
PSET (0, 0), 4
'limite fosforecencia 
LINE (-c5 + 2, 70)-(c5 - 2, 20), 0, B
'pinta ORO 
''''''''PAINT (0, 75), 0, 0 
'pinta  fosforescencia 
'''''''''PAINT (0, 50), 10, 0 
CIRCLE (-5, 80), 2, 1
PAINT (-5, 80), 1, 1
CIRCLE (5, -80), 2, 1
PAINT (5, -80), 1, 1

PSET (-5, 80), 15
PSET (5, -80), 15

RETURN

rubrica:
c3 = 3
c10 = 10
c14 = 4
'C7 = 7 
REM Colores del Logotipo
kk3 = 0: kk4 = 0
kk3 = 3: kk4 = 13
'                               ahasseye 
rss = 76
a$ = "AMCMCKAKALELENEKELGLGKIKIIGIGJLJLKJKJLLLNLNMLMLNQNQOOOOMQMQLSLSMSJSLWLWMUMUKWK"
Pi = 3.1415926#: CUARENTA = 40 - 25
PIS = Pi / 180
 REM Alejandro A. Hassey  (C) 1999
DIM x(100), Y(100), xx(100), yy(100)
SCREEN 9, 1
escala = 1: e = escala: factor = 3
ex = kk22: ey = kk22
kien = -200 + 200
WINDOW ((-320 - kien) / ex, (240 - cien) / ey)-((320 - kien) / ex, (-240 - cien) / ey)
'PAINT (0, 0), 15, 15 
'LINE (-13, 100)-(13, -100), 0, BF 

factor = 4
ZW$ = a$
ss = rss
ii = 1
FOR i = 1 TO 78 STEP 2
ax$ = MID$(ZW$, i, 1)
ay$ = MID$(ZW$, i + 1, 1)
Y(ii) = ASC(MID$(ax$, 1, 1)) - ss
x(ii) = ASC(MID$(ay$, 1, 1)) - ss
x(ii) = -x(ii) * factor
Y(ii) = Y(ii) * factor
ii = ii + 1
NEXT i
TI:
'CLS 
FOR i = 1 TO 19
LINE (x(i), Y(i))-(x(i + 1), Y(i + 1)), kk3
LINE (x(i) + 1 / 2, Y(i) + 1 / 2)-(x(i + 1) + 1 / 2, Y(i + 1) + 1 / 2), kk3
LINE (x(i) - 1 / 2, Y(i) - 1 / 2)-(x(i + 1) - 1 / 2, Y(i + 1) - 1 / 2), kk3
LINE (x(i) - 1 / 2, Y(i) - 1 / 2)-(x(i + 1) - 1 / 2, Y(i + 1) - 1 / 2), kk3
LINE (x(i) + 1, Y(i) + 1)-(x(i + 1) + 1, Y(i + 1) + 1), kk3
LINE (x(i) - 1, Y(i) - 1)-(x(i + 1) - 1, Y(i + 1) - 1), kk3

NEXT i
FOR i = 20 TO 38


LINE (x(i), Y(i))-(x(i + 1), Y(i + 1)), kk4
LINE (x(i) + 1 / 2, Y(i) + 1 / 2)-(x(i + 1) + 1 / 2, Y(i + 1) + 1 / 2), kk4
LINE (x(i) - 1 / 2, Y(i) - 1 / 2)-(x(i + 1) - 1 / 2, Y(i + 1) - 1 / 2), kk4
LINE (x(i) - 1 / 2, Y(i) - 1 / 2)-(x(i + 1) - 1 / 2, Y(i + 1) - 1 / 2), kk4
LINE (x(i) + 1, Y(i) + 1)-(x(i + 1) + 1, Y(i + 1) + 1), kk4
LINE (x(i) - 1, Y(i) - 1)-(x(i + 1) - 1, Y(i + 1) - 1), kk4

NEXT i
CIRCLE (0, 0), 2, 7
PAINT (0, 0), 15, 7
PSET (0, 0), 0
CIRCLE (0, 80), 2, 4

PAINT (0, 80), 10, 4

LINE (0, 97)-(0, 82), 4
'LINE (-1, 97)-(-1, 82), 14 
'LINE (1, 97)-(1, 82), 14 
'LINE (-1, 97)-(1, 82), 14, BF 

LINE (0, 100)-(-2, 97), c14
LINE (0, 100)-(2, 97), c14
LINE (-2, 97)-(2, 97), c14
PAINT (0, 98), 10, c14


LINE (0, 78)-(0, 50), c14


LINE (0, -50)-(0, -100), 4
'LINE (-1, -50)-(-1, -100), 0 
'LINE (1, -50)-(1, -100), 0 
'LINE (-1, -50)-(1, -50), 0 


LINE (-2, -70)-(2, -80), 2, BF
LINE (-2, -80)-(2, -90), 7, BF
LINE (-2, -90)-(2, -100), 4, BF

LINE (-2, -70)-(2, -100), 0, B

LINE (-2, -70)-(2, -80), 14, B
LINE (-2, -80)-(2, -90), 14, B
LINE (-2, -90)-(2, -100), 14, B


PSET (-13, 100), k15
PSET (13, -100), k15


CIRCLE (-13, 100), 2, u1
CIRCLE (13, -100), 2, u1
PAINT (-13, 100), u1, u1
PAINT (13, -100), u1, u1

PSET (-13, 100), 15
PSET (13, -100), 15



RETURN

para:
1 :
kk$ = INKEY$
IF kk$ = "" THEN GOTO 1
RETURN

ss:
kkolor(1) = 10
kkolor(2) = 13
kkolor(3) = 4


FOR kien = 150 TO 250 STEP 50
cc14 = cc14 + 1
ex = kk22: ey = kk22
SCREEN 9, 1
'kien = 150 
WINDOW ((-320 - kien) / ex, (240 - cien) / ey)-((320 - kien) / ex, (-240 - cien) / ey)

REM Markas Circulares AZul
CIRCLE (-5, 11 + 6), 1, u1
PAINT (-5, 11 + 6), u1, u1
PSET (-5, 11 + 6), 15

CIRCLE (5, -11 - 6), 1, u1
PAINT (5, -11 - 6), u1, u1
PSET (5, -11 - 6), 15
z10 = 15 + 2
c14 = 0
c14 = u0
v3 = 3
LINE (0, z10)-(-v3, 0), c14
LINE (0, z10)-(v3, 0), c14
LINE (0, -5)-(-v3, 0), c14
LINE (0, -5)-(v3, 0), c14
PAINT (0, 7), u0, c14

c14 = u0
LINE (0, 6 + 5)-(-2, 0), c14
LINE (0, 6 + 5)-(2, 0), c14
LINE (-2, 0)-(2, 0), c14
PAINT (0, 3), 15, u0
c14 = 0
c14 = 4
LINE (0, 6 + 5)-(-2, 0), c14
LINE (0, 6 + 5)-(2, 0), c14
LINE (-2, 0)-(2, 0), c14
PAINT (0, 3), 15, c14
c14 = u0

LINE (0, 6 + 5)-(-2, 0), c14
LINE (0, 6 + 5)-(2, 0), c14
LINE (-2, 0)-(2, 0), c14




CIRCLE (0, 0), 1, u0
PAINT (0, 0), 15, u0
CIRCLE (0, 0), 1, u0

PSET (0, 0), 4
NEXT kien
RETURN

H24:
ex = kk22: ey = kk22
kien = 300
SCREEN 9, 1
'kien = 150 
WINDOW ((-320 - kien) / ex, (240 - cien) / ey)-((320 - kien) / ex, (-240 - cien) / ey)
CIRCLE (-5, 110), 1, 1
PAINT (-5, 110), 1, 1

CIRCLE (5, -110), 1, 1
PAINT (5, -110), 1, 1
LINE (-3, 108)-(3, 108), 0
LINE (3, 108)-(0, 102), 0
LINE (0, 102)-(-3, 108), 0
PAINT (0, 105), 10, 0
LINE (-3, 96)-(3, 96), 0
LINE (3, 96)-(0, 102), 0
LINE (0, 102)-(-3, 96), 0
PAINT (0, 98), 13, 0
CIRCLE (0, 0), 2, 0
PAINT (0, 0), 15, 0
PSET (0, 0), 0
RETURN