软件封面特技显示的语言实现(2)

main()
{
int drive=DETECT,mode,i;
int dx,dy;
float xr=2.5,yr=2.5;
char aa[]="汉字特技显示"/
if((fp1=fopen("e:\\pic","w+b"))==NULL)
{printf("Can not open file pic\n");
exit(1);}
if((text=fopen("e:\\textpic","w+b"))==NULL)
{printf("Can not open file textpic\n");
exit(1);}
initgraph(&drive,&mode,"d:\\tc");
setbkcolor(BLUE);
cleardevice();
for(i=10,i>1,i--)
{
dx=250-i20;
dy=150-5i;
cleardevice();
hzdisp(dx,dy,xr,yr,12,aa);
savescreen(dx,dy,dx+200xr,dy+24yr);
xr-=0.25;yr-=0.25;
}
getch();
fclose(fp1);
fclose(text);
closegraph();
}
/----------/
#include"stdio.h"
#include"graphics.h"
FILE fp1,text;
//
restorescreen(int x0,int y0,unsigned int length)
{
char bufs;
bufs=(char)malloc(length);
if(bufs==NULL)
{puts("malloc fail");exit(1);}
fread(bufs,length,1,fp1);
putimage (x0,y0,bufs,COPY-PUT);
free(bufs);
}
//
main()
{
int drive=DETECT,mode,i,j;
long keep=0;
int dx,dy;
unsigned int aa[10];
unsigned int ab;
ab=aa;
if((fp1=fopen("e:\\pic","rb"))==NULL)
{printf("Can not open file pic\n");
exit(1);}
rewind(fp1);
if((text=fopen("e:\\textpic","rb"))==NULL)
{printf("Can not open file textpic\n");
exit(1);}
rewind(text);
ab++;
for(i=0;i<9;i++)
{
fread(ab++,sizeof(unsigned int),1,text);
}
initgraph(&drive ,&mode,"d:\\tc");
setbkcolor(BLUE);
setcolor(12);
setfillstyle(SOLID-FILL,12);
for(i=9;i>1;i--)
{
setvisualpage(0);
setactivepage(1);
cleardevice();
restorescreen(40+(10-i)20,100+5(10-i),aa[10-i]);
i--;
setvisualpage(1);
setactivepage(0); （科教范文网 lw.AsEac.com编辑整理）
cleardevice();
restorescreen(40+(10-i)20,100+5(10-i),aa[10-i]);
}
for(i=9;i>0;i--)
{
setvisualpage(0);
setactivepage(1);
cleardevice();
for(j=1;j>i;j++)
keep+=aa[j];
fseek(fp1,keep,SEEK-SET);
keep=0;
restorescreen(40+i20,100+5i,aa[i]);
i--;
setvisualpage(1);
setactivepage(0);
cleardevice();
for(j=1;j<i;j++)
keep+=aa[j];
fseek(fp1,keep,SEEK-SET);
keep=0;
restorescreen(40+i20,100+5i,aa[i]);
}
getch();
fclose(fp1);
fclose(text);
closegraph();
}