DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦10efe0b01⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »plotstate«

Derivation

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

TextFile

procedure plotstate(n,l,S,L,J);
value n,l,S,L,J; integer n,l,S,L,J;
begin
comment plots a state in the notation of Condon and Shortley
as nl S L J;
real le,he;
le:=plotsize; he:=plotheight;
writeplot(<<d>,n,false add ryalf(l),1);
plotsize:=le/2; plotheight:=he/2;
plotmove(plotxpos+le/2/deltax,plotypos+he/2/deltay);
writeplot(<<d>,S+1);
plotmove(plotxpos+le/2/deltax,plotypos-he/2/deltay);
plotsize:=le; plotheight:=he;
if L<0 then L:=l;
writeplot(false add ryalf(L+256),1);
plotsize:=le/2; plotheight:=he/2;
if J>-1 then
begin
  writeplot(<<d>,J//2);
  if J mod 2 =1 then writeplot(<:/2:>);
end;
plotsize:=le; plotheight:=he;
end plotstate;
▶EOF◀