'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB hoja (p!)
DECLARE SUB anillas ()
DECLARE SUB separador (p!, C!)

lentitud = 50000: 'ajustar velocidad

SCREEN 13
PAINT (1, 1), 74

LINE (25, 22)-(304, 181), 2, BF
LINE (20, 20)-(299, 179), 0, BF

LINE (156, 25)-(163, 174), 20, BF

hoja 1
FOR delay = 1 TO lentitud: NEXT
hoja 2
FOR delay = 1 TO lentitud: NEXT
separador 6, 40
FOR delay = 1 TO lentitud: NEXT
hoja 2
FOR delay = 1 TO lentitud: NEXT
separador 4, 2
FOR delay = 1 TO lentitud: NEXT
hoja 2
FOR delay = 1 TO lentitud: NEXT
separador 2, 45
FOR delay = 1 TO lentitud: NEXT
hoja 2
FOR delay = 1 TO lentitud: NEXT
separador 12, 32



SLEEP

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB anillas

FOR v = 40 TO 160 STEP 40


CIRCLE (149, v), 3, 0, , , 1.1
CIRCLE (172, v), 3, 0, , , 1.1
PAINT (149, v), 0, 0
PAINT (172, v), 0, 0


PSET (160 - 11, v - 1): DRAW "C26RRC27R3C28R4C29R5C28R4C27R3C26RR"
PSET (160 - 12, v): DRAW "C27RC28RRC29R3C30R4C31R5C30R4C29R3C28RRC27R"
PSET (160 - 11, v + 1): DRAW "C26RRC27R3C28R4C29R5C28R4C27R3C26RR"

NEXT

END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB hoja (p)
SELECT CASE p
CASE 1
LINE (40, 30)-(154, 170), 15, BF
FOR h = 40 TO 150 STEP 5
FOR v = 30 TO 166 STEP 5
LINE (h, v)-STEP(5, 5), 11, B
NEXT
NEXT
LINE (53, 30)-(53, 170), 37, BF

CASE ELSE
LINE (165, 30)-(279, 169), 15, BF
FOR h = 165 TO 278 STEP 5
FOR v = 30 TO 166 STEP 5
LINE (h, v)-STEP(5, 5), 11, B
NEXT
NEXT

LINE (178, 30)-(178, 170), 37, BF
END SELECT

anillas

END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB separador (p, C)


SELECT CASE p
CASE 1: PSET (154, 90), C: GOSUB izquierdabajo
CASE 2: PSET (165, 90), C: GOSUB derechabajo
CASE 3: PSET (154, 129), C: GOSUB izquierdabajo
CASE 4: PSET (165, 129), C: GOSUB derechabajo
CASE 5: PSET (154, 168), C: GOSUB izquierdabajo
CASE 6: PSET (165, 168), C: GOSUB derechabajo

CASE 11: PSET (154, 90), C: GOSUB izquierdariba
CASE 12: PSET (165, 90), C: GOSUB derechariba
CASE 13: PSET (154, 129), C: GOSUB izquierdariba
CASE 14: PSET (165, 129), C: GOSUB derechariba
CASE 15: PSET (154, 168), C: GOSUB izquierdariba
CASE ELSE: PSET (165, 168), C: GOSUB derechariba

END SELECT

anillas

EXIT SUB
izquierdabajo:
DRAW "l120U12r15 TA31 r110 TA0 r11D59"
PAINT STEP(-1, -1), C, C
RETURN

derechabajo:
DRAW "R120U12L15 TA149 R110 TA0 L11D59"
PAINT STEP(1, -1), C, C
RETURN

izquierdariba:
DRAW "u59l120d12r15 TA329 r110 TA0 r11"
PAINT STEP(-1, -1), C, C
RETURN

derechariba:
DRAW "u59R120d12L15 TA211 R110 TA0 L11"
PAINT STEP(1, -1), C, C
RETURN

END SUB