home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / GfxPseudo3D.def < prev    next >
Text File  |  1994-05-25  |  5KB  |  89 lines
  1. |##########|
  2. |#MAGIC   #|CLABLMJO
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x-----x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx------
  9. |##########|
  10. DEFINITION MODULE GfxPseudo3D;
  11.  
  12. FROM GfxScreen IMPORT Screen;
  13.  
  14. (*----------------------------------------------------------------------------*
  15.  * Color3D    : Farbstruktur für Pseudo3d-Darstellung                         *
  16.  *   .topLeft     : Farbe für linke und obere Kante                           *
  17.  *   .bottomRight : Farbe für untere und rechte Kante                         *
  18.  *   .normal      : Farbe der Oberfläche                                      *
  19.  *----------------------------------------------------------------------------*)
  20.  
  21. TYPE
  22.   Color3D  = RECORD
  23.                topLeft,
  24.                bottomRight,
  25.                normal       : SHORTCARD;
  26.              END;
  27.  
  28. (*----------------------------------------------------------------------------*
  29.  * AUFGABE     : Schreibt ein Zeichen in 3d                                   *
  30.  * PARAMETER   : s     <= Screen, auf die gezeichnet wird                     *
  31.  *               col   <= Farbstruktur des Objekts                            *
  32.  *               x,y   <= Koordinaten                                         *
  33.  *               c     <= Zeichen, das gezeichnet wird                        *
  34.  * BEMERKUNGEN : --                                                           *
  35.  *----------------------------------------------------------------------------*)
  36.  
  37. PROCEDURE Write3D(s : Screen;col : Color3D;x,y : INTEGER;c : CHAR);
  38.  
  39. (*----------------------------------------------------------------------------*
  40.  * AUFGABE     : Schreibt einen String in 3d                                  *
  41.  * PARAMETER   : s     <= Screen, auf die gezeichnet wird                     *
  42.  *               col   <= Farbstruktur des Objekts                            *
  43.  *               x,y   <= Koordinaten                                         *
  44.  *               str   <= String, der geschrieben wird                        *
  45.  * BEMERKUNGEN : Ruft für jedes Zeichen Write3D auf                           *
  46.  *----------------------------------------------------------------------------*)
  47.  
  48. PROCEDURE Write3DString(s : Screen;col : Color3D;x,y : INTEGER;REF str : STRING);
  49.  
  50. (*----------------------------------------------------------------------------*
  51.  * AUFGABE     : Schreibt einen String in 3d                                  *
  52.  * PARAMETER   : s     <= Screen, auf die gezeichnet wird                     *
  53.  *               col   <= Farbstruktur des Objekts                            *
  54.  *               x,y   <= Koordinaten                                         *
  55.  *               str   <= String, der geschrieben wird                        *
  56.  * BEMERKUNGEN : --                                                           *
  57.  *----------------------------------------------------------------------------*)
  58.  
  59. PROCEDURE WriteQ3DString(s : Screen;col : Color3D;x,y : INTEGER;REF str : STRING);
  60.  
  61.  
  62. (*----------------------------------------------------------------------------*
  63.  * AUFGABE     : Zeichnet ein Rechteck in 3d                                  *
  64.  * PARAMETER   : s     <= Screen, auf die gezeichnet wird                     *
  65.  *               col   <= Farbstruktur des Objekts                            *
  66.  *               x1,y1 <= obere, linke Ecke                                   *
  67.  *               x2,y2 <= untere, rechte Ecke                                 *
  68.  * BEMERKUNGEN : --                                                           *
  69.  *----------------------------------------------------------------------------*)
  70.  
  71. PROCEDURE Box3D(s : Screen;col : Color3D;x1,y1,x2,y2 : INTEGER);
  72.  
  73. (*----------------------------------------------------------------------------*
  74.  * AUFGABE     : Zeichnet einen Kreis in 3d                                   *
  75.  * PARAMETER   : s     <= Screen, auf die gezeichnet wird                     *
  76.  *               col   <= Farbstruktur des Objekts                            *
  77.  *               x,y   <= Koordinaten des Mittelpunkts                        *
  78.  *               r     <= Radius des Kreises                                  *
  79.  * BEMERKUNGEN : --                                                           *
  80.  *----------------------------------------------------------------------------*)
  81.  
  82. PROCEDURE Circle3D(s : Screen;col : Color3D;x,y,r : INTEGER);
  83.  
  84. GROUP
  85.   All   = Color3D,Write3D,Screen,Write3DString,WriteQ3DString,Box3D,Circle3D;
  86.  
  87. END GfxPseudo3D.
  88.  
  89.