G2F

From Atariki

(Różnice między wersjami)
Jump to: navigation, search
Wersja z dnia 23:01, 8 gru 2004
Tebe (Dyskusja | wkład)

← Previous diff
Wersja z dnia 23:02, 8 gru 2004
Tebe (Dyskusja | wkład)

Next diff →
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: 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:
-== +<math>
procedure TForm1.SaveG2F1Click(Sender: TObject); procedure TForm1.SaveG2F1Click(Sender: TObject);
var x,i,err:integer; var x,i,err:integer;
Linia 57: Linia 57:
end else PokazHelp; end else PokazHelp;
end; end;
-==+</math>

Wersja z dnia 23:02, 8 gru 2004

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:

<math> procedure TForm1.SaveG2F1Click(Sender: TObject); 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; </math>

Personal tools