'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                               ALTERNANCIA DIA Y NOCHE
DECLARE SUB casa ()
DECLARE SUB sol (x!, y!, radio!, C!)

NOCHE = 8
DIA = 41
VELOCIDAD = 0


SCREEN 9
PALETTE 12, 36
LINE (0, 270)-(640, 450), 10, BF
FOR a = 0 TO 400 STEP 110
   VIEW (a, 190)-(a + 220, 300)
   casa
NEXT
VIEW
COLOR , DIA
PALETTE 7, 63
WINDOW SCREEN (0, 0)-(640, 480)
sol 20, 20, 12, 14
CONST pi = 3.141592654#
CIRCLE (100, 20), 18, 7, pi / 2, 3 * (pi / 2)
CIRCLE (100, 20), 13, 7, pi / 2, 3 * (pi / 2), 1.6
PAINT (83, 20), 7, 7

DIM solar(1 TO 400)
DIM luna(1 TO 400)
GET (0, 0)-(40, 40), solar
GET (80, 0)-(120, 40), luna
PUT (80, 0), luna
  

DO

   FOR a = 0 TO 600 STEP 10
      FOR delay = 1 TO VELOCIDAD: NEXT
      COLOR , DIA
      PALETTE 15, 63
      PUT (x1, y1), solar, XOR
      x1 = a
      y1 = 250 - (SIN(ABS(a / 203.719)) * 150)
      LINE (0, 0)-(40, 40), 0, BF
      LINE (600, 220)-(640, 260), 0, BF
      PUT (x1, y1), solar
   NEXT
   PUT (0, 0), luna

   FOR a = 0 TO 600 STEP 10
      FOR delay = 1 TO VELOCIDAD: NEXT
      COLOR , NOCHE
      PALETTE 15, 15
      PUT (a1, b1), luna, XOR
      a1 = a
      b1 = 250 - (SIN(ABS(a / 203.719)) * 150)
      LINE (0, 0)-(40, 40), 0, BF
      LINE (600, 220)-(640, 260), 0, BF
      PUT (a1, b1), luna
   NEXT

LOOP WHILE INKEY$ = ""

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                       DIBUJA UNA CASA
SUB casa
LINE (120, 50)-(170, 80), 15, BF

FOR a = 0 TO 25
   LINE (145 - a, 25 + a)-(145 + a, 25 + a), 15
NEXT
LINE (158, 33)-(165, 50), 15, BF
FOR a = 0 TO 2
   LINE (145, 25 + a)-(115, 55 + a), 12
   LINE (145, 25 + a)-(175, 55 + a), 12
NEXT
LINE (138, 60)-(152, 80), 5, BF
LINE (140, 62)-(143, 74), 11, BF
LINE (147, 62)-(150, 74), 11, BF
LINE (125, 58)-(135, 70), 5, B
PAINT (126, 60), 14, 5
LINE (155, 58)-(165, 70), 5, B
PAINT (156, 60), 14, 5

CIRCLE (145, 40), 5, 5
PAINT (145, 40), 11, 5
PSET (145, 40), 5
DRAW "c5nu4nl4nd4nr4"
LINE (94, 60)-(100, 80), 6, BF
LINE (80, 80)-(190, 80), 10
CIRCLE (97, 40), 20, 2, , , 1.5
PAINT (97, 40), 2, 2

END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB sol (x, y, radio, C) STATIC
CIRCLE (x, y), radio, 14
PAINT (x, y), 14, 14
END SUB