P9------------------------------------

    Rasterbars con nata montada

    Un articulo de:   X+e+l+e

------------------------------------P8

Hola, amigos, de  nuevo  he decidido
ponerme a escribir para esta nuestra
maravillosa Fanzine, en esta ocasión
la cosa va de programación, intenta-
re que la lectura  de este  artículo
os sea lo mas  amena  posible  y que
además si  estais  empezando ahora a
programar aprendais a hacer un boni-
to efecto para vuestras propias pro-
ducciones.

¡¿ Que ya  sabes  programar ?!, pues
entonces lee mi artículo, aunque so-
lo sea para reirte de lo mal que re-
dacto y de mis faltas de hortografía
vale, ya no me enrollo mas ahí va el
textillo en cuestión.

Voy a iniciar con este artículo, una
serie que  dedicaré a mostraros como
se  hacen (bueno, como los  hago yo)
esos efectillos que  se veían en las
intros y demos antiguas, en esta oca
sion le toca al turno a las

          P<RasterBarsP8

Este efecto suele consistir en una o
mas barras de colorines (generalmen-
te degradadas para  dar la sensación
de que son barras solidas),  que van
moviendose por la pantalla de arriba
a abajo o al contrario y rebotan con
los limites de la pantalla, se colo-
can unas encima de otras para que pa
rezca que unas barras estan mas cer-
ca de ti, etc. En fin, un efecto muy
viejo pero bonito.

Y vamos allá:

Las RasterBars son  llamadas también
CopperBars y es el Copper el que las
genera y el que las mueve.

(Para entender el resto del articulo
teneis que saber al menos las instru
cciones del Copper, son 3 nada más )

Empezaremos por lo mas sencillo, po-
ner una de estas barras en la panta-
lla, haced lo siguiente dentro de la
lista copper:

Bien lo que vamos a hacer es que va-
mos a esperar a que el rayo llegue a
la posicion donde queremos que se di
buje nuestra barra, algo asi:

barra1  (esto es la etiqueta)

  DC.W  $9601,$fffe  ($96 = 150)

            ^
     WAIT --'

Esperamos a la linea 150, bien ahora
tenemos que cambiar el color del fon
do para que nuestra barra  empieze a
verse, imaginemos que  el  color del
fondo es negro (Color 0 = $180 = $0)
seguimos en la copperlist:

  DC.W  $0180,$0600

            ^
     MOVE --'

Cambiamos a  un rojo oscuro, esto es
porque  queremos  que nuestra  barra
sea oscura por los  bordes y  que se
vaya aclarando conforme llega al cen
tro (para que parezca un cilindro),
lo siguiente es facil esperamos a la
siguiente linea y cambiamos el color
a un poco mas claro:

  DC.W  $9701,$fffe,$0180,$0700

            ^             ^
     WAIT --'      MOVE --'

y asi continuaremos hasta  llegar al
rojo mas claro, o sea ($0f00), a par
tir de ahi repetimos pero  en vez de
aclarar, oscurecemos  el rojo  hasta
que lleguemos al color  rojo ($0600)
con el que empezamos la barra.Muy bi
en, ¿ Te funciona ?, pues  venga que
sigo.

Seguro que ya te has dado  cuenta de
una  cosa, que si  desde el programa
tu varias los  WAITs y  le sumas 1 a
todos  entonces  puedes hacer que la
barra vaya para abajo y si le quitas
1 que vaya para arriba... puessss si
claro que se puede hacer ,sería algo
asi:

(Dentro de tu programa o mejor de la
interrupcion de nivel 3)

        lea     Bar1,a0

;apuntamos a0 a la direccion donde
;estan los datos que forman la bar
;en la copperlist

        move.l  #18,d0

;segun mis calculos nuestra barra
;tiene 19 lineas de alto y por lo
;tanto 19 WAITs para cambiar
;le quitamos uno por que usamos la
;instruccion DBRA para hacer bucle

Bucle

        add.w   #$0100,(a0)

;sumamos 1 al WAIT

        add.w   #8,a0

;y apuntamos al siguiente WAIT, el
;8 se suma porque tenemos :
;2 palabras del WAIT = 4 bytes +
;2 palabras del MOVE = 4 bytes
;                    ------------
;                      8 bytes

        dbra    d0,bucle

;cerramos el bucle y ya esta la bar
;moviendose

