$$345678901234567890123456789012345678901234567890123456789012345678901234567890
$$       1         2         3         4         5         6         7         8
$$
$$ Display_Pic_Checklist.grs   This program prints a checklist to help the user
$$                             to not forget something.
$$
$$
$$ History:
$$ --------
$$ V1.00 / Pyramid Solutions / 13.03.03   First public release.
$$
$$
$$
$$
$$ *****************************
$$ * Declaration of variables: *
$$ *****************************
$$
$$ Index: o = object variable
$$        n = numerical variable
$$        s = string variable
$$
GRIPSW/DECLRV
$$
NUMBER/nLength,nI,nChar,nLang
STRING/sLang(16),sLoCase(1),sUpCase(1)
$$
$$
$$
$$ ************
$$ * Program: *
$$ ************
$$
$$ Prepare
$$ =======
$$ If there is no active part
$$ --------------------------
IF/&ACTPRT==1,JUMP/End:
$$
$$
$$ Check the language setting for the user interaction
$$ (Supported in this program: ENGLISH, GERMAN)
$$ ---------------------------------------------------
sLang=&LANG
$$ Change the whole string to upper case characters
nLength=LENF(sLang)
DO/EDo01P:,nI,1,nLength,1
   nChar=ASCII(sLang,nI)
   IFTHEN/nChar>=97 AND nChar<=122
      sLoCase=CHRSTR(nChar)
      nChar=nChar-32
      sUpCase=CHRSTR(nChar)
      sLang=REPSTR(sLang,sLoCase,sUpCase,nI)
   ENDIF
EDo01P:
$$
$$ Set a control value to switch to the current language
IFTHEN/sLang=='GERMAN'
   nLang=1
ELSE
   nLang=0
ENDIF
$$
$$
$$
$$ Main
$$ ====
$$ Print the checklist
$$ -------------------
IFTHEN/nLang==1
   PRINT/'Kontrolliste für die Bildererstellung'
   PRINT/'-------------------------------------'
   PRINT/''
   PRINT/'WCS:'
   PRINT/'- Anzeige:        EIN oder AUS?'
   PRINT/''
   PRINT/'Visualisierung:'
   PRINT/'- Namen / Ränder: <Ansichtennamen anzeigen> EIN oder AUS?'
   PRINT/'-                 <Ansichtsgrenzen anzeigen> EIN oder AUS?'
   PRINT/'- Perspektive:    <Perspektive> EIN oder AUS? Korrekte Einstellungen?'
   PRINT/'- Schattieren:    <Schattierte Flächenkanten> auf die gewünschten'
   PRINT/'                  Werte gesetzt?'
   PRINT/'- Linie:          <Strichstärke anzeigen> EIN oder AUS?'
   PRINT/'- Farbpalette:    Hintergrund auf die gewünschten Farbeinstellungen'
   PRINT/'                  gesetzt?'
   PRINT/''
   PRINT/''
   PRINT/'Achtung: Bei der Export- Funktion von Bildern ist ein Fehler vorhan-'
   PRINT/'         den! Falls im Grafikfenster Toolbar- oder andere Fenster of-'
   PRINT/'         fen sind, erscheinen diese auf dem exportierten Bild eben-'
   PRINT/'         falls! Deshalb diese Fenster zuerst schliessen!'
   PRINT/''
   PRINT/''
ELSE
   PRINT/'Checklist for pictures creation'
   PRINT/'-------------------------------'
   PRINT/''
   PRINT/'WCS:'
   PRINT/'- Display:         ON or OFF?'
   PRINT/''
   PRINT/'Visualization:'
   PRINT/'- Names / Borders: <Show View Names> ON or OFF?'
   PRINT/'-                  <Show View Borders> ON or OFF?'
   PRINT/'- Perspective:     <Perspective> ON or OFF? Correct Settings?'
   PRINT/'- Shade:           <Shaded Face Edges> set to wanted value?'
   PRINT/'- Line:            <Show Widths> ON or OFF?'
   PRINT/'- Color Palette:   Background set to the wanted color settings?'
   PRINT/''
   PRINT/''
   PRINT/'Attention: There is a bug in the picture export function!'
   PRINT/'           If there are some toolbars or other windows open in the'
   PRINT/'           display area, these windows will be on the exported pic-'
   PRINT/'           ture, too! Close these windows first!'
   PRINT/''
   PRINT/''
ENDIF
$$
$$
$$
$$ Clean up
$$ ========
JUMP/End:
$$
$$
$$
$$ ****************
$$ * Sub modules: *
$$ ****************
$$
$$ Error messages
$$ ==============
$$ - none -
$$
$$
$$
$$ ********
$$ * End: *
$$ ********
$$
End:
HALT