G2F
From Atariki
(Różnice między wersjami)
| Wersja z dnia 23:01, 8 gru 2004 Tebe (Dyskusja | wkład) ← Previous diff |
Aktualna wersja Tebe (Dyskusja | wkład) |
||
| Linia 1: | Linia 1: | ||
| - | Format pliku G2F jest przystosowany dla programu Graph2Font. Autor z lenistwa uprościł go maksymalnie, przez co objętość plików G2F jest dosyć spora, średnio 160KB. Jeśli ktoś pragnie poznać szczegóły, oto one: | + | {{disambig}} |
| - | == | + | * [[Graph2Font]] |
| - | procedure TForm1.SaveG2F1Click(Sender: TObject); | + | * [[G2F (format pliku)]] |
| - | var x,i,err:integer; | + | |
| - | begin | + | |
| - | if (gate>0) and (done>0) then begin | + | |
| - | + | ||
| - | zm:=plik('.g2f'); assignfile(dane,zm); rewrite(dane,1); | + | |
| - | + | ||
| - | bufor[0]:=Bajt; bufor[1]:=Pixel; bufor[2]:=Zestaw; | + | |
| - | blockwrite(dane,bufor,3); | + | |
| - | + | ||
| - | // zapisz screen | + | |
| - | for x:=0 to 29 do begin | + | |
| - | if mapa[x]=0 then blockwrite(dane,scren[CzarnyPas shr 3+x*48],bajt); | + | |
| - | end; | + | |
| - | + | ||
| - | fillchar(temp,sizeof(temp),$ff); | + | |
| - | for x:=0 to 29 do if mapa[x]=0 then temp[table[x]]:=0; | + | |
| - | for x:=0 to 15 do begin | + | |
| - | if temp[x]=0 then blockwrite(dane,fonty[x shl 10],1024); | + | |
| - | end; | + | |
| - | + | ||
| - | // zapisz table | + | |
| - | blockwrite(dane,table,30); | + | |
| - | + | ||
| - | // zapisz colors | + | |
| - | blockwrite(dane,TabKolor,5*$100); | + | |
| - | + | ||
| - | // zapisz sprites | + | |
| - | blockwrite(dane,TabKolor[$500],4*$100); | + | |
| - | + | ||
| - | blockwrite(dane,Spr0,$200); blockwrite(dane,Mis0,$200); | + | |
| - | blockwrite(dane,Spr1,$200); blockwrite(dane,Mis1,$200); | + | |
| - | blockwrite(dane,Spr2,$200); blockwrite(dane,Mis2,$200); | + | |
| - | blockwrite(dane,Spr3,$200); blockwrite(dane,Mis3,$200); | + | |
| - | + | ||
| - | blockwrite(dane,Smask,$800); | + | |
| - | blockwrite(dane,Sprajt,240*290); | + | |
| - | blockwrite(dane,SprajtX,240*290); | + | |
| - | + | ||
| - | //znacznik 5-ego sprita i Mode (GED+, DLI) | + | |
| - | fillchar(bufor,256,0); | + | |
| - | bufor[1]:=form1.RadioGroup4.ItemIndex+1; | + | |
| - | blockwrite(dane,bufor,256); | + | |
| - | + | ||
| - | blockwrite(dane,raster,240*24); | + | |
| - | + | ||
| - | blockwrite(dane,gfxMode,30); //gfxMode | + | |
| - | blockwrite(dane,bufor,240-30); | + | |
| - | + | ||
| - | val(form12.Edit1.Text,i,err); bufor[0]:=i+8; blockwrite(dane,bufor,16); | + | |
| - | + | ||
| - | closefile(dane); SaveAfterExit:=false; | + | |
| - | + | ||
| - | end else PokazHelp; | + | |
| - | end; | + | |
| - | == | + | |
