|
10
Print"bobs-3d"
20
Print"By CSKI"
10 MODE
1:DEG:TAG:DEFINT a-z:DIM x(11,180),y(11,180):FOR a=1 to 11:READ px,py:FOR b=0 to
179:x(a,b)=(px*COS(b*2)-py*SIN(b*2))*18:y(a,b)=(py*COS(b*2)+ps*SIN(b*2))*COS(b*4)*18:NEXT
b,a:WINDOW#3,1,8,1,8:WINDOW#2,1,8,9,16:k=&BC00:l=&BD00:w=2:c=51:d=64:v=214
20 OUT k,6:OUT l,8:PAPER#2,0:FOR b=0 TO 179:FRAME:CLS#w:FOR a=1 TO 11:MOVE
54+x(a,b),v+y(a,b):PRINT"O";:NEXT:OUT k,12:OUT l,c XOR w:OUT k,13:OUT
l,d:d=d XOR 64:w=w XOR 1:v=v XOR 384:NEXT:GOTO 20:DATA 0,0,-1,2,-2,2,1,2,2,2,0,-1,-2,-2,2,-2,-1,-3,0,-3,1,-3
 
Deulignes : Rotation de bobs en 3D, le pourquoi du comment.
Explication :
La ligne 10 contient toutes les initialisations du programme : On efface l'écran, on définit les windows, etc. y(a,b) et x(a,b) sont précalculés, on aura enregistré 180 positions pour chacun des 11 points constituant notre petit smiley en bobs (dont les coordonnées de départ sont stockées à la fin de la ligne 20).
Pour information, voici la formule pour les rotations 3D :
Les deux lignes suivantes permettent de faire tourner l'image suivant l'axe des Z (celui qui sort perpendiculairement de l'écran). Pour les rotations suivant l'axe X, il faut remplacer les "x" de la formule par des "z", et les "angleZ" par des "angleX". Même chose pour la rotation suivant l'axe Y.
x'=x*cos(ngleZ) - y*sin(angleZ)
y'=y*cos(angleZ)+x*sin(angleZ)
Les matheux et les observateurs remarqueront deux choses : L'objet ne tourne que suivant deux axes, et on optimise furieusement grâce au fait que l'objet et plat, par conséquent toutes ses coordonnées Z sont à 0.
Note : Pourquoi utilise-t'on les windows 2 et 3 au lieu d'utiliser la 1 et la 2, par exemple ? Parce que le papier par défaut de la fenêtre 3 est de couleur zéro par défaut. On gagne donc une instruction "PAPER#3,0".
La ligne 20 du programme utilise à fond le principe de bascule : Comme le programme fonctionne par flipping (Je calcule une image, je l'affiche, pendant qu'elle apparait à l'écran j'en calcule une autre que je dessine une fois qu'elle est terminée, etc), on doit afficher en alternance 2 parties de la RAM vidéo, et on doit dessiner l'image à deux endroits de l'écran. Le principe de la bascule est simple : Plutôt que de faire deux routines, l'une affichant les images paire, et l'autre se chargeant des images impaires, on utilise des variables qui contiendront les paramètres qui nous intéressent. Par exemple, si on veux afficher un pixel alternativement en colonne 0 et en colonne 1, on utilisera une variable qui prendra alternativement ces deux valeurs. Pour passer facilement de l'une à l'autre, on utilise la fonction XOR qui est parfaite pour cela : Pour passer de la valeur A à la valeur B et vice versa, la valeur avec laquelles XORer notre variable est égale à A XOR B. Ainsi, si A XOR B = C et que la variable toto=A, alors toto XOR C nous donnera toto=B, si on réitère le calcul, toto XOR C nous redonne A ! La vie est belle.
Les outs qui se trouvent dans le programme sont très utiles : Le out &BC00,6:out &BD00,8 indique au CRTC qu'il devra afficher seulement 8 lignes de texte à l'écran. Attention, c'est de la programmation hard, le système considèrera qu'il a toujours à sa disposition un écran de 25 lignes ! Et on compte bien là-dessus. Les registres 12 et 13 du CRTC permettent de changer l'adresse de départ de l'écran. par exemple, si on envoie &3000 (respectivement &30 dans le reg 12, et &00 dans le reg 13), l'écran débute en &C000. Si on envoie &3001, l'écran débute en &c002, toutes les lignes de texte sont décalées d'un caractère vers la gauche ! Pour notre animation, comme on veut afficher une fois l'écran en &C000 et la portion d'écran qui se trouve huit lignes plus bas, on devra envoyer dans les registres 12 et 13 alternativement des &3000 et des &3000+8lignes*40 caractères, c'est à dire &3140, on devra envoyer alternativement les valeurs 49 et 50 dans le registre 12, et 0 et 64 dans le registre 13. Les variables C et d contiennent alternativement ces valeurs. En fait, c contient en permanence 49 xor 2, c'est pourquoi on envoie dans le registre 12 les valeurs c xor w. w, lui est une bascule. Pour quelle raison avoir fait cette pirouette ? Parce que Pour passer de 49 à 50 on doit faire un xor 1. Or w, qui passe de 2 à 3 a lui aussi besoin d'un xor 1 pour passer entre ses deux états. En utilisant que w comme bascule, on évite d'avoir à calculer c à chaque affichage (c=c xor 1).
A propos de l'instruction TAG : Cette dernière permet de positionner des caractères d'une manière plus fine qu'avec un simple locate. Grâce à TAG, on peut utiliser l'instruction MOVE plus placer les caractère au pixel près ! Attention, au moment du PRINT il faut toujours que la chaine se termine par un ";", sinon on verra apparaitre des caractères parasites à l'écran.
|
...a
new CPC Fanz'