Hay que decir que esto es una chapu-
za de rutina que  vosotros  tendreis
que  mejorar, joder, teneis que tra-
bajar un poco por los menos, digo yo
Bueno, ahora viene la parte dificil,
poner muchas barras y hacer que se
muevan todas unas encimas de otras y
que reboten y que reboten con suavi-
dad, etc, etc, etc

(Os dejo un rato para que penseis co
mo hacer todo esto)

A que se te ocurre lo que  hemos he-
cho antes con los waits pero para mu
chas barras, pues no señor, no puede
ser asi, asi esta mal...bueno si  ni
tan siquiera se te ha  pasado por la
cabeza  hacerlo asi, perdona  por la
bronca...

¿Entonces como hay que hacerlo?

Pues la cosa es asi:

1) Hay que preparar una copperlist en
la que se ponen  muchos WAITS, tantos
como lineas tenga  el trozo de panta-
lla en el que las rasterbars se van a
mover, estos WAITS  iran  acompañados
de MOVES pero en vez de cambiar el co
lor del fondo lo  que van  a hacer es
poner el color de fondo negro.Ejemplo

(supongamos que el trozo es desde la
linea 100 a la 200), en copperlist:

TrozoparaBars   (etiqueta)

     WAIT 100  MOVE (fondo negro)
     WAIT 101  MOVE (fondo negro)
           .
           .
           .
     WAIT 200  MOVE (fondo negro)

2) Ahora definimos como van a ser nu
estras barras, en cualquier otra par
te  de la memoria vamos a hacer unas
tablas con los colores de las barras
(es  como  coger las 2as palabras de
to   dos   los   MOVEs   y  ponerlas
aparte),ej:

Barra1colores

  dc.w $008,$009,$00a,$00b,$00c,$00d
  dc.w $00e,$00f,$00e,$00d,$00c,$00b
  dc.w $00a,$009,$008

;esto seria una bonita barra azul

3) Bien ,ahora necesitamos una forma
de que se muevan, despues de  probar
bastante vi que lo mejor para conse-
guir un buen movimiento era  hacerme
una tabla con las posiciones por don
de iran pasando todas las barras, mi
tabla es una funcion matemática (cre
o que era SENO o algo asi), y estaba
ajustada al trozo de pantalla y a la
copperlist  (luego explicaré porqué)
el programa que la generaba lo  hice
en Basic, podeis usar la  tabla  que
viene en el Source si no quereis mo-
lestaros en haceros una tabla propia
solo recordad en apuntaros el numero
de posiciones que tenga la tabla.

(Pausa para mear)

4) Ya que  tenemos  estos  elementos
listos vamos a pasar a hacer la ruti
na, (he de decir que no voy a escri-
bir la rutina aqui, para eso  teneis
el  source,  comprendedlo, me pueden
dar las uvas si lo hago) ,primero ex
plico en que se fundamenta:

-La rutina  simplemente lo que  hace
es copiar las tablas de  colores que
antes definimos (2) en un orden pre-
determinado y en una posicion deter-
minada  por la  tabla  de posiciones
que hicimos anteriormente (3), voy a
pararme en esto para que sepais como
esta hecha la tabla:

-La tabla podra  tener todos los va-
lores que se quieran pero cuantos me
nos haya menos suave y mas rapido se
rá el movimiento (tenedlo en cuenta)

-Los valores de la tabla deberan es-
tar comprendidos  entre 0 (que seria
el primer WAIT de la copperlist),  y
el numero de lineas WAIT que pongas
en la copperlist - 1 linea, ejemplo:

Hicimos una copperlist con 40 lineas
con WAIT y MOVE, nos da igual el nu-
mero de linea que pone en los WAIT,
lo que interesa es cuantas lineas he
mos escrito como :

  dc.w   $0901,$fffe,$0180,$0000 

¿Se comprende ya o no?, en este caso
los valores de la tabla estarian en-
tre 0 y 39 (40 lineas - 1)

-Otra cosa los valores primero y ul-
timo deben poder empalmarse (no pen-
seis mal, que no va de eso la cosa)

Ejemplo:

tabla     (etiqueta)
        dc.w  0   ;primero
        dc.w  1
        dc.w  2
        dc.w  3
        dc.w  2
        dc.w  1	  ;último

