*** empty log message ***

[h316.git] / lib / hachti / src / graphics.f

diff --git a/lib/hachti/src/graphics.f b/lib/hachti/src/graphics.f
new file mode 100644 (file)
index 0000000..67208ee
--- /dev/null
+++ b/lib/hachti/src/graphics.f
@@ -0,0 +1,28 @@
+C SOME LITTLE GRAPHIC ROUTINES
+C
+C
+C
+      SUBROUTINE BOX(X,Y,W,H)
+      INTEGER X,Y,W,H
+
+      CALL PL$LN(X,Y,X,Y+H)
+      CALL PL$LN(X,Y+H,X+W,Y+H)
+      CALL PL$LN(X+W,Y+H,X+W,Y)
+      CALL PL$LN(X,Y,X+W,Y)
+      CALL PL$PU
+      RETURN
+      END
+
+      SUBROUTINE SQUARE(X,Y,L)
+      INTEGER X,Y,L
+      CALL PL$LN(X,Y,X,Y+L)
+      CALL PL$LN(X,Y+L,X+L,Y+L)
+      CALL PL$LN(X+L,Y+L,X+L,Y)
+      CALL PL$LN(X,Y,X+L,Y)
+      CALL PL$PU
+      RETURN
+      END
+
+
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+$0