Modulef
Next: 5.1 Color Up: Part III: Fortran 3D Prev: 4.6 Texts Contents

5 Graphics

The following subroutines define the graphics as well as the line segments and text aspects. Their effect is effective until the next call.

```
      SUBROUTINE DRAW3(I)
      INTEGER I
```
defines the line graphics:
.
I = -1 : no line
.
I = 0 : solid line
.
I > 0 : interpretation depending on the terminal used (dotted, dashed, mixed,...)

      SUBROUTINE THICK(EPAIS)
      REAL EPAIS

defines the line thickness in mm.

```
       SUBROUTINE LIGH3(INTENS, CLIGNO, COULEU)
       INTEGER INTENS, CLIGNO, COULEU
```
where:
- INTENS defines the intensity level of the lines;
- CLIGNO defines the blinking of the lines;
- COULEU defines the number of the color of the lines (index in the terminal color table: 0...NBCOLO-1 ).
The interpretation of these parameters depend on the terminal used.
```
      SUBROUTINE DRW3TX(TAILLE, SENS, POLICE)
      REAL TAILLE, SENS                    
      INTEGER POLICE
```
defines the size and orientation of the text in 2D (TXT2D) as well as in 3D (TXT3D), where:
- TAILLE indicates the height of the characters in centimeters;
- SENS is the orientation of the text expressed as a fraction of PI/2 starting from the horizontal;
- POLICE indicates the set a characters used.
Those parameters depend on the terminal.
```
      SUBROUTINE CTRTXT(ALPHA, BETA)
      REAL ALPHA, BETA
```
defines the text frame box. The text is supposed to be in the box (0., 0.) (1., 1.).
ALPHA and BETA, lying between 0. and 1., indicate the desired centering position in this box.
```
      SUBROUTINE LIMITS(I)
      INTEGER I
```
places the window on the screen using lines of type I (see DRAW3).
```
      SUBROUTINE HACHUR(CONTOU,N,ANGLE,DISTAN,TYPE,EPAIS,INTENS,CLIGNO,
                        COULEU,NMOTIF,ACTION)
      INTEGER NMOTIF,TYPE(NMOTIF),INTENS(NMOTIF),CLIGNO(NMOTIF),
              COULEU(NMOTIF)
      REAL CONTOU(4, N), ANGLE, DISTAN(NMOTIF), EPAIS(NMOTIF)
      EXTERNAL ACTION
```
plots the hachure , at an angle ANGLE with respect to the horizontal, in the contour defined by CONTOU.
CONTOU(4, N) defines the contour by a set of N line segments (X1, Y1)(X2, Y2) (in centimeters) where:
```
     CONTOU(1, I) = X1
     CONTOU(2, I) = Y1
     CONTOU(3, I) = X2
     CONTOU(4, I) = Y2
```
The segments do not have to be adjoining and can thus define contours with holes. The definition of the haching motifs is done by 2 types of parameters:
- DISTAN(NMOTIF): Distance between the motif's haching;
- TYPE(NMOTIF), EPAIS(NMOTIF), INTENS(NMOTIF), CLIGNO(NMOTIF) and COULEU(NMOTIF) define the motif's haching texture, i.e. the type, thickness, intensity, flashing and color.
The I texture is plotted at distance, DISTAN(I-1), modulo NMOTIF, i.e, loop:

" Plot texture 1, move a distance DISTAN(1);
plot texture 2, move by DISTAN(2);
etc.;
plot texture NMOTIF, move DISTAN(NMOTIF);
start again ... end of loop. "

Next: 5.1 Color Up: Part III: Fortran 3D Prev: 4.6 Texts Contents