Changeset 10802 for trunk/Ohana/src/kapa/graph/PSObjects.c

Timestamp:

Dec 17, 2006, 10:09:31 AM (20 years ago)

Author:

eugene

Message:

adding -newpage to kapa capabilities

File:

• trunk/Ohana/src/kapa/graph/PSObjects.c (modified) (2 diffs)

trunk/Ohana/src/kapa/graph/PSObjects.c

@@ -20 +20 @@
   filename[status] = 0; /* make the string easy to parse */
 
-  f = fopen (filename, "w");
+  if (mode == NEWPAGE) {
+    f = fopen (filename, "a");
+  } else {
+    f = fopen (filename, "w");
+  }
+
   if (f == (FILE *) NULL) {
     fprintf (stderr, "can't open output file %s\n", filename);
@@ -34 +39 @@
   }
 
-  if (mode != RAW) {
-    fprintf (f, "%%!PS-Adobe-2.0 EPSF-2.0\n");
-    fprintf (f, "%%%%Title: Kapa Plot\n");
-    fprintf (f, "%%%%Creator: Kapa (0.95)\n");
-    fprintf (f, "%%%%BoundingBox: %d %d %.0f %.0f\n", 
-             XOFFSET, YOFFSET, XOFFSET + scale*graphic.dx, YOFFSET + scale*graphic.dy);
-    fprintf (f, "%%%%Pages: 1\n");
-    fprintf (f, "%%%%DocumentFonts:\n");
-    fprintf (f, "%%%%EndComments\n");
-    fprintf (f, "%%%%EndProlog\n");
-    fprintf (f, "%%%%Page: 1 1\n\n");
+  switch (mode) {
+    case NEWPAGE:
+      fprintf (f, "%%%%Page: foobar\n\n");
+      break;
+
+    case SCALE:
+    case NOSCALE:
+      fprintf (f, "%%!PS-Adobe-2.0 EPSF-2.0\n");
+      fprintf (f, "%%%%Title: Kapa Plot\n");
+      fprintf (f, "%%%%Creator: Kapa (0.95)\n");
+      fprintf (f, "%%%%BoundingBox: %d %d %.0f %.0f\n", 
+               XOFFSET, YOFFSET, XOFFSET + scale*graphic.dx, YOFFSET + scale*graphic.dy);
+      fprintf (f, "%%%%Pages: 1\n");
+      fprintf (f, "%%%%DocumentFonts:\n");
+      fprintf (f, "%%%%EndComments\n");
+      fprintf (f, "%%%%EndProlog\n");
+      fprintf (f, "%%%%Page: foobar\n\n");
+      break;
+
+    case RAW:
+      break;
   } 
   fprintf (f, "gsave %% encloses picture\n");