DataMuseum.dk

top - metrics - download

    Length: 3840 (0xf00)
    Types: TextFile
    Names: »plottautxt«

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦97b7ffb00⟧ »ryplot« 
            └─⟦this⟧ 

TextFile

;ali time.200 lines.7000

mode list.yes
lookup plottautxt
lookup plotoscpr removerect  platsymtxt
if ok.no
contract from.ryplot plotoscpr removerect platsymtxt
lookup rydlist
if ok.yes
mode 15.yes
plottau=algol connect.no survey.yes
plottau
1981-04-01
begin
  integer i,sttime;
long  time;
real brmin,brsmin,xfactor,yfactor,size,charfactor;
integer array tail,ctail(1:10);
array output,pname,saven,name(1:3);
boolean allz,plotno,taukey,plottest,
  plottrue,pldate,plotosc,first,
  nocase,numcut,mode2;
algol list.off copy.rydstruct;
algol list.off copy.rydseg;
algol list.off copy.alutproc;
algol list.off copy.coreproc;
algol list.off copy.ryproc;
algol list.off copy.platsymtxt;
algol list.off copy.plotoscpr;
algol list.off copy.removerect;

procedure plottr(x1,y1,x2,y2,l1,l2,h,dl);
value x1,y1,x2,y2,l1,l2,h,dl; real x1,y1,x2,y2,l1,l2,h,dl;
begin
l1:=l1*size; l2:=l2*size;
x1:=x1+dl*l1;
x2:=x2-dl*l2;
dl:=2*abs dl;
removerect(x1,y1,x2,y2,l1-l1*dl,h);
removerect(x2,y2,x1,y1,l2-l2*dl,h);
plotline(x1,y1,x2,y2);
end;

algol list.off copy.ryglobal;
i:=lookuptail(<:plotoscc:>,ctail);
if i>0 then begin
  cleararray(ctail);
  i:=createentry(<:plotoscc:>,ctail);
  if i<>0 then alarm(<:***createentry plotosccount :>,i);
  end;
reserveproc(program-2,0);
if -,readinfp(name,1) then alarm(<:***no input:>);
readbfp(<:plot:>,plotno,false);
plottest:=plottest or plotno;
readbfp(<:mode2:>,mode2,true);
nsmax:=if mode2 and nsmax>7.1 then 7.1 else nsmax;
readrfp(<:nsmax:>,nsmax,nsmax);
readifp(<:start:>,sttime,-1);
readrfp(<:brmin:>,brmin, 10);
readrfp(<:brsmin:>,brsmin,25);
readrfp(<:xfactor:>,xfactor, 1.00);
readrfp(<:yfactor:>,yfactor, 1.00);
readrfp(<:charfactor:>,charfactor,yfactor);
readrfp(<:size:>,size, 1);
readbfp(<:taukey:>,taukey,false);
size:=sqrt(size);
readifp(<:z:>,Z,-1);
allz:=Z<1;
if Z>0 then Zmin:=Zmax:=Z;
readbfp(<:allz:>,allz,allz);
readbfp(<:plot:>,plottrue,true);
readbfp(<:osc:>,plotosc,false);
readbfp(<:plotdate:>,pldate,false);
readbfp(<:plottest:>,plottest,plottest);
readsfp(<:plotname:>,pname,<:houstona:>);
i:=1;
setplotname(string pname(increase(i)),0);
readsfp(<:savename:>,saven,<::>);
i:=lookuptail(saven,tail);
if -,(i=0 or i=6) then begin
  cleararray(tail);
  tail(1):=2;
  i:=createentry(saven,tail);
  if i<>0 then alarm(<:***create entry save :>,string inc(saven),i);
  permentry(saven,2);
  end;
plottrue:=plottrue and saven(1)<>real <::>;
comment saveplot(if plottrue then 1 else
 if saven(1)=real <::> then 3 else 0,string inc(saven),0);
readbfp(<:test:>,test,false);
write(out,<:<10>plotosccount = :>,ctail(5));
if Zmin<=ctail(5) then Zmin:=ctail(5)+1;
if sttime>=0 then begin
  allz:=true;
  sttime:=(sttime//100)*60+sttime mod 100;
  time:=getclock//10000//60; comment min;
  time:=time mod (24*60); comment time of day;
  i:=sttime-time; if i<0 then i:=i+24*60;
  write(out,<:<10>plotting starts at :>,<<dd.dd>,
    sttime//60+(sttime mod 60)/100,
    <:<10>waittime :>,i//60+(i mod 60)/100);
    outendcur(10);
    end;
algol list.off copy.ionloop;
finestruct:=chargestate(12)=-1;
  plottauosc(bsname,parterm,chargestates);
  if allz then
  begin
  i:=lookuptail(<:plotoscc:>,ctail);
  ctail(5):=if Z<Zmax then Z else 0;
  i:=changetail(<:plotoscc:>,ctail);
  if i<>0 then alarm(<:***changeentry plotoscc , result :>,i);
  end changeplotoscc;
end end end ionloop;
end;
if warning.yes
(
rydok=set ip warning
)
if warning.no
rydok=set ip ok
if list.yes
mode list.no 10.no

scope day plottau
finisb
▶EOF◀