void MHardcopy()
{
int yt,x,y,t,k;
int my;
int Dx;
byte Hi,Lo;
byte pr;
StateLP();
if (etatLP==1)
{
my=596;
EnteteLP();
Lp(27);Lp('~');Lp('5');Lp(1); /* mode IBM */
Lp(27);Lp('3');Lp(24); /* was 24 interligne 12/216 pouce */
Lp(10);Lp(13);
y=1;
Dx=780;
Hi=(byte)(Dx>>8);Lo=(byte)(Dx & 0x00FF);
while(y<=my)
{
/* Lp(27);Lp('Z');Lp(Lo);Lp(Hi);*/
/* Lp(27);Lp('K');Lp(Lo);Lp(Hi);*/
/* Lp(27);Lp('L');Lp(Lo);Lp(Hi);*/
Lp(27);Lp('Y');Lp(Lo);Lp(Hi); /* IBM mode 120 points /pouce */
for (x=10;x<=790;x++)
{
yt=y;
pr=0;
for (t=0;t<8;t++)
{
pr=pr << 1;
k=getpixel(x,yt); /* exclusion noir,gris,blanc clair */
/*if ((k!=0)&&(k!=8)&&(k!=7)) pr=pr|1;*/
if (k!=0) pr=pr|1;
yt++;
}
Lp(pr);
}
y=yt;
Lp(27);Lp('3');Lp(24); /* 8 aiguilles => 24/216= 8/72 eme */
Lp(10);Lp(13);
}
Lp(27);Lp('@');
Lp(27);Lp(2); /* 6 lignes par pouce */
Lp(13);Lp(10);
}
else
Couine();
}