TUTO Amateur 00 RC_COPY

GFA :: TUTOS :: Amateurs

Aller en bas

TUTO Amateur 00 RC_COPY

Message par Shadow272 le Ven 29 Déc - 6:54

RC_COPY

Fonction servant à copier des blocs graphiques en général pour les déplacer sur l'écran ou vers un autre écran.
Très utiliser pour des animations ou traitement des bouton de boîtes à dialogue personalisées.
Facile à mettre en oeuvre.

CLS
XB%=XBIOS(2) Adresse de l'écran physique
RC_COPY xb%,5,5,12,8 to xb%,50 20
~INP(2)

Ce petit exemple copie un bloc de 12 pixels de large sur 8 pixels de haut se situant sur l'écran physique à la position (coin haut gauche) aux pixel 5,5 vers l'écran physique à la position 50,20
avatar
Shadow272
Admin

Messages : 132
Date d'inscription : 28/12/2017
Age : 59
Localisation : Hainaut Belgique

Voir le profil de l'utilisateur http://toutatari.blog4ever.xyz/

Revenir en haut Aller en bas

Re: TUTO Amateur 00 RC_COPY

Message par Shadow272 le Lun 10 Sep - 10:52

Un autre exemple qui vous permettra de faire de l'animation à l'aide de sprites avec transparence et tout et tout..

Code:

CLS
'
xb%=XBIOS(2)
'
DEFFILL 5
PBOX 0,0,319,199
DEFFILL 0
PBOX 0,0,40,40
DEFFILL 2
PBOX 279,0,319,40
' PBOX 279,159,319,199
' PBOX 0,159,40,199
DEFFILL 1
PBOX 0,41,40,82
DEFFILL 1
PCIRCLE 20,20,20
PCIRCLE 299,20,20
' PCIRCLE 299,179,20
' PCIRCLE 20,179,20
'
DEFFILL 0
PCIRCLE 20,61,20
'
PRINT AT(7,8);" "
PRINT AT(38,7);" "
PRINT AT(7,3);" "
PRINT AT(23,9);" "
'
PRINT AT(7,8);"<"
PRINT AT(9,1);"COPY  MASK"
PRINT AT(11,2);"MODE 1"
RC_COPY xb%,0,41,40,40 TO xb%,82,60,1
PRINT AT(1,15);"En MODE 1 seule"
PRINT AT(1,16);"la couleur de fond"
PRINT AT(1,17);"est copi‚e"
REPEAT
UNTIL MOUSEK=1
REPEAT
UNTIL MOUSEK=0
'
DEFFILL 8
PBOX 184,60,264,150
'
PRINT AT(7,8);" "
PRINT AT(38,7);"^"
PRINT AT(24,1);"COPY BLOCK"
RC_COPY xb%,279,0,40,40 TO xb%,184,60
REPEAT
UNTIL MOUSEK=1
REPEAT
UNTIL MOUSEK=0
'
PRINT AT(38,7);" "
PRINT AT(7,3);"<"
PRINT AT(24,3);"COPY  MASK"
PRINT AT(26,4);"MODE 1"
RC_COPY xb%,0,0,40,40 TO xb%,194,70,1
REPEAT
UNTIL MOUSEK=1
REPEAT
UNTIL MOUSEK=0
'
PRINT AT(7,3);" "
PRINT AT(23,9);">"
PRINT AT(9,4);"COPY BLOCK"
PRINT AT(11,5);"+ MASK"
PRINT AT(11,5);"MODE 7"
RC_COPY xb%,194,70,40,40 TO xb%,82,60,7
PRINT AT(1,19);"En MODE 7 la couleur"
PRINT AT(1,20);"de fond devient transparente et les"
PRINT AT(1,21);"autres couleurs sont copi‚e sur"
PRINT AT(1,22);"le masque de couleur 0"
REPEAT
UNTIL MOUSEK=1
REPEAT
UNTIL MOUSEK=0
'
EDIT
avatar
Shadow272
Admin

Messages : 132
Date d'inscription : 28/12/2017
Age : 59
Localisation : Hainaut Belgique

Voir le profil de l'utilisateur http://toutatari.blog4ever.xyz/

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

GFA :: TUTOS :: Amateurs

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum