'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB cara (h!, v!, CAD$)
SCREEN 12
RANDOMIZE TIMER

'cara/-ojos*-gafas/-pelo*
PAINT (1, 1), 9
FOR h = 55 TO 600 STEP 75
   FOR v = 55 TO 380 STEP 100
      IF RND > .5 THEN a$ = "1" ELSE : a$ = "0"
      b$ = RIGHT$(STR$(INT(RND * 4)), 1)
      IF RND > .5 THEN c$ = "1" ELSE : c$ = "0"
      d$ = RIGHT$(STR$(INT(RND * 8)), 1)
      cara h, v, a$ + b$ + c$ + d$
   NEXT
NEXT

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB cara (h, v, CAD$)
   LINE (h - 20, v - 30)-(h + 40, v + 50), 1, BF
   LINE (h - 30, v - 35)-(h + 30, v + 45), 15, BF
   LINE (h - 27, v - 32)-(h + 27, v + 30), 2, BF
   IF MID$(CAD$, 1, 1) = "1" THEN : CIRCLE (h, v), 20, 12, , , 1.2: PAINT (h, v), 12, 12:  ELSE : CIRCLE (h, v), 20, 6, , , 1.2: PAINT (h, v), 6, 6
   CIRCLE (h - 6, v - 5), 4, 0, 0, 3.14
   CIRCLE (h + 6, v - 5), 4, 0, 0, 3.14
   CIRCLE (h - 6, v - 5), 3, 15
   CIRCLE (h + 6, v - 5), 3, 15
   PAINT (h - 6, v - 5), 15, 15
   PAINT (h + 6, v - 5), 15, 15
   oj = VAL(MID$(CAD$, 2, 1))
   CIRCLE (h - 5, v - 4), 1, oj
   CIRCLE (h + 7, v - 4), 1, oj
   PSET (h - 5, v - 4), oj
   PSET (h + 7, v - 4), oj
   CIRCLE (h, v + 2), 2, 4
   PAINT (h, v + 2), 4, 4
   IF MID$(CAD$, 3, 1) = "1" THEN
      CIRCLE (h - 6, v - 5), 6, 1
      CIRCLE (h + 6, v - 5), 6, 1
      DRAW "br6nr5bl24nl5"
   END IF
   pe = VAL(MID$(CAD$, 4, 1))
   SELECT CASE pe
      CASE 0: cpp = 0
      CASE 1: cpp = 6
      CASE 2: cpp = 7
      CASE 3: cpp = 8
      CASE 4: cpp = 12
      CASE 5: cpp = 14
      CASE 6: cpp = 15
   END SELECT
   IF cp < 7 THEN
      FOR hh = h - 12 TO h + 12 STEP 2
         LINE (hh, v - 25)-STEP(0, 10), cpp
      NEXT
   END IF
   CIRCLE (h, v + 7), 8, 4, 3.14, 0, .6
   LINE (h - 8, v + 7)-(h + 8, v + 7), 4
   PAINT (h, v + 8), 4, 4
   LINE (h - 2, v + 7)-(h - 1, v + 8), 15, BF
   LINE (h + 2, v + 7)-(h + 1, v + 8), 15, BF
END SUB