program beam2
   implicit none
   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(2)
   call rect(0.15,0.2,0.85,0.25)
   call stroke
   call newpath
   call linety(1)
   call spline(0.2,0.25,0.4,0.23,0.6,0.23,0.8,0.25,-1)
   call spline(0.2,0.25,0.4,0.23,0.6,0.23,0.8,0.25,0)
   call spline(0.2,0.25,0.4,0.23,0.6,0.23,0.8,0.25,1)
   call stroke
   call newpath
   call linety(1)
   call spline(0.2,0.2,0.4,0.18,0.6,0.18,0.8,0.2,-1)
   call spline(0.2,0.2,0.4,0.18,0.6,0.18,0.8,0.2,0)
   call spline(0.2,0.2,0.4,0.18,0.6,0.18,0.8,0.2,1)
   call stroke
   call newpath
   call plot(0.2,0.2,3)
   call plot(0.2-0.05,0.2+0.01,2)
   call plot(0.2-0.04,0.25+0.008,2)
   call plot(0.2,0.25,2)
   call stroke
   call newpath
   call plot(0.8,0.2,3)
   call plot(0.8+0.05,0.2+0.01,2)
   call plot(0.8+0.04,0.25+0.008,2)
   call plot(0.8,0.25,2)
   call stroke
   call newpath
   call plot(0.2,0.2,3)
   call plot(0.22,0.15,2)
   call plot(0.18,0.15,2)
   call closepath
   call stroke
   call newpath
   call plot(0.8,0.2,3)
   call plot(0.82,0.15,2)
   call plot(0.78,0.15,2)
   call closepath
   call stroke
   call newpath
   call arrowa(0.5,0.5,0.5,0.227,0.01)
   call stroke
   call text(0.49,0.52,"P")
   call fin
   stop
   end