Stupnice k meraku

[Ales Prochaska]

Nekdo se me ptal na generovani souboru v HPGL, ale nemam ted po ruce
adresu, tak to posilam verejne. Program vygeneruje HPGL soubor na
nakresleni stupnice (musi se presmerovat do souboru s priponou .PLT)
a pak se importuje do Corelu jako PLT - HPGL soubor. Pred realnym
pouzitim se to musi samozrejme nalezite upravit a dopsat pismena,
ale to uz by melo byt jasne.
Ales Prochaska

const
  d2r      = 1/360*2*3.1415926; { prevod stupnu na radiany }
  zacatek  = -45.0*d2r;         { v radianech, nula je nahore }
  krok     = 5*d2r;             { uhlova vzdalenost carek v radianech }
  pocet    = 18;                { kolik carecek celkem nakreslit }
  r1       = 100;               { polomer roztecne kruznice v mm }
  delka    = 8;                 { delka carky v mm }

var
  i            : integer;
  a            : double;
  x0,y0,x1,y1  : double;


begin
  writeln('SP 1;'); { cerna barva }
  a:=zacatek;
  for i:=1 to pocet do begin
    { vypocitat souradnice jedne carky }
    x0:=r1*sin(a);
    y0:=r1*cos(a);
    x1:=(r1+delka)*sin(a);
    y1:=(r1+delka)*cos(a);
    { kreslit usecku [x0, y0] -- [x1, y1] }
    writeln('PU;'); 
    writeln('PA ',x0:0:4,',',y0:0:4,';'); 
    writeln('PD;'); 
    writeln('PA ',x1:0:4,',',y1:0:4,';');
    a:=a+krok;
    end {for};
  end.