Esta tablilla haria un movimiento de
abajo a arriba y  de arriba a abajo,
pero sin ningún corte  brusco, y  de
eso se trata, que no haya corte algu
no , ten en cuenta que cuando la ba-
rra se encuentre en la  ultima posi-
cion de la tabla (no de la pantalla)
volverá a la primera  posición y asi
consigues que las  barras se  muevan
con fluidez y sin cortes.Mi tabla es
una  cosa  asi: (fijarse  en como se
empalma la primera con la ultima)
 
 -     __   linea 0 en copperlist
      /  \ 
    ./    \    .
 -         \__/  ultima linea

Los puntos son las posiciones ultima
y primera.

Bueno, como estoy  cansado paso ya a
explicar como trabaja la rutina y vo
sotros os la averiguais con el sour-
ce (viene muy comentado). Decir tam-
bien que he  utilizado  como  rutina
de inicialización la  de  Troglobyte
(todavia soy un aprendiz), porque me
gusta mucho y es compatible con 1200

--------------------
Rasterbars (esquema)
--------------------

;clear copperlist

-Primero borramos todo  el trozo que
usamos para que se muevan las barras
para que no haya rastros indeseados.

;Copybars to copperlist

-Ahora copiamos las tablas  de colo-
res de las barras a los  Moves de la
copperlist (las ultimas en ser copia
das seran las que se veran encima de
las primeras en  copiarse). La copia
se hace a partir del offset  dado en
la tabla de posiciones):

Primero cargamos el puntero donde es
tan  los  datos de las tablas y otro
puntero  donde estan los datos de la
copperlist, el cálculo para saber la
posición de memoria correcta A DONDE
tenemos que copiar es el siguiente:

 (offset dado en la tabla * 8 bytes)

Esto nos daría la direccion donde es
ta  el  WAIT, pero nosotros queremos
cambiar  el MOVE por lo le sumamos 6
bytes mas.Ahora solo tenemos que ha-
cer  bucles  y aumentar los punteros
con una poquita de inteligencia para
que  apunten a la direccion correcta
(no preocuparse que viene todo en el
source)

Tambien  decir  que cada barra tiene
que  llevar una variable que indique
que  posicion tiene esa barra dentro
de  la  tabla  de posiciones para la
copperlist  (¿complicado?),  esto es
para  que una barras vayan atrasadas
respecto a otras , si no estarían to
das  en las mismas posiciones y sólo
se  veria la ultima que pintáramos y
eso sería una mierda.Estas variables
contendran valores entre 0 y el nume
ro de posiciones que tenga la tabla,
prueba a cambiarlo en el source y lo
grarás comprender su finalidad.

;Comprobaciones para las barras

Esto es lo último (¡por fin!), ya es
cuestion  de  realizar  unas cuantas
comprobaciones y de aumentar las va-
riables de posición ,la comprobacion
es  ver si ha llegado al final y po-
nerlas a 0 si es asi.

También  hay por ahi otras variables
que  solamente son para almacenar la
proxima  posición,  realmente  se me
ocurre  que modificando la rutina un
poco  no hacen ni siquiera falta, pe
ro  eso os lo dejo a vosotros, si os
apetece experimentar con la rutina.

No  se si habré explicado con clari-
dad  como se hace el efecto ( repito
que  es  como yo lo hago, a lo mejor
no  es la mejor forma, pero funciona
y  eso es lo importante) pero es que
esta  rutina  la hize hace un par de
semanas  antes  de  escribir  esto y
claro  no me acuerdo de todos los de
talles,  pero bueno a lo mejor os va
le,  si  es asi, me doy por satisfe-
cho,  si no, pues gracias por llegar
hasta  el final del artículo, se des
pide atentamente:

        XELE / ODRUSBA

Si  quereis  contactar  conmigo para
cualquier  cosa  relacionada  con el
ENSAMBLADOR o la programación:


-Podeis  llamarme  al (957)-269794 ,
preguntar  por  Josele  y charlar un
ratito de lo que te de la gana...

-Podeis escribir a:

    José Moreno Prieto
    C/ Fosforito, 4
    14014 Córdoba

Aunque os digo que soy muy vago y no
envio  respuestas  rápidas  a nadie,
aunque mis cartas suelen ser bastan-
te  largas  y a lo mejor hasta traen
una sorpresita dentro...

  ¡Eeesso es totototodoo Amigos!


NOTA: En el directorio de  programa-
ción encontrareis la rutina enterita
para que podais hacer cosillas.