Przeglądarka plików GRA

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:

VIEWGRA – aktualna wersja do pobrania

atari8.eu – czas na zabawę!

Strona fanów 8 bitowych komputerów Atari

Komentarze

Przeglądarka plików GRA — Brak komentarzy

Dodaj komentarz Anuluj pisanie odpowiedzi