|
DataMuseum.dkPresents historical artifacts from the history of: ICL Comet 32 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about ICL Comet 32 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2533 (0x9e5)
Types: TextFile
Notes: UNIX file
Names: »hus.c«
└─⟦26887b7e0⟧ Bits:30009717 Comet 32 harddisk image
└─⟦28c352965⟧ »/a« UNIX Filesystem
└─⟦this⟧ »usr/src/gks/test/hus.c«
#include <stdio.h>
#include <gks.h>
Nrect Ndc = {0.0,0.0,1.0,1.0};
Wrect wdc = {0.0,0.0,30.0,25.0};
point *p;
point bg[8] = {{ 1.0, 11.0},
{1.0,24.0 },
{29.0,24.0},
{29.0,20.0},
{24.0,18.0},
{1.0,11.0},
{1.0,1.0},
{29.0,1.0}};
point hus[4] = {{ 4.0,17.0},
{ 21.0,17.0},
{ 21.0,9.0},
{ 4.0, 9.0}};
point gavelv[4] = {{ 4.0,17.0},
{ 5.0,17.0},
{ 5.0,9.0},
{ 4.0, 9.0}};
point gavelh[4] = {{ 20.0,17.0},
{ 21.0,17.0},
{ 21.0,9.0},
{ 20.0, 9.0}};
point grund[4] = {{ 4.0,10.0},
{ 21.0,10.0},
{ 21.0,9.0},
{ 4.0, 9.0}};
point tak[4] = {{ 5.0,20.0},
{ 20.0,20.0},
{ 23.0,17.0},
{ 2.0,17.0}};
point ss[4] = {{ 11.0,23.0},
{ 13.0,23.0},
{ 13.0,20.0},
{ 11.0,20.0}};
point yf[4] = {{ 6.0,16.0},
{ 11.0,16.0},
{ 11.0,11.0},
{ 6.0,11.0}};
point ifo[4] = {{ 7.0,15.0},
{ 10.0,15.0},
{ 10.0,12.0},
{ 7.0,12.0}};
point flin[8] = {{ 7.0,14.0},
{ 10.0,14.0},
{ 10.0,13.0},
{ 7.0,13.0},
{ 8.0,12.0},
{ 8.0,15.0},
{ 9.0,15.0},
{ 9.0,12.0}};
point yd[4] = {{ 13.0,16.0},
{ 18.0,16.0},
{ 18.0,9.0},
{ 13.0,9.0}};
point id[4] = {{ 14.0,15.0},
{ 17.0,15.0},
{ 17.0,9.0},
{ 14.0,9.0}};
point vag[4] = {{ 13.0,9.0},
{ 18.0,9.0},
{ 21.0,1.0},
{ 9.0,1.0}};
point krona[8] = {{ 26.0,11.0},
{ 24.0,13.0},
{ 22.0,15.0},
{ 23.0,19.0},
{ 25.0,25.0},
{ 27.0,19.0},
{ 28.0,15.0},
{ 26.0,13.0}};
point stam[6] = {{ 23.0,5.0},
{ 24.0,7.0},
{ 24.0,13.0},
{ 26.0,11.0},
{ 26.0,7.0},
{ 27.0,5.0}};
point blom[1] = {{ 15.0,12.0}};
main()
{
Wsi wst;
Wrect *wr;
Nrect *nr;
p = bg;
wr = &wdc;
open_gks();
if ((wst = open_ws(1)) == NULL){
printf("error open_ws\n");
exit(0);
}
activate(wst);
s_fa_is(1);
nr = &Ndc;
s_window(1,wr);
s_viewport(1,nr);
s_cntran(1);
s_fa_co(2);
fillarea(5,p);
s_fa_co(1);
p++;
p++;
p++;
fillarea(5,p);
p = hus;
s_fa_co(4);
fillarea(4,p);
p = tak;
s_fa_co(0);
fillarea(4,p);
p = ss;
fillarea(4,p);
p = stam;
fillarea(6,p);
p = grund;
fillarea(4,p);
p = yf;
s_fa_co(7);
fillarea(4,p);
p = yd;
fillarea(4,p);
p = gavelv;
fillarea(4,p);
p = gavelh;
fillarea(4,p);
p = ifo;
s_fa_co(2);
fillarea(4,p);
p = id;
s_fa_co(0);
fillarea(4,p);
p = vag;
s_fa_co(5);
fillarea(4,p);
s_fa_co(1);
p = krona;
fillarea(8,p);
s_fa_is(0);
s_fa_co(5);
p = krona;
fillarea(8,p);
s_mk_co(5);
s_mk_ty(3);
p = blom;
polymark(1,p);
p = flin;
s_pl_co(7);
polyline(4,p);
p++;
p++;
p++;
p++;
polyline(4,p);
}