lib/hachti/src/graphics.f

   1 C SOME LITTLE GRAPHIC ROUTINES
   2 C
   3 C
   4 C
   5       SUBROUTINE BOX(X,Y,W,H)
   6       INTEGER X,Y,W,H
   7
   8       CALL PL$LN(X,Y,X,Y+H)
   9       CALL PL$LN(X,Y+H,X+W,Y+H)
  10       CALL PL$LN(X+W,Y+H,X+W,Y)
  11       CALL PL$LN(X,Y,X+W,Y)
  12       CALL PL$PU
  13       RETURN
  14       END
  15
  16       SUBROUTINE SQUARE(X,Y,L)
  17       INTEGER X,Y,L
  18       CALL PL$LN(X,Y,X,Y+L)
  19       CALL PL$LN(X,Y+L,X+L,Y+L)
  20       CALL PL$LN(X+L,Y+L,X+L,Y)
  21       CALL PL$LN(X,Y,X+L,Y)
  22       CALL PL$PU
  23       RETURN
  24       END
  25
  26
  27 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  28 $0