Dim t%, x%, y%, r%, red%, green%, blue%, c%, b%
Dim x1%,y1%,la%
Dim x2%,y2%
dim timtot as float
dim integer maxx
dim integer maxy
Dim vtim As float
dim INTEGER elx(61), ely(61), elxd(61), elyd(61) , elxe(61), elye(61)
dim integer elc, elf, elxp, elyp,eli2,eli1
dim float ela, els, ele, sine, cosine,el1
dim i as integer
dim j as integer
dim n as integer
dim txt1$ as string
dim txt2$ as string
Dim nbx%
maxx=MM.VRES-1
maxy=mm.hres-1
nbx%=300
timtot=0
'---- test 26 : draw x arcs color and 1pixel width
 CLS RGB(black)
 txt1$="Arcs function (1 pixel) test in"
 writtitle(txt1$)
 
 Timer=0
 For i%=1 To nbx%
   x%=Rnd()*maxx
   y%=Rnd()*maxy
   x1%=Rnd()*maxx
   y1%=Rnd()*maxy
   c%=Rnd()*&hffffff
   els=rnd()*360 'random size
   ela=rnd()* 360 'random angle
   Arc x%,y%,x1%,,els,ela,c%
 Next i%
 vtim=Timer/1000: timtot=timtot+vtim
 writresult(vtim)

'---- test 27 : draw x arcs color and rnd pixel width

 CLS RGB(black)
 txt1$="Arcs function (x pixels) test in"
 writtitle(txt1$)
 
 Timer=0
 For i%=1 To nbx%
   x%=Rnd()*maxx
   y%=Rnd()*maxy
   x1%=Rnd()*maxx
   y1%=x1%+(Rnd()*30)
   if y1%=x1% then y1%=x1%+1
   c%=Rnd()*&hffffff
   els=rnd()* 360 'random start arc
   ela=rnd()* 360 'random end arc
   'print els, ela
   'if els>ela then el1=ela:ela=els:els=el1
   Arc x%,y%,x1%,y1%,els,ela,c%
 Next i%
 vtim=Timer/1000: timtot=timtot+vtim
 writresult(vtim)
end

sub writtitle(tx as string)
local tx1$
   tx1$="Test "+str$(n)+" "+tx+"                                              "
   tx1$=left$(tx1$,50)
   Print tx1$;
end sub

sub writresult(t1 as float)
     Print Str$(t1,2,3,"0")+" Seconds"
     'Pause(ttp)
end sub

if abs(els-ela) < 1 then els = ela+1