%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
%real m
%bytearray image,thin(0:128*512)
%constreal     xmult=1.264705882
%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,"lines.pdf")
dev=default device
initialise for(dev)
newframe
storeon(1)

setcolour(red)
%for i=0,1,128 %cycle
  %for j=100,1,400 %cycle
    %if image(j+i*512)=1 %then markerabs(0,3*j-300,50+3*i)
  %repeat
%repeat

openinput(1,"image2")
selectinput(1)
read(num)
setcolour(black)
%for i=1,1,num %cycle
  read(a);read(b);read(c);read(d);read(m)
  a=int(a/xmult);c=int(c/xmult)
  moveabs(3*a-300,50+3*b)
  lineabs(3*c-300,50+3*d)
%repeat
quit:
terminate edwin
%endofprogram