[comp.sys.apollo] Apollo GMR and PostScript

av@utacs.UTA.FI (Arto Viitanen) (08/08/88)

I need some help. I am a member of a project, which is making a CASE tool
using Apollo's graphics and Oracle's relational database system.

I (the fool) told, that it is possible to print GMR pictures using
PostScript printer. I should have known better. I have tried with following
program:

----------------

/* PRINT.C */

#include <stdio.h>
#include "/sys/ins/base.ins.c"
#include "/sys/ins/gmr.ins.c"
#include <stdio.h>

status_$t         status;
name_$pname_t     name;
short             length;
short             file_id;
gm_$boundsreal_t  b;
gm_$point16_t     bitmap_size;
int               x,y;

main()
{
    printf("File name:");
    fflush(stdout);
    gets(name);
    length = strlen(name);

    gm_$init( gm_$direct,
              stream_$stdout,
              bitmap_size,
              (short)8,
              status);

    gm_$file_open( name,
                   length,
                   gm_$r,
                   gm_$1w,
                   file_id,
                   status );

/* Now display the file. */

    gm_$display_file(status);

    gm_$file_inq_bounds(b,status);
    x = b.xmax - b.xmin;
    y = b.ymax - b.ymin;

    strcpy(name,"OUTPUT");
    length = strlen(name);
    bitmap_size.x = (short)x;
    bitmap_size.y = (short)y;


    gm_$print_file(name, length, bitmap_size, false,
                   gm_$postscript, (short)0, status);

    gm_$file_close( true,
                    status);

    gm_$terminate(status);

}

-----------------

The point is, with output of the program and macros.ps file from
gmr2d.release_notes I get about 1/14 part of whole picture, when printed
to the Apple LaserWriter with A4 paper.

So the question is: how can I print a GMR picture to a A4 paper in LaserWriter
and how can I print it to more than one paper (so that it can be read also).

----------------

Arto Viitanen
University Of Tampere, Department of Computer Science
P.O.Box 607
SF-33101 TAMPERE
FINLAND

av@utacs.uta.fi,
av@comic.uta.fi

----------------