DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »execplotxt«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »execplotxt« 

TextFile

;program til udplot af fil genereret af plotfx mm
; rene moss 7-4-80/29-3-82
execplot=set 160
execplot=algol
begin
integer i;
integer field fi;
real field fx,fy;
long array field fla;
array PLOTNAME(1:2);
fi:=2; fx:=6; fy:=10;
fla:=0;
initfp;
if fpinareas<=0 then alarm(<:***connect plotfil:>);
if -,readsfp(<:plotter:>,PLOTNAME,<::>) then
begin
  connectcuri(<:v:>);
  reads(<:plotter:>,PLOTNAME);
  unstackcuri
end;
i:=1;
setplotname(string PLOTNAME(increase(i)),0);
setposition(in,0,0);
inrec(in,128);
plotform(in(117),in(118),in(119));
plotsubform(0,plotxform,plotyform-in(120),plotyform,false);
setmargin(2,in(120)-1.05);
writeplot(<:<12>f(x): :>,in.fla);
plotmove(0,0); pendown; plotmove(plotxform,0); penup;
plotsubform(0,plotxform,0,plotyform-in(120),false);
plotautcoor(in(125),in(126),in(127),in(128));
setposition(in,0,1);
inrec6(in,10);
for i:=in.fi while i<maxinteger do
begin
  if i<=0 then
  begin
    if i=-1 then penup
    else
    if i=-2 then pendown;
    plotmove(in.fx,in.fy)
  end
  else
  if i<16 then plotpoint(in.fx,in.fy,in.fi);
  inrec6(in,10)
end;
penup;
plotclose
end
▶EOF◀