Category : C Source Code
Archive : CADSRC.ZIP
Filename : T-18.C
Output of file : T-18.C contained in archive : CADSRC.ZIP
t-18.c
FUNCTION: Draws container design of a soft drink can.
Compatibility: Supports VGA/EGA/CGA/MCGA graphics adapters and monitors.
NOTE: You need the *.BGI files that come with Turbo-C for this to run.
___________________________________________________________________
INCLUDE FILES */
#include
#include
#include
#include
#include
/*________________________________________________________________
DECLARATIONS */
float x=0.0,y=0.0,z=0.0;
float x1=0.0,x2=0.0,x3=0.0;
float y1=0.0,y2=0.0,y3=0.0;
float z1=0.0,z2=0.0,z3=0.0;
float sx1=0.0,sx2=0.0,sx3=0.0,sx4=0.0,sx5=0.0;
float sy1=0.0,sy2=0.0,sy3=0.0,sy4=0.0,sy5=0.0;
float sx=0.0,sy=0.0;
float xa=0.0,ya=0.0,za=0.0;
float d=1200.0;
double r1=5.09448;
double r2=5.09448;
double r3=6.28319;
double sr1=0.0,sr2=0.0,sr3=0.0;
double cr1=0.0,cr2=0.0,cr3=0.0;
float mx=0.0,my=-10.0,mz=-350.0;
int maxx=639,minx=0,maxy=199,miny=0;
float screen_x=639,screen_y=199;
float rx=0.0,ry=0.0;
int t=0,t1=0,t2=0, p1=0;
int C0=0,C1=1,C2=2,C3=3,C4=4,C5=5,C6=6,C7=7,C8=8,C9=9,C10=10,
C11=11,C12=12,C13=13,C14=14,C15=15,mode_flag=0;
int key_matte_clr=6, edge_clr=7, solid_clr=0;
float x_res,y_res;
float sp=0.0;
float sp1=0.0,sp2=0.0, sp3=0.0;
int NORM_HUE=0, BASE_CLR=0, CC4=0,CC5=0;
unsigned short CC6=0xffff;
float xs=0,ys=0,zs=1;
float v4=0.0;
int v5=0,v6=11,v7=0;
float xu=0.0,yu=0.0,zu=0.0;
float xn=0.0,yn=0.0,zn=0.0;
float xv=0.0,yv=0.0,zv=0.0;
float v1=0.0,v2=0.0,v3=0.0;
float xw=0.0,yw=0.0,zw=0.0;
char fill_0[]={0,0,0,0,0,0,0,0};
char fill_3[]={0,32,0,0,0,2,0,0};
char fill_6[]={32,0,2,0,128,0,8,0};
char fill_12[]={32,2,128,8,32,2,128,8};
char fill_25[]={68,17,68,17,68,17,68,17};
char fill_37[]={146,41,148,73,164,73,146,73};
char fill_50[]={85,170,85,170,85,170,85,170};
char fill_62[]={109,214,107,182,91,182,109,182};
char fill_75[]={187,238,187,238,187,238,187,238};
char fill_87[]={223,253,127,247,223,253,127,247};
char fill_93[]={255,223,255,255,255,253,255,255};
char fill_100[]={255,255,255,255,255,255,255,255};
float database_1[]={
2,2,1,-1,-2.5,-3.8,-4.8,-6,-6.7,-7.5,-8,-8.5,
-8.8,-9.2,-10,-10.2,-10.9,-11,-11.2,-11.5,-11.7,
-11.9,-12,-12,-11.9,-11.7,-11.5,-11.2,-11,-10.9,
-10.2,-10,-9.2,-8.8,-8.5,-8,-7.5,-6.7,-6,-4.8,
-3.8,-2.5,-1,1,2 };
float database_2[]={
26,26,28,29.2,31,32,33,34,35,35.8,36.5,37,37.2,
37.5,37.8,38,38.2,38.3,38.5,38.6,38.6,38.6,38.5,
38.3,38.2,38,37.8,37.5,37.2,37,36.5,35.8,35,
34,33,32,31,29.2,27.5,25.2,23 };
float database_3[]={
26,26,25.5,25,24.5,24.2,24,23.8,23.7,23.7,23.7,
23.7,23.7,23.7,23.8,23.9,23.9,24,24.1,24.2,24.5,
24.8,25.1,25.3,25.3,25.5,25.8,26,26,25.8,25.7,
25.6,25.5,25.2,25.1,25,24.5,24.3,23.8,23.7,23 };
float database_4[]={
8.2,7.9,7.5,7.1,7,6.9,6.8,6.7,6.6,6.6,6.6,
6.7,6.7,6.7,6.8,6.9,7,7.1,7.3,7.5,8,8.2,8.6,
8.9,9,9.1,9.4,9.6,9.9,10,10,10,10,9.9,9.8,9.5,
9.4,9.1,8.9,8.4,8 };
float database_5[]={
8.2,7,5.5,3.7,2,0,-1,-2,-2.8,-3.8,-4.5,-5.1,
-5.7,-5.9,-6.3,-6.7,-7,-7.2,-7.3,-7.4,-7.5,-7.5,
-7.4,-7.3,-7.1,-7,-6.7,-6.5,-6,-5.5,-4.8,-4,-3.2,
-2.5,-1.5,-0.5,0.5,2.1,3.5,6,8 };
int q=0,q1=0,q2=0;
double r4=6.28319,r5=6.28319;
float B11[36][3];
float B12[36][3];
float B21[36][2];
float B22[36][2];
double sr4=0.0,cr4=0.0,sr5=0.0,cr5=0.0;
void keyboard(void);void quit_pgm(void);void calc_3d(void);
void rotation(void); void window(void); void graphics_setup(void);
void coords(void);void draw_poly(void);void notice(int x, int y);
void illumination(void);void dither(void);void shade(void);
void visibility_test(void);
void values(void);void cyl_coords(void); void draw_surface(void);
/*___________________________________________________________
MAIN ROUTINE */
main()
{
graphics_setup();
setviewport(0,0,maxx,maxy,1);
key_matte_clr=C6;edge_clr=C7;solid_clr=C0;
NORM_HUE=C7;
rotation();
if (mode_flag==4) my=0.0;
sx=170;sy=72;coords();sx1=sx;sy1=sy;sx=470;sy=98;coords();sx2=sx;sy2=sy;
setfillpattern(fill_6,C1);bar(sx1,sy1,sx2,sy2);
sx=170;sy=98;coords();sx1=sx;sy1=sy;sx=470;sy=132;coords();sx2=sx;sy2=sy;
setfillpattern(fill_12,C1);bar(sx1,sy1,sx2,sy2);
sx=170;sy=132;coords();sx1=sx;sy1=sy;sx=470;sy=168;coords();sx2=sx;sy2=sy;
setfillpattern(fill_25,C1);bar(sx1,sy1,sx2,sy2);
sx=170;sy=168;coords();sx1=sx;sy1=sy;sx=470;sy=204;coords();sx2=sx;sy2=sy;
setfillpattern(fill_37,C1);bar(sx1,sy1,sx2,sy2);
sx=170;sy=204;coords();sx1=sx;sy1=sy;sx=470;sy=240;coords();sx2=sx;sy2=sy;
setfillpattern(fill_50,C1);bar(sx1,sy1,sx2,sy2);
sx=170;sy=240;coords();sx1=sx;sy1=sy;sx=470;sy=276;coords();sx2=sx;sy2=sy;
setfillpattern(fill_62,C1);bar(sx1,sy1,sx2,sy2);
sx=170;sy=276;coords();sx1=sx;sy1=sy;sx=470;sy=312;coords();sx2=sx;sy2=sy;
setfillpattern(fill_75,C1);bar(sx1,sy1,sx2,sy2);
sx=170;sy=312;coords();sx1=sx;sy1=sy;sx=470;sy=348;coords();sx2=sx;sy2=sy;
setfillpattern(fill_87,C1);bar(sx1,sy1,sx2,sy2);
sx=170;sy=348;coords();sx1=sx;sy1=sy;sx=470;sy=384;coords();sx2=sx;sy2=sy;
setfillpattern(fill_100,C1);bar(sx1,sy1,sx2,sy2);
r4=0;r5=0;
for (t=0;t<=35;t++)
{
x=30;cyl_coords();z=z+50;calc_3d(); window();
B11[t][0]=x;B11[t][1]=y;B11[t][2]=z;
B21[t][0]=sx;B21[t][1]=sy;
keyboard();
r5=r5+0.17453;
}
r4=0;r5=0;
for (t=0;t<=35;t++)
{
x=30;cyl_coords();z=z-50;calc_3d(); window();
B12[t][0]=x;B12[t][1]=y;B12[t][2]=z;
B22[t][0]=sx;B22[t][1]=sy;
keyboard();
r5=r5+0.17453;
}
for (q1=0;q1<=35;q1++)
{
q2=q1+1; if (q2>35) q2=0;
draw_surface();
keyboard();
}
x1=B11[0][0];y1=B11[0][1];z1=B11[0][2];
x2=B11[25][0];y2=B11[25][1];z2=B11[25][2];
x3=B11[11][0];y3=B11[11][1];z3=B11[11][2];
visibility_test(); if (sp>0) goto all_done;
setcolor(key_matte_clr);setfillstyle(SOLID_FILL,key_matte_clr);
setlinestyle(USERBIT_LINE,0xffff,NORM_WIDTH);
for (q1=0;q1<=35;q1++)
{
q2=q1+1; if (q2>35) q2=0;
sx1=B21[q1][0];sy1=B21[q1][1];
sx2=B21[q2][0];sy2=B21[q2][1];
moveto(sx1,sy1);lineto(sx2,sy2);
}
x=0.0;y=0.0;z=50.0;calc_3d();window();floodfill(sx,sy,key_matte_clr);
keyboard();setcolor(edge_clr);
for (q1=0;q1<=35;q1++)
{
q2=q1+1; if (q2>35) q2=0;
sx1=B21[q1][0];sy1=B21[q1][1];
sx2=B21[q2][0];sy2=B21[q2][1];
moveto(sx1,sy1);lineto(sx2,sy2);
}
x=0;y=0;z=50.0;calc_3d();window();
setfillstyle(SOLID_FILL,solid_clr);floodfill(sx,sy,edge_clr);
x=0.0;y=0.0;z=50.0;calc_3d();window();sx5=sx;sy5=sy;
illumination();shade();keyboard();
for (q1=0;q1<=35;q1++)
{
q2=q1+1; if (q2>35) q2=0;
sx1=B21[q1][0];sy1=B21[q1][1];
sx2=B21[q2][0];sy2=B21[q2][1];
setlinestyle(USERBIT_LINE,0xffff,NORM_WIDTH);setcolor(CC4);
moveto(sx1,sy1);lineto(sx2,sy2);
setlinestyle(USERBIT_LINE,CC6,NORM_WIDTH);setcolor(CC5);
moveto(sx1,sy1);lineto(sx2,sy2);
}
setlinestyle(USERBIT_LINE,0xffff,NORM_WIDTH);
edge_clr=C4;
if (mode_flag==4) edge_clr=C6;
setcolor(edge_clr);
x=30;r5=2.601631;cyl_coords();z=-40;calc_3d();window();
moveto(sx,sy);putpixel(sx,sy,edge_clr);
x=30;r5=2.601631;cyl_coords();z=2.5;calc_3d();window();
lineto(sx,sy);
x=30;r5=0.490874;cyl_coords();z=-40;calc_3d();window();
moveto(sx,sy);putpixel(sx,sy,edge_clr);
x=30;r5=0.490874;cyl_coords();z=2.5;calc_3d();window();
lineto(sx,sy);
keyboard();
x=30;r5=0.490874;cyl_coords();z=-40;calc_3d();window();
moveto(sx,sy);putpixel(sx,sy,edge_clr);
for (r5=0.490874;r5<=2.601631;r5+=0.0490873)
{
keyboard();x=30;cyl_coords();z=-40;calc_3d();window();
lineto(sx,sy);
}
p1=0;
r5=0.490874;x=30;cyl_coords();z=database_1[p1];p1++;calc_3d();window();
moveto(sx,sy);putpixel(sx,sy,edge_clr);
for (r5=0.490874;r5<=2.601631;r5+=0.0490873)
{
keyboard();x=30;cyl_coords();
z=database_1[p1];p1++;calc_3d();window();
lineto(sx,sy);
}
x=30;r5=1.570796;cyl_coords();z=-25;calc_3d();window();
setfillstyle(SOLID_FILL,edge_clr);
floodfill(sx,sy,edge_clr);
edge_clr=C4;
if (mode_flag==4) edge_clr=C6;
setcolor(edge_clr);
p1=0;
x=30;r5=0.638136;cyl_coords();z=database_2[p1];p1++;calc_3d();window();
moveto(sx,sy);putpixel(sx,sy,edge_clr);
for (r5=0.638136;r5<=2.552544;r5+=0.0490873)
{
keyboard();x=30;cyl_coords();
z=database_2[p1];p1++;calc_3d();window();lineto(sx,sy);
}
p1=0;
x=30;r5=0.638136;cyl_coords();z=database_3[p1];p1++;calc_3d();window();
moveto(sx,sy);putpixel(sx,sy,edge_clr);
for (r5=0.638136;r5<=2.552544;r5+=0.0490873)
{
keyboard();x=30;cyl_coords();
z=database_3[p1];p1++;calc_3d();window();lineto(sx,sy);
}
x=30;r5=1.570796;cyl_coords();z=32;calc_3d();window();
setfillstyle(SOLID_FILL,edge_clr);
floodfill(sx,sy,edge_clr);
edge_clr=C1;
if (mode_flag==4) edge_clr=C6;
setcolor(edge_clr);
p1=0;
x=30;r5=0.638136;cyl_coords();z=database_4[p1];p1++;calc_3d();window();
moveto(sx,sy);putpixel(sx,sy,edge_clr);
for (r5=0.638136;r5<=2.552544;r5+=0.0490873)
{
keyboard();x=30;cyl_coords();
z=database_4[p1];p1++;calc_3d();window();lineto(sx,sy);
}
p1=0;
x=30;r5=0.638136;cyl_coords();z=database_5[p1];p1++;calc_3d();window();
moveto(sx,sy);putpixel(sx,sy,edge_clr);
for (r5=0.638136;r5<=2.552544;r5+=0.0490873)
{
keyboard();x=30;cyl_coords();
z=database_5[p1];p1++;calc_3d();window();lineto(sx,sy);
}
x=30;r5=1.570796;cyl_coords();z=0;calc_3d();window();
setfillstyle(SOLID_FILL,edge_clr);
floodfill(sx,sy,edge_clr);
all_done:
setcolor(C7);notice(0,0);
for (t1=1;t1!=2; ) keyboard();
quit_pgm();
}
/*_________________________________________________________________
FUNCTION: calculate world coordinates for cylinder
*/
void cyl_coords(void)
{
sr4=sin(r4);cr4=cos(r4);sr5=sin(r5);
cr5=cos(r5);x1=sr5*x;y=cr5*x;x=cr4*x1;z=sr4*x1;
return;
}
/*_________________________________________________________________
FUNCTION: draw polygonal surface on cylinder.
*/
void draw_surface(void)
{
x1=B11[q1][0];y1=B11[q1][1];z1=B11[q1][2];
x2=B11[q2][0];y2=B11[q2][1];z2=B11[q2][2];
x3=B12[q2][0];y3=B12[q2][1];z3=B12[q2][2];
visibility_test(); if (sp>0) return;
sx1=B21[q1][0];sy1=B21[q1][1];
sx2=B21[q2][0];sy2=B21[q2][1];
sx3=B22[q2][0];sy3=B22[q2][1];
sx4=B22[q1][0];sy4=B22[q1][1];
x=x1+0.5*(x3-x1);y=y1+0.5*(y3-y1);z=z1+0.5*(z3-z1);
sx=d*x/z;sy=d*y/z;window();sx5=sx;sy5=sy;
draw_poly();
illumination();shade();dither();
return;
}
/*_________________________________________________________________
FUNCTION: calculate SIN,COS factors
*/
void rotation(void)
{
sr1=sin(r1);sr2=sin(r2);sr3=sin(r3);cr1=cos(r1);cr2=cos(r2);
cr3=cos(r3);
return;
}
/*_________________________________________________________________
FUNCTION: standard 3D formulas
*/
void calc_3d(void)
{
x=(-1)*x;xa=cr1*x-sr1*z;za=sr1*x+cr1*z;x=cr2*xa+sr2*y;
ya=cr2*y-sr2*xa;z=cr3*za-sr3*ya;y=sr3*za+cr3*ya;x=x+mx;y=y+my;
z=z+mz;sx=d*x/z;sy=d*y/z;
return;
}
/*_________________________________________________________________
FUNCTION: hidden surface visibility test
*/
void visibility_test(void)
{
sp1=x1*(y2*z3-y3*z2);sp1=(-1)*sp1;sp2=x2*(y3*z1-y1*z3);
sp3=x3*(y1*z2-y2*z1);sp=sp1-sp2-sp3;
return;
}
/*_____________________________________________________________
SUBROUTINE: draw 4-sided SOLID polygon in 3D space
*/
void draw_poly(void)
{
setlinestyle(USERBIT_LINE,0xffff,NORM_WIDTH);
setcolor(key_matte_clr);moveto(sx1,sy1);
lineto(sx2,sy2);lineto(sx3,sy3);lineto(sx4,sy4);lineto(sx1,sy1);
setfillstyle(SOLID_FILL,key_matte_clr);floodfill(sx5,sy5,key_matte_clr);
setcolor(edge_clr);moveto(sx1,sy1);
lineto(sx2,sy2);lineto(sx3,sy3);lineto(sx4,sy4);lineto(sx1,sy1);
setfillstyle(SOLID_FILL,solid_clr);floodfill(sx5,sy5,edge_clr);
return;
}
/*_____________________________________________________________
SUBROUTINE: calculate illumination level
*/
void illumination(void)
{
xu=x2-x1;yu=y2-y1;zu=z2-z1;
xv=x3-x1;yv=y3-y1;zv=z3-z1;
xn=(yu*zv)-(zu*yv);yn=(zu*xv)-(xu*zv);zn=(xu*yv)-(yu*xv);
yn=yn*(-1);zn=zn*(-1);
v1=(xn*xn)+(yn*yn)+(zn*zn);
v2=sqrt(v1); v3=1/v2;
xw=v3*xn;yw=v3*yn;zw=v3*zn;
v4=(xw*xs)+(yw*ys)+(zw*zs);
v4=v4*v6; v7=v4;; v5=v7+1;
return;
}
/*_____________________________________________________________
SUBROUTINE: illumination matrix
*/
void shade(void)
{
switch (v5)
{
case 1: setfillpattern(fill_6,NORM_HUE);CC6=0x1010;values();return;
case 2: setfillpattern(fill_6,NORM_HUE);CC6=0x1010;values();return;
case 3: setfillpattern(fill_6,NORM_HUE);CC6=0x1010;values();return;
case 4: setfillpattern(fill_12,NORM_HUE);CC6=0x2020;values();return;
case 5: setfillpattern(fill_25,NORM_HUE);CC6=0x2222;values();return;
case 6: setfillpattern(fill_37,NORM_HUE);CC6=0xaaaa;values();return;
case 7: setfillpattern(fill_50,NORM_HUE);CC6=0xaaaa;values();return;
case 8: setfillpattern(fill_62,NORM_HUE);CC6=0xaaaa;values();return;
case 9: setfillpattern(fill_75,NORM_HUE);CC6=0xbbbb;values();return;
case 10: setfillpattern(fill_87,NORM_HUE);CC6=0xdddd;values();return;
case 11: setfillpattern(fill_93,NORM_HUE);CC6=0xefef;values();return;
case 12: setfillpattern(fill_100,NORM_HUE);CC6=0xffff;values();return;
default: setfillpattern(fill_6,NORM_HUE);CC6=0x1010;values();
}
return;
}
/**** local subfunction ***/
void values(void)
{
floodfill(sx5,sy5,edge_clr);CC4=BASE_CLR;CC5=NORM_HUE;
return;
}
/*_____________________________________________________________
SUBROUTINE: apply dithering
*/
void dither(void)
{
setlinestyle(USERBIT_LINE,0xffff,NORM_WIDTH);setcolor(CC4);
moveto(sx1,sy1);lineto(sx2,sy2);lineto(sx3,sy3);
lineto(sx4,sy4);lineto(sx1,sy1);
setlinestyle(USERBIT_LINE,CC6,NORM_WIDTH);setcolor(CC5);
moveto(sx1,sy1);lineto(sx2,sy2);lineto(sx3,sy3);
lineto(sx4,sy4);lineto(sx1,sy1);
return;
}
/*_________________________________________________________________
FUNCTION: map cartesian coords to physical screen coords.
*/
void window(void)
{
sx=sx+399;sy=sy+299;rx=screen_x/799;ry=screen_y/599;sx=sx*rx;
sy=sy*ry;
return;
}
/*____________________________________________________________________
SUBROUTINE: press any key to quit... */
void keyboard(void)
{
if (bioskey(1) == 0) return;
else quit_pgm();
}
/*____________________________________________________________________
SUBROUTINE: graceful exit from the program */
void quit_pgm(void)
{
cleardevice(); restorecrtmode();exit(0);
}
/*___________________________________________________________________
SUBROUTINE: vga/ega/cga/mcga compatibility module */
void graphics_setup(void)
{
int graphics_adapter,graphics_mode;
detectgraph(&graphics_adapter,&graphics_mode);
if (graphics_adapter==VGA) goto VGA_mode;
if (graphics_mode==EGAHI) goto EGA_ECD_mode;
if (graphics_mode==EGALO) goto EGA_SCD_mode;
if (graphics_adapter==CGA) goto CGA_mode;
if (graphics_adapter==MCGA) goto CGA_mode;
goto abort_message;
VGA_mode:
graphics_adapter=VGA;graphics_mode=VGAHI;
initgraph(&graphics_adapter,&graphics_mode,"");
x_res=640;y_res=480;mode_flag=1;
maxx=639;minx=0;maxy=479;miny=0;screen_x=639;screen_y=479;
setcolor(7);moveto(0,472);
outtext("640x480 16-color VGA mode");
moveto (472,472);
outtext("Press any key to Quit");
moveto(184,0);
outtext("Using TURBO C to generate a packaging design");
return;
EGA_ECD_mode:
graphics_adapter=EGA;graphics_mode=EGAHI;
initgraph(&graphics_adapter,&graphics_mode,"");
x_res=640;y_res=350;mode_flag=2;
maxx=639;minx=0;maxy=349;miny=0;screen_x=639;screen_y=349;
setcolor(7);moveto(0,342);
outtext("640x350 16-color EGA mode");
moveto (472,342);
outtext("Press any key to Quit");
moveto(184,0);
outtext("Using TURBO C to generate a packaging design");
return;
EGA_SCD_mode:
graphics_adapter=EGA;graphics_mode=EGALO;
initgraph(&graphics_adapter,&graphics_mode,"");
x_res=640;y_res=200;mode_flag=3;
maxx=639;minx=0;maxy=199;miny=0;screen_x=639;screen_y=199;
setcolor(7);moveto(0,192);
outtext("640x200 16-color EGA mode");
moveto (472,192);
outtext("Press any key to Quit");
moveto(184,0);
outtext("Using TURBO C to generate a packaging design");
return;
CGA_mode:
graphics_adapter=CGA;graphics_mode=CGAC3;
initgraph(&graphics_adapter,&graphics_mode,"");
x_res=320;y_res=200;mode_flag=4;
maxx=319;minx=0;maxy=199;miny=0;screen_x=319;screen_y=199;
C0=0;C1=1;C2=1;C3=1;C4=1;C5=1;C6=2;C7=3;C8=1;C9=3;C10=3;
C11=3;C12=3;C13=3;C14=3;C15=3;
setcolor(3);moveto(48,192);
outtext("320x200 4-color CGA & MCGA mode");
moveto(104,0);outtext("Using TURBO C ");
return;
abort_message:
printf("\n\nUnable to proceed.\n");
printf("Requires VGA/EGA/CGA/MCGA adapter\n");
printf(" with appropriate monitor.\n");
printf("Please refer to LEE ADAMS book HIGH-Performance CAD Graphics in TURBO C.\n\n");
exit(0);
}
/*__________________________________________________________
SUBROUTINE: map 640x480 template to 2D screen */
void coords(void)
{
sx=sx*(x_res/640);sy=sy*(y_res/480);return;
}
/*__________________________________________________________
SUBROUTINE: copyright notice */
int copyright[][3]={0x7c00,0x0000,0x0000,0x8231,
0x819c,0x645e,0xba4a,0x4252,0x96d0,0xa231,0x8252,0x955e,0xba4a,
0x43d2,0xf442,0x8231,0x825c,0x945e,0x7c00,0x0000,0x0000};
void notice(int x, int y)
{
int a,b,c; int t1=0;
for (t1=0;t1<=6;t1++)
{
a=copyright[t1][0];b=copyright[t1][1];
c=copyright[t1][2];
setlinestyle(USERBIT_LINE,a,NORM_WIDTH);
moveto(x,y);lineto(x+15,y);
setlinestyle(USERBIT_LINE,b,NORM_WIDTH);
moveto(x+16,y);lineto(x+31,y);
setlinestyle(USERBIT_LINE,c,NORM_WIDTH);
moveto(x+32,y);lineto(x+47,y);y=y+1;
}
setlinestyle(USERBIT_LINE,0xFFFF,NORM_WIDTH);
return;
}
/* END */
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/