Vous en faites pas, c'est pas un topic que j'ai posté pour vous poser des questions, mais la fonction ScrRectFill m'a posé problème pour la programmer sous AS(), c'est pour ca que je propose ce que j'ai réussi à faire. (Histoire de promouvoir AS, programmé par Nitro )
(Pour la sauvegarde d'écran, je me suis inspiré d'un code de Kévin Kofler sur ce forum)
include "ams_c"
; warning: label not for use
LCD_Save:
move.l d4,-(a7)
move.l #3840,-(a7)
jsr HeapAllocPtr
lea 4(a7),a7
move.l a0,d4
tst.l d4
beq memfail
move.l #3840,-(a7)
move.l #$4c00,-(a7)
move.l d4,-(a7)
jsr memcpy
lea 12(a7),a7
;warning: label not for use !
PRGM:
jsr clrscr
move.w #1,-(a7)
move.l #myscrrect2,-(a7)
move.l #myscrrect,-(a7)
jsr ScrRectFill
adda #10,a7
;warning: label not for use!
LCD_Save:
move.l #3840,-(a7)
move.l d4,-(a7)
move.l #$4c00,-(a7)
jsr memcpy
lea 12(a7),a7
memfail:
move.l d4,-(a7)
jsr HeapFreePtr
lea 4(a7),a7
move.l (a7)+,d4
rts
myscrrect: dc.b 0,0,159,99
myscrrect2: dc.b 20,20,50,50
==> trace un rectangle sur tout l'écran ... mais clipé par un rectangle de
(20,20)->(50,50)
(Est ce que les administrateurs peuvent déplacer mon topic dans la section assembleur?)
