1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
SUBROUTINE TPWRZT (IERROR)
C
C LATEST REVISION JULY, 1984
C
C PURPOSE TO PROVIDE A SIMPLE DEMONSTRATION OF
C PWRZT IN CONJUNCTION WITH THREED.
C
C USAGE CALL TPWRZT (IERROR)
C
C ARGUMENTS
C
C ON OUTPUT IERROR
C AN INTEGER VARIABLE
C = 0, IF THE TEST IS SUCCESSFUL,
C = 1, OTHERWISE
C
C I/O IF THE TEST IS SUCCESSFUL, THE MESSAGE
C
C PWRZT TEST SUCCESSFUL . . . SEE PLOT
C TO VERIFY PERFORMANCE
C
C IS PRINTED ON UNIT 6.
C
C IN ADDITION, ONE FRAME CONTAINING THE
C CHARACTER PLOT IS PRODUCED ON THE
C MACHINE GRAPHICS DEVICE. TO DETERMINE
C IF THE TEST IS SUCCESSFUL, IT IS NECESSARY
C TO EXAMINE THIS PLOT.
C
C PRECISION SINGLE
C
C REQUIRED LIBRARY PWRZT, THREED
C FILES
C
C
C LANGUAGE FORTRAN
C
C ALGORITHM TPWRZT CALLS SUBROUTINES SET3 AND LINE3 FROM
C THE ULIB THREED PACKAGE TO ESTABLISH THE
C THREE SPACE-TO-TWO SPACE TRANSFORMATION
C AND TO DRAW AXIS LINES. TPWRZT NEXT CALLS
C SUBROUTINE PWRZT FROM THE ULIB THREED
C PACKAGE TO LABEL THE AXES FOR A THREE SPACE
C PLOT.
C
C PORTABILITY ANSI FORTRAN 77
C
C
C EYE CONTAINS THE (U,V,Z) COORDINATE OF THE EYE POSITION
C
REAL EYE(3)
DATA EYE(1), EYE(2), EYE(3) /3.5, 3.0, 5.0/
C
C INITIALIZE ERROR PARAMETER
C
IERROR = 1
C
C SELECT NORMALIZATION TRANS NUMBER 0
C
CALL GSELNT (0)
C
C SUBROUTINE SET3 ESTABLISHES THE MAPPING OF THREE SPACE COORDINATES
C ONTO THE GRAPHICS DEVICE COORDINATE SYSTEM.
C
CALL SET3 (.1,.9,.1,.9,0.,1.,0.,1.,0.,1.,EYE)
C
C THE FOLLOWING THREE CALLS TO LINE3 DRAW THE THREE SPACE AXES
C
CALL LINE3 (0.,0.,0.,0.,0.,1.)
CALL LINE3 (0.,0.,0.,0.,1.,0.)
CALL LINE3 (0.,0.,0.,1.,0.,0.)
C
C SUBROUTINE PWRZ IS USED TO LABEL EACH OF THE AXES AND THE PLOT
C ON INPUT TO PWRZ,
C THE FIRST THREE PARAMETERS AND ICNT DETERMINE THE POSITION OF THE
C CHARACTER STRING.
C ISIZE DETERMINES THE CHARACTER SIZE.
C LINE AND ITOP DETERMINE THE DIRECTION AND PLANE OF THE CHARACTERS.
C
C
ICNT = 0
ISIZE = 30
LINE = 2
ITOP = 3
CALL PWRZT (0.,.5,.1,'V-AXIS',6,ISIZE,LINE,ITOP,ICNT)
C
LINE = -1
ITOP = 3
CALL PWRZT (.5,0.,.1,'U-AXIS',6,ISIZE,LINE,ITOP,ICNT)
C
LINE = 3
ITOP = -2
CALL PWRZT (0.,.1,.5,'Z-AXIS',6,ISIZE,LINE,ITOP,ICNT)
C
LINE = 2
ITOP = -1
ISIZE = 30
ICNT = -1
CALL PWRZT (.5,.2,0.,'DEMONSTRATION OF PWRZT WITH THREED',
1 34,ISIZE,LINE,ITOP,ICNT)
C
C A CALL TO NEWFM INDICATES THAT THE PICTURE IS COMPLETE
C
CALL NEWFM
C
IERROR = 0
c WRITE (6,1001)
C
RETURN
C
C
C
c1001 FORMAT (' PWRZT TEST SUCCESSFUL',24X,
c 1 'SEE PLOT TO VERIFY PERFORMANCE')
C
END
|
