%include "edwin:specs.inc"
%include "edwin:consts.inc"
%include "utils:region"
%begin
%integer dev,num,x,y,l,i,j,a,b,c,d
%integer ref,size
%bytearray image(0:128*512)
%label quit

%onevent 9 %start
  closeinput
  selectinput(0)
  ->quit
%finish

accessfile("cubeb",0,ref,size)
readregion(ref,0,size,image(0))
deaccessfile(ref)

openoutput(1,"hs.pdf")
dev=default device
initialise for(dev)
newframe
storeon(1)

setcolour(green)
moveabs(0,50)
lineabs(1024,50)
lineabs(1024,50+256)
lineabs(0,50+256)
lineabs(0,50)

setcolour(black)
%for i=0,1,128 %cycle
  %for j=0,1,512 %cycle
    %if image(j+i*512)=1 %then markerabs(0,2*j,50+2*i)
  %repeat
%repeat

openinput(2,"hs")
selectinput(2)

setcolour(green)

moveabs(0,320)
lineabs(2*527,320)
lineabs(2*527,320+2*360)
lineabs(0,320+2*360)
lineabs(0,320)

setcolour(red)
read(num)
%for i=1,1,num %cycle
  read(x);read(y)
  markerabs(0,2*x,320+2*y)
%repeat

setcolour(black)
read(num)
%for i=1,1,num %cycle
  read(l);read(x);read(y)
  moveabs(2*x,320+2*y)
  linerel(0,2*l)
%repeat

closeinput
selectinput(0)

openinput(2,"linefile")
selectinput(2)
setcolour(red)
%cycle
  read(a);read(b);read(c);read(d)
  moveabs(2*a,50+2*b)
  lineabs(2*c,50+2*d)
%repeat

quit:
terminate edwin
%endofprogram