'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                               RELLENO MOSAICO BOTONES Y OTROS EFECTOS
'
'
'
DECLARE SUB boton (h!, v!, l!, a!, sol!, sombra!, cara!, borde!)
 
SCREEN 12

s = 15
sm = 8
c = 7
B = 0


dis = 20
lad = 16
PAINT (1, 1), c



FOR h = -dis * .9 TO 640 + dis STEP dis * 4
   FOR v = -dis * .9 TO 480 + dis STEP dis * 4

      boton h, v, ((dis * 2) + lad), lad, s, sm, c, B
      boton h + dis * 3, v - dis, lad, ((dis * 2) + lad), s, sm, c, B
      boton h, v + dis, lad, lad, s, sm, c, B
      boton h + dis, v + dis, lad, ((dis * 2) + lad), s, sm, c, B
      boton h + dis * 2, v + dis, lad, lad, s, sm, c, B
      boton h + dis * 2, v + dis * 2, ((dis * 2) + lad), lad, s, sm, c, B
      boton h, v + dis * 3, lad, lad, s, sm, c, B
      boton h + dis * 2, v + dis * 3, lad, lad, s, sm, c, B

   NEXT
NEXT

  
SLEEP




FOR h = 100 TO 200
   FOR v = 100 TO 200
      cl = POINT(h, v) - 8
      IF cl < 0 THEN cl = 8
      PSET (h, v), cl
   NEXT
NEXT


SLEEP


FOR ad = 20 TO 235 STEP 20
   boton ad, ad, 640 - ad - ad, 480 - ad - ad, s, sm, c, B
NEXT

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'               
'
'                                                              Hecho en RONDA
'
'DIBUJA EN LA PANTALLA UN BOTàN PARECIDO A LOS DE WINDOWS
'
'        H= POSICIàN HORIZONTAL DE LA ESQUINA SUPERIOR DERECHA
'        V= POSICIàN VERTICAL DE LA ESQUINA SUPERIOR DERECHA
'        L= LARGO DEL BOTàN
'        A= ALTO DEL BOTàN
'      SOL= COLOR DE LA PARTE ILUMINADA IZQUIERDA Y SUPERIOR
'   SOMBRA= COLOR DE LA PARTE OSCURA DERECHA E INFERIOR
'     CARA= COLOR DE LA PARTE FRONTAL DEL BOTàN
'    BORDE= COLOR DE LA LINEA QUE RODEA AL BOTàN
'
'
'   Nota: Loos valores de L y A no deben ser menores de 10
'
'
SUB boton (h, v, l, a, sol, sombra, cara, borde)
LINE (h, v)-STEP(l, a), borde, B
LINE (h + 1, v + 1)-STEP(l - 2, a - 2), sol, B
LINE (h + 2, v + 2)-STEP(l - 3, a - 3), sombra, B
LINE (h + 2, v + 2)-STEP(l - 4, a - 4), sol, B
LINE (h + 3, v + 3)-STEP(l - 5, a - 5), sombra, B
LINE (h + 3, v + 3)-STEP(l - 6, a - 6), cara, BF
END SUB