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

⟦4e52d7eaa⟧ TextFile

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

Derivation

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

TextFile

<* remove a rectangel 1981-04-04*>
procedure removerect(x1,y1,x2,y2,l,h);
value l,h; real l,h,x1,y1,x2,y2;
begin
real ar,dx,dy;
integer sdx,sdy;
dx:=x2-x1; sdx:=sign(dx);
dy:=y2-y1; sdy:=sign(dy);
ar:=h/l;
if ar*abs dx< abs dy then
  begin
  comment ar<a;
  y1:=y1+sdy*h/2;
  x1:=x1+dx/dy*sdy*h/2;
  end else
  begin
  comment ar>a;
  x1:=x1+sdx*l/2;
  y1:=y1+dy/dx*sdx*l/2;
  end;
end;
▶EOF◀