program pipeline1
   implicit none
   real(4),dimension(0:3)::x1,y1,y2
   x1(0)=0.4
   x1(1)=0.5
   x1(2)=0.5
   x1(3)=0.6
   y1(0)=0.4
   y1(1)=0.4
   y1(2)=0.33
   y1(3)=0.33
   y2(0)=0.2
   y2(1)=0.2
   y2(2)=0.27
   y2(3)=0.27
   call init
   call viewport(0.2,0.2,0.8,0.8)
   call xyworld(0.0,0.0,1.0,1.0)
   call newpath()
   call linety(1)
   call plot(0.1,0.4,3)
   call plot(0.3,0.4,2)
   call plot(0.3,0.65,2)
   call stroke()
   call newpath()
   call linety(1)
   call plot(0.33,0.65,3)
   call plot(0.33,0.4,2)
   call plot(x1(0),y1(0),2)
   call curvton(x1,y1,3)
   call plot(0.7,0.33,2)
   call plot(0.7,0.6,2)
   call stroke()
   call newpath()
   call linety(1)
   call plot(0.73,0.6,3)
   call plot(0.73,0.33,2)
   call plot(0.9,0.33,2)
   call stroke()
   call newpath()
   call linety(1)
   call plot(0.1,0.2,3)
   call plot(x1(0),y2(0),2)
   call curvton(x1,y2,3)
   call plot(0.9,0.27,2)
   call stroke()
   call newpath()
   call linety(1)
   call plot(0.3,0.55,3)
   call plot(0.33,0.55,2)
   call stroke()
   call newpath()
   call linety(1)
   call plot(0.305,0.545,3)
   call plot(0.325,0.545,2)
   call stroke()
   call newpath()
   call linety(1)
   call plot(0.310,0.54,3)
   call plot(0.32,0.54,2)
   call stroke()
   call newpath()
   call linety(1)
   call plot(0.7,0.45,3)
   call plot(0.73,0.45,2)
   call stroke()
   call newpath()
   call linety(1)
   call plot(0.705,0.445,3)
   call plot(0.725,0.445,2)
   call stroke()
   call newpath()
   call linety(1)
   call plot(0.71,0.44,3)
   call plot(0.72,0.44,2)
   call stroke()
   call newpath()
   call linety(2)
   call plot(0.33,0.55,3)
   call plot(0.60,0.55,2)
   call stroke()
   call newpath()
   call linety(2)
   call plot(0.45,0.45,3)
   call plot(0.7,0.45,2)
   call stroke()
   call newpath()
   call linety(1)
   call linewidth(0.5)
   call msmi(0.52,0.45,0.52,0.55,0.05)
   call stroke()
   call text(0.55,0.48,"H")
   call fin
   stop
   end