subroutine LGO (how,ix,iy) c c is a first attempt at a graphical primitive for the LaserWriter. c The variable 'how' is encoded as for the Watanabe plotter. c logical*1 how,plcmd(80) if (how.eq.'M') go to 20 ! move to absolute ix,iy if (how.eq.'R') go to 30 ! move to relative ix,iy if (how.eq.'D') go to 40 ! line to absolute ix,iy if (how.eq.'I') go to 50 ! line to relative ix,iy type 10 10 format(' ?LGO - ''how'' specified incorrectly') call exit 20 encode (17,25,plcmd) ix,iy,10 25 format(i4' 'i4' moveto'a1) call sendl(plcmd,17) return 30 encode (18,35,plcmd) ix,iy,10 35 format(i4' 'i4' rmoveto'a1) call sendl(plcmd,18) return 40 encode (17,45,plcmd) ix,iy,10 45 format(i4' 'i4' lineto'a1) call sendl(plcmd,17) return 50 encode (18,55,plcmd) ix,iy,10 55 format(i4' 'i4' rlineto'a1) call sendl(plcmd,18) return end