#include <stdio.h>
#include <alloc.h>
#include <ctype.h>
#include <dos.h>
#include <dir.h>
#include <io.h>
#include <graphics.h>
#define GETADR(n,str) (str *) calloc (n,sizeof(str))
#define W16 16
#define C16 32
unsigned char bit[8]={0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01};
FILE *fi;
char *dot,str[20];
main(int argc,char *argv[])
{
int i,j,nn,xc,yc,MaxX,MaxY,menul[1000];
int graphdriver=DETECT,graphmode;
if(argc!=2){
puts(“LT16<???.N4>“);
exit(0);
}
dot=GETADR(C16,char);
fnmerge(str,““,““,argv[1],“.N4“);
if((fi=fopen(str,“r“))==NULL){
puts(“Can‘t open DATA.“);
exit(0);
}
fscanf(fi,“%d“,&nn);
if(nn<=0||nn>1000)
exit(0);
for (i=0;i<nn;i++)
fscanf(fi,“%d“,&menul[i]);
fclose(fi);
if((fi=fopen(“CLIB16.DOT“,“rb“))==NULL){
puts(“Can‘t open CLIB16.DOT“);
exit(0);
}
initgraph(&graphdriver,&graphmode,““);
MaxX=getmaxx();
MaxY=getmaxy();
xc=0;
yc=20;
for(j=0;j<nn;j++){
i=readlibdot(menul[j]);
putchar16(xc,yc);
xc+=20;
if(xc>MaxX-20){
yc+=20;
xc=0;
if(yc>MaxY-20){
getch();
clearviewport();
yc=0;
}
}
}
getch();
closegraph();
}
readlibdot(int j)
{
int i0,j1,j2;
long order,k1;
j1=j/100;
j2=j-j1*100;
if(j1>=9)
j1=j1-6;
k1=94*j1+j2-95;
order=C16*k1;
fseek(fi,order,SEEK_SET);
i0=fread(dot,C16,1,fi);
return(i0);
}
putchar16(int bx,int by)
{
int i,j,kk,k,x1,y1;
unsigned char marker;
kk=0;
y1=by;
for(i=0;i<16;i++,y1++){
for(j=0;j<2;j++){
x1=bx+j*8;
marker=*(dot+kk);
kk++;
for(k=0;k<8;k++){
if(!(marker&bit[k]))
continue;
putpixel(x1+k,y1,YELLOW);
}
}
}
return;
}
