Pour dessiner un pixel sur vg5000 en Basic 



00 setet 65,"00000000010000000000": redéfini le caractere "A"

10 seteg 65,"00000000010000000000": redéfini le caractere "A"

20 ET 1,0,0: rem initialise la couleur du caractere graphique setet en rouge

30print "A": rem affiche le caractere redefini 

50 EG 4,6,0: rem initialise la couleur du caractere graphique seteg en bleu

60print "A": rem affiche le caractere redefini 



Commentaires

Enregistrer un commentaire

Posts les plus consultés de ce blog

Dessiner en quatre couleurs sur VG5000

Image
  Download Touche 1=rouge touche 2=vert touche 3=blanc touche A=stylo levé touche Z=efface touches direction pour ce déplacer source ;org 28672 push hl ld hl,_ef9345 call $00ad _org: ld a,31 ld (_setet),a ld a,31 ld (_caractere),a ld a,0 ld (_cursorx),a ld a,41 ld (_cursory),a ld hl,21000 _buildsetet1:             ;--------------build seteT--------------------           ld a,(_setet); numero de caractere a definir           inc a           ld (_setet),a           ld  a,(_setet)                       jp z,_suite1           call $001B ; construction des incremente HL de 10           jp _buildsetet1 _suite1: _fillx1: ld a,$d8 ld (_mode),a  ld a,(_caractere)  inc a  ld (_caractere),a ld a,135 ld (_color),a   ld a,(_cursorx)  inc a  ld (_cursorx),a  ld hl,_ef9345suite  call $00ad  ld a,(_cursorx)  cp 16  jp nz,_fillx1 ld a,0 ld (_cursorx),a ld a,42 ld (_cursory),a _fillx2: ld a,$d8 ld (_mode),a  ld a,(_caractere)  inc a  ld (_caractere),a ld a,135 ld (_color),a   ld a,(_cursorx)  inc a  ld
Lire la suite
Image
Hire resolution VG5000   Voila un bitmap de 128 x 120 pour le VG5000 et son algorithme si dessus. On ne peut pas faire mieux. DOWNLOAD Necessite l'émulateur DCVG5k pour la demo et plus tard je vous donnerai les fichiers pour  le vrai VG5000µ.  l ogiciel assembleur pour developper   en multi-couleur 60 pixels x 120: DO WNLOAD
Lire la suite