program brokenlines2
   implicit none
   integer,parameter::n=3
   real(4),dimension(0:n)::x,y
   x(0)=0.1
   y(0)=0.1
   x(1)=0.4
   y(1)=0.1
   x(2)=0.8
   y(2)=0.4
   x(3)=0.5
   y(3)=0.6
   call init
   call viewport(0.2,0.2,0.8,0.8)
   call xyworld(0.0,0.0,1.0,1.0)
   call linety(1)
   call linewidth(2.0)
   call setlinejoin(0)
   call brokenlines(x,y,n)
   call stroke
   call fin
   stop
   end