|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2304 (0x900)
Types: TextFile
Names: »tplv«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦dd2c1b53f⟧ »tplot«
└─⟦this⟧
lookup stdvar
if ok.no
i tstdvar
lookup plotglobals
if ok.yes
(scope temp plotglobals
clear temp plotglobals)
plotglobals=set 1
plotglobals=stdvar list.no
begin
real sinthetax,sinthetay,marginx,marginy,plotxpos,
plotypos,plotxform,plotyform,plotxmin,plotxmax,
plotymin,plotymax,plotxcoor,plotycoor,
plotsubxmin,plotsubxmax,plotsubymin,plotsubymax,
plotvirtx,plotvirty,
plotname1,plotname2,plotname3,
charname1,charname2,charname3,
theta,phi,
plotheight=0.28, plotsize=0.2, linediff=0.56,
pointsize=0.2, deltax=1.0, deltay=1.0,
costhetax=1.0, costhetay=1.0, unitscale=1.0,
ztox=1.0,ztoy=1.0,zxyplan=0.0;
integer plottest,plotpda,netsize,
plotxstep,plotystep,plotposx,plotposy,
penstatus,plotstepno,
plotbsadd,plotbssegm,minutelim,
plotunit=53,absxmax=1023,absymax=781;
boolean plotspline,margintime,charoff,locrem,
plotrelmode,plotbs,
plotclosed,plotspline1,plotalpha,plotoff,
plottstst,
plotpl=true,autoscale=true;
long plottimeout;
end;
scope user plotglobals,
sinthetax sinthetay marginx marginy plotxpos plotypos,
plotxform plotyform plotxmin plotymin plotxmax plotymax,
plotxcoor plotycoor plotsubxmin plotsubymin,
plotsubxmax plotsubymax plotvirtx plotvirty charname1,
charname2 theta phi plotheight plotsize linediff pointsize,
deltax deltay costhetax costhetay unitscale ztox ztoy,
zxyplan plottest plotpda netsize plotxstep plotystep,
plotposx plotposy penstatus plotstepno plotname1 plotname2,
plotbsadd plotbssegm plotunit minutelim absxmax absymax,
plotspline margintime charoff locrem plotrelmode plotpl,
plotbs plotclosed plotspline1 plotalpha plotoff autoscale,
plottimeout
▶EOF◀