
QQun pourrait regardé ce q'il peut faire pour moi j'ai essayé de faire une routine de sprite du genre graphlib 'mais sans pompé ce que JM à fait !

Regardez plutôt:
zlklib:

zlklib@0009:
;d0.w = X
;d1.w = Y
;a0.l ecran
;a1.l sprite
;a2.l mask
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
move.w (a1)+,d4
move.w (a1)+,d5
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;d4.w = hauteur
;d5.w = largeur
sub.w #1,d4 ;On enlève 1 à d4 à cause du dbf
sub.w #1,d5 ;aussi.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
move.w d0,d7 ;on sauvegarde d7
put_sprite_start:
move.w #1,d3 ;on affiche un octet!
movem.l d0-d1/a0-a2,-(a7) ;On sauvegarde!
bsr sprite8 ;On affiche le sprite à [d0.w,d1.w] sur le buffer dont l'adresse est ds A0.l ,sprite a1.l ,mask a2.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
movem.l (a7)+,d0-d1/a0-a2
add.w #1,a2 ;on passe à l'autre octet sur le mask
add.w #1,a1 ;Et sur le sprite
;barre affiché !!!
add.w #8,d0 ;On ce place X à 8 pixel plus loin on saute un octet!
dbf d5,put_sprite_start ;recommence si nécéssaire
move.w d7,d0 ;On replace le X
add.w #1,d1 ;On incrémente le Y => ligne suivante!
dbf d4,put_sprite_start ;recommence une ligne si nécessaire !
rts
j'appelle cette routine de la façon suivante!
move.l #$4c00,a0 ;Plan d'affich...
move.l #sprite,a1
move.l #mask,a2
move.w #10,d0
move.w #10,d1
jsr zlklib:

jsr doorsos::GKeyIn
rts
sprite:
dc.w 2
dc.w 2
dc.w %1000000101111111
dc.w %1000000101111111
mask:
dc.w %1000000101111111
dc.w %1000000101111111
Eh ben ça m'affiche un gribouilli!