*** empty log message ***
authorhachti <hachti>
Mon, 25 Aug 2008 21:23:07 +0000 (21:23 +0000)
committerhachti <hachti>
Mon, 25 Aug 2008 21:23:07 +0000 (21:23 +0000)
lib/hachti/Makefile
lib/hachti/recipe/stack.recipe [new file with mode: 0644]
lib/hachti/src/graphics.f [new file with mode: 0644]

index 24a97d40d4775750c0584df37c222035e3093275..54910ebdd0b0c1ea21acecbbbf88b833406a2556 100644 (file)
@@ -12,7 +12,7 @@ export ORG_OBJDIR=org
 
 export MAKE
 
-MODULES = font pl$$mv  pl$$txt  pl$$u stack matrix endlib oct
+MODULES = font pl$$mv  pl$$txt  pl$$u stack matrix oct
 F4_MODULES=pmat graphics
 
 FRTN_COMMAND = frtn
@@ -47,7 +47,7 @@ $(ORG_OBJDIR)/lastrun: $(ORG_LIBDIR)/*
        @./buildlib.sh makeorg
 
 $(OBJECTS): $(OBJECT_FILES) $(F4_OBJECT_FILES)
-       @#$(MAKE) $(subst $$,\$$,$?)
+#      @$(MAKE) $(subst $$,\$$,$?)
 
 $(OBJECT_FILES):$(OBJ_DIR)/%.obj : $(SRC_DIR)/%.asm
 #      @echo Building: $(subst         $$,\$$,$@)
@@ -65,8 +65,6 @@ $(F4_OBJECT_FILES):$(OBJ_DIR)/%.obj : $(SRC_DIR)/%.f
        @ cd $(OBJ_DIR) && $(LDC_COMMAND) $(notdir $(subst $$,\$$,$@))
 
 
-# $(ORG_OBJDIR)/lastrun
-
 $(LIBS):$(LIB_DIR)/%.lib: $(RECIPE_DIR)/%$(RECIPE_SUFFIX)   $(OBJECTS)
        @./buildlib.sh genlib $(RECIPE_DIR)/$(basename $(notdir $@))$(RECIPE_SUFFIX)
 
diff --git a/lib/hachti/recipe/stack.recipe b/lib/hachti/recipe/stack.recipe
new file mode 100644 (file)
index 0000000..ff2abed
--- /dev/null
@@ -0,0 +1,5 @@
+# Stack operations
+obj/STACK
+
+
+
diff --git a/lib/hachti/src/graphics.f b/lib/hachti/src/graphics.f
new file mode 100644 (file)
index 0000000..67208ee
--- /dev/null
@@ -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