Graphical Data Display Manager

GDDM (Graphical Data Display Manager) ist ein Computer Grafiksystem für das System IBM S/370, entwickelt von IBM 1979. GDDM wurde ursprünglich für den IBM 3279 Farbbildschirm und den Farbdrucker 3287 entwickelt. Der Farbbildschirm 3279 war der erste Farbbildschirm der in Büros verwendet wurde.

GDDM wurde in den frühen 1980er Jahren erweitert um auf allen IBM Bildschirmen und Druckern eingesetzt werden zu können.

Ab 1986 wurde GDDM unter dem Namen IBM System/38 Bussines Graphics Utility (Program 5714-GP1) auch auf der System/38 verwendbar.

Programmbeispiel Pascal

PROGRAM LINECHRT;
TYPE
   %INCLUDE QATTPAS(ADMUSTNO);    /* IBM-supplied TYPE declarations */
VAR
  A, B : INTEGER;                                 /* work variables */
  AX, AY : REALARR_20;                     /* parameters for CHPLOT */
  ATTVAL, ATTYPE, COUNT : INTEGER;         /* parameters for ASREAD */
%INCLUDE QATTPAS(ADMUSLNO);       /* IBM-supplied PROC declarations */
 BEGIN
/********************************************************************/
/* INITIALIZE                                                       */
/********************************************************************/
AX(.1.) := 1.0; AY(.1.) := 5.0; AY(.6.) := 8.0;      /* Init arrays */
AX(.2.) := 2.0; AY(.2.) := 3.0; AY(.7.) := 13.0;
AX(.3.) := 3.0; AY(.3.) := 5.0; AY(.8.) := 6.0;
AX(.4.) := 4.0; AY(.4.) := 5.0; AY(.9.) := 1.0;
AX(.5.) := 5.0; AY(.5.) := 11.0; AY(.10.) := 7.0;
FSINIT;                          /* Initialize graphics environment */
/********************************************************************/
/* DRAW THE CHART                                                   */
/********************************************************************/
A := 2;
B := 5;
CHPLOT(A,B,AX,AY);                                /* Draw the chart */
/********************************************************************/
/* DISPLAY THE CHART                                                */
/********************************************************************/
ASREAD(ATTVAL,ATTYPE,COUNT);                   /* Display the chart */
/********************************************************************/ 
/* END GRAPHICS                                                     */
/********************************************************************/
FSTERM                                  /* End graphics environment */
END.                                    /* End Pascal program */

Weblinks

Literatur

Charles Petzold, Programming the OS/2 Presentation Manager, Microsoft Press, 1989. ISBN 1-55615-170-5.