First upload of the code.

git-svn-id: svn://pulkomandy.tk/GrafX2/trunk@2 416bcca6-2ee7-4201-b75f-2eb2f807beb1

dat/IMG2FNT.PAS

@@ -0,0 +1,88 @@
+program IMG2FNT;
+
+const
+  COULEUR_TEXTE=15;
+
+var
+  Fichier:file;
+  Image:array[0..20479] of byte;
+  Fonte:array[0..2047] of byte;
+  Offset_dans_image:longint;
+  Masque:byte;
+  Position:word;
+  i,j,k,l:word;
+  Errcode:integer;
+
+begin
+  if (paramcount<2) or (paramcount>3) then
+  begin
+    writeln('Syntaxe: IMG2FNT <Image> <Fonte> [offset dans l''image]');
+    writeln('Attention: ne pas taper les extensions!');
+    halt(1);
+  end;
+
+  if paramcount=3 then
+    begin
+      val(paramstr(3),Offset_dans_image,Errcode);
+      if Errcode<>0 then
+      begin
+        writeln('Syntaxe: IMG2FNT <Image> <Fonte> [offset dans l''image]');
+        writeln('Attention: ne pas taper les extensions!');
+        halt(1);
+      end;
+    end
+  else
+    Offset_dans_image:=0;
+
+  assign(Fichier,paramstr(1)+'.img');
+  reset(Fichier,1);
+  seek(Fichier,896+Offset_dans_image);
+  blockread(Fichier,Image,17280);
+  close(Fichier);
+
+  {Transformation de l'image en 0 pour le fond et 255 pour le texte}
+  for i:=0 to 17279 do
+    if Image[i]<>COULEUR_TEXTE
+      then Image[i]:=0
+      else Image[i]:=255;
+
+  for i:=0 to 255 do
+    for j:=0 to 7 do
+    begin
+      Fonte[(i shl 3)+j]:=0;
+      Masque:=128;
+      for k:=0 to 7 do
+      begin
+        asm {Position:=((i DIV 45)*2880) + ((i MOD 45)*8) + (j*360) +k}
+          mov  ax,i
+          mov  bl,45
+          div  bl
+          push ax
+          xor  ah,ah
+          mov  bx,2880
+          mul  bx
+          mov  dx,ax
+          pop  ax
+          mov  cl,8
+          shr  ax,cl
+          mov  cl,3
+          shl  ax,cl
+          add  dx,ax
+          add  dx,k
+          mov  Position,dx
+          mov  ax,j
+          mov  bx,360
+          mul  bx
+          add  Position,ax
+        end;
+        Fonte[(i shl 3)+j]:=Fonte[(i shl 3)+j] + (Masque and Image[Position]);
+        Masque:=Masque shr 1;
+      end;
+    end;
+
+  assign(Fichier,Paramstr(2)+'.fnt');
+  rewrite(Fichier,1);
+  blockwrite(Fichier,Fonte,2048);
+  close(Fichier);
+end.
+