↓
 

Przeglądarka plików GRA

atari8.eu - czas na zabawę! Opublikowano w przez

  GRA nie jest żadnym standardem zapisu plików graficznych. Rozszerzenie takie to moja propozycja zapisu plików trybu graficznego Atari OS 10, po znanych i przyjętych przez lata rozszerzeniach GR7, GR8, GR9. Konstrukcja jest równie banalna co w plikach o przywołanych rozszerzeniach. 7680 bajtów pliku to dane RAW pamięci ekranu (80 pikseli x 192 linie), kolejne 9 bajtów to tablica kolorów dla rejestrów $D012-$D01A (lub rejestrów cieni $2C0-$2C8. Mówimy więc o obrazkach 9 kolorowych.

Odczytanie takiego pliku w Turbo Basic XL jest trywialne:

0 GRAPHICS 10
1 OPEN #1,4,0,”D:KROWKA.GRA”
2 BGET #1,DPEEK(88),7680: BGET #1,$2C0,9
3 CLOSE #1:GET X

Poniżej kod przeglądarki dla Sparta DOS X. Tak jak w poprzednich przeglądarkach umieszczenie w RUNEXT.CFG stosownego wpisu zautomatyzuje podgląd plików GRA:

RUNEXT.CFG:

GRA,B:\VIEWER\VIEWPIC.COM

 
;GRA Viewer, AtariFan, 221211
;atari@atari8.eu

 

BYTE
 DMACTLS=$022F,
 KBCODES=$02FC,
 ICCMD  =$0362

 

CARD
 X,Y,
 BUF   =$000A,
 EKR   =$0058,
 ICBUFA=$0364,
 ICBUFL=$0368

 

CHAR ARRAY F(15),P=0
 
Proc CIO()
 [$AD X $0A$0A$0A$0A$AA$20$56$E4]
Return

 

Proc GRA_VIEWER()
 Graphics(10)
 DMACTLS=0  ;wylacz ekran
 
 ;obrobka wiersza polecen
 X=BUF+$3F DO X==+1 IF P(X)=$20 THEN EXIT FI OD
 X==+1 Y=X DO Y==+1 IF P(Y)=$9B THEN EXIT FI OD
 Y=Y-X F(0)=Y+2 MOVEBLOCK(F+3,X,Y) F(1)=$44 F(2)=$3A

 

 ;otworz plik
 X=2 CLOSE(X) OPEN(X,F,4,0) ICCMD=7

 

 ;dane obrazu
 ICBUFA=EKR ICBUFL=7680 CIO()
 
 ;paleta kolorow
 ICBUFA=$02C0 ICBUFL=9 CIO()

 

 CLOSE(X)
 DMACTLS=34  ;wlacz ekran
 KBCODES=255 WHILE KBCODES=255 DO OD KBCODES=255
 GRAPHICS(0)
[$6C$0A$00]  ;powrot do SDX
 

Biblioteka:

Klub Action!

Komentowanie zamknięte.

↑