 
This section includes a copy of the character set and a commented 
procedure to generate it. It is useful to give the correspondence between
the keyboard  and special letters in the \greg\'s character set. 
 
In the roman alphabet, all keyboard keys will give the 
corresponding ASCII characters with only 4 exceptions :
\begin{verbatim}
     - The counter quote ` will give the double quote "
     - The circumflex accent ^ will give the degree sign
     - The double quote cannot be used because of SIC character handling
     - The backslash \ cannot be used because of GreG character handling
\end{verbatim}

The Script character set has an exact correspondance for all letters and
figures, and mathematical symbols corresponding to special characters.
 
The Greek character set has a rather convenient correspondance for all
letters (this is not the alphabetic order which is highly non mnemotechnic).
Planets symbols correspond to the figures (0 Sun, 1 Mercury and so on).
Other astronomical symbols correspond to the special characters.
 
The procedure {\tt FONT.GREG} (with the satellite procedure {\tt F.GREG})
generates the three \greg\ alphabets in
simplex and double quality and produce eight metacode files named 
{\tt FONT1.VEC, ..., FONT8.VEC}. These files are stored in the
directory {\tt GAG\_DEMO:}. You can plot them on paper using any of the metacode 
translators available on your site ({\tt HPXY, LWXY, PLXY,} ...) or just 
invoke the {\tt ZOOM} utility to have a glance at them on an interactive screen.

\begin{center}
Satellite procedure {\tt F.GREG} to generate the \greg\ fonts
\end{center}
This procedure {\tt F.GREG} is called by the {\tt FONT.GREG} procedure 
to generate the three alphabets in Simplex and Duplex quality :
\begin{verbatim}
!
! Draws a character in all GreG fonts and quality
! Parameter &1          Y position of character
! Parameter &2          Character to be drawn
!
DRAW TEXT  3 &1 "\\1&2"        ! Roman font, Simplex quality
DRAW TEXT  6 &1 "\\1\\G&2"     ! Greek font, Simplex quality
DRAW TEXT  9 &1 "\\1\\S&2"     ! Script font, Simplex quality
DRAW TEXT 13 &1 "\\2&2"        ! Roman font, Duplex quality
DRAW TEXT 16 &1 "\\2\\G&2"     ! Greek font, Duplex quality
DRAW TEXT 19 &1 "\\2\\S&2"     ! Script font, Duplex quality
\end{verbatim}
\newpage

\begin{center}
Procedure FONT.GREG to generate the \greg\ fonts
\end{center}

\begin{verbatim}
!
! Generates the 6 alphabets of GreG fonts in 6 columns
!      1         2         3             4        5        6
!    Roman     Greek     Script        Roman    Greek    Script 
!    Simplex   Simplex   Simplex       Duplex   Duplex   Duplex
!
SIC VERIFY ON
SET PLOT_PAGE PORTRAIT
SET BOX 0.5 20.5 1 28
SET CHARACTER 1.5
SET COORDINATE BOX
SYMBOL F "@ GAG_DEMO:F.GREG"
!
!    Keyboard    ROMAN FONT    GREEK FONT              SCRIPT FONT
F 24 "   "     ! Space         Space                   Space
F 22 " ! "     ! !             Aries                   Existencial
F 20 " ` "     ! Double quote  Taurus                  Up-Down arrow
F 18 " # "     ! #             Gemini                  Included in
F 16 " $ "     ! $             Cancer                  Reunion
F 14 " % "     ! %             Leo                     Includes
F 12 " & "     ! &             Virgo                   Intersection
F 10 " ' "     ! '             Libra                   Belongs to
F  8 " ( "     ! (             Scorpius                Integral
F  6 " ) "     ! )             Sagittarius             Circular Integral
F  4 " * "     ! *             Capricornus             Multiply
F  2 " + "     ! +             Aquarius                Plus/Minus
HARDCOPY GAG_DEMO:FONT1.VEC
CLEAR PLOT
!
!    Keyboard    ROMAN FONT    GREEK FONT              SCRIPT FONT
F 24 " , "     ! ,             Pisces                  Divide
F 22 " - "     ! -             Space                   Minus/Plus
F 20 " . "     ! .             Square                  .
F 18 " / "     ! /             Space                   Square root
F 16 " 0 "     ! 0             Sun                     Zero
F 14 " 1 "     ! 1             Mercury
F 12 " 2 "     ! 2             Venus
F 10 " 3 "     ! 3             Earth
F  8 " 4 "     ! 4             Mars
F  6 " 5 "     ! 5             Jupiter
F  4 " 6 "     ! 6             Saturn
F  2 " 7 "     ! 7             Uranus
HARDCOPY GAG_DEMO:FONT2.VEC
CLEAR PLOT
\end{verbatim}
\newpage
\begin{verbatim}
!
!    Keyboard    ROMAN FONT    GREEK FONT              SCRIPT FONT
F 24 " 8 "     ! 8             Neptun
F 22 " 9 "     ! 9             Pluto
F 20 " : "     ! :             Moon quarter            Space
F 18 " ; "     ! ;             Comet                   Perpendicular
F 16 " < "     ! <             Eight branch star       Less or equal
F 14 " = "     ! =             Ascending node          Equivalent
F 12 " > "     ! >             Descending node         Greater or equal
F 10 " ? "     ! ?             Space                   Different
F  8 " @ "     ! @             Space                   Proportional
F  6 " A "     ! A             Alpha
F  4 " B "     ! B             Beta
F  2 " C "     ! C             Chi
HARDCOPY GAG_DEMO:FONT3.VEC
CLEAR PLOT
!
!    Keyboard    ROMAN FONT    GREEK FONT              SCRIPT FONT
F 24 " D "     ! D             Delta
F 22 " E "     ! E             Epsilon
F 20 " F "     ! F             Phi
F 18 " G "     ! G             Gamma
F 16 " H "     ! H             Eta
F 14 " I "     ! I             Iota
F 12 " J "     ! J             Nabla (Gradient)
F 10 " K "     ! K             Kappa
F  8 " L "     ! L             Lambda
F  6 " M "     ! M             Mu
F  4 " N "     ! N             Nu
F  2 " O "     ! O             Omicron
HARDCOPY GAG_DEMO:FONT4.VEC
CLEAR PLOT
!
!    Keyboard    ROMAN FONT    GREEK FONT              SCRIPT FONT
F 24 " P "     ! P             Pi
F 22 " Q "     ! Q             Theta
F 20 " R "     ! R             Rho
F 18 " S "     ! S             Sigma
F 16 " T "     ! T             Tau
F 14 " U "     ! U             Upsilon
F 12 " V "     ! V             Space
F 10 " W "     ! W             Omega
F  8 " X "     ! X             Xi
F  6 " Y "     ! Y             Psi
F  4 " Z "     ! Z             Zeta
F  2 " [ "     ! [             Dagger                  Approximately
HARDCOPY GAG_DEMO:FONT5.VEC
CLEAR PLOT
\end{verbatim}
\newpage
\begin{verbatim}
!
!    Keyboard    ROMAN FONT    GREEK FONT              SCRIPT FONT
F 24 " \ "     ! Unaccessible because this is the " escape" character
F 22 " ] "     ! ]             Double dagger           Approximately 
F 20 " ^ "     ! Degree        Paragraph               Chemical eq.
F 18 " _ "     ! Space         Three dots              Left/Right arrow
F 16 " ` "     ! Double quote  Taurus                  Up/Down arrow
F 14 " a "     ! a             alpha
F 12 " b "     ! b             beta
F 10 " c "     ! c             chi
F  8 " d "     ! d             delta
F  6 " e "     ! e             epsilon
F  4 " f "     ! f             phi
F  2 " g "     ! g             gamma
HARDCOPY GAG_DEMO:FONT6.VEC
CLEAR PLOT
!
!    Keyboard    ROMAN FONT    GREEK FONT              SCRIPT FONT
F 24 " h "     ! h             eta
F 22 " i "     ! i             iota
F 20 " j "     ! j             Partial derivative
F 18 " k "     ! k             kappa
F 16 " l "     ! l             lambda
F 14 " m "     ! m             mu
F 12 " n "     ! n             nu
F 10 " o "     ! o             omicron
F  8 " p "     ! p             pi
F  6 " q "     ! q             theta
F  4 " r "     ! r             rho
F  2 " s "     ! s             sigma
HARDCOPY GAG_DEMO:FONT7.VEC
CLEAR PLOT
!
!    Keyboard    ROMAN FONT    GREEK FONT              SCRIPT FONT
F 24 " t "     ! t             tau
F 22 " u "     ! u             upsilon
F 20 " v "     ! v             Infinite
F 18 " w "     ! w             omega
F 16 " x "     ! x             xi
F 14 " y "     ! y             psi
F 12 " z "     ! z             zeta
F 10 " { "     ! {             Large {                 Up arrow
F  8 " | "     ! Vertical bar  Large integral          Right arrow
F  6 " } "     ! }             Large }                 Down arrow
F  4 " ~ "     ! ~             Large root              Left arrow
HARDCOPY GAG_DEMO:FONT8.VEC
EXIT
\end{verbatim}
