Graphical Data Display Manager

GDDM (Graphical Data Display Manager) ist ein Computergrafiksystem für das System IBM S/370, das 1979 von IBM entwickelt wurde. 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 Business 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.