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
|
#!/bin/csh -f
#
# GRTEST - graphical display test for PGS
#
set GIST = `which \gist`
set GPLOT = `which \gplot`
set GS = `which \gs`
if (("$GIST" != "") && ($#GIST == 1)) then
set CGMView = $GIST
else if (("$GPLOT" != "") && ($#GPLOT == 1)) then
set CGMView = $GPLOT
else
set CGMView = ""
endif
echo " "
echo "Using $CGMView as the CGM viewer"
if ($GS != "") then
set PSView = $GS
else
set PSView = ""
endif
echo "Using $PSView as the PS viewer"
echo " "
touch __foo__.ps __foo__.cgm
rm *.ps *.cgm
rm -f graphics.log
touch graphics.log
pact image >& /dev/null
echo "-----------------------------------------------------------------------------"
echo "Image Test"
(echo "" ; echo "") | gsimts
echo "-----------------------------------------------------------------------------" >>& graphics.log
echo "Image Test" >>& graphics.log
if ($PSView != "") then
echo quit | $PSView gsimts-m.ps >>& graphics.log
echo quit | $PSView gsimts-c.ps >>& graphics.log
endif
if ($CGMView != "") then
echo quit | $CGMView gsimts-m.cgm >>& graphics.log
echo quit | $CGMView gsimts-c.cgm >>& graphics.log
endif
echo "" >>& graphics.log
echo "-----------------------------------------------------------------------------" >>& graphics.log
echo "-----------------------------------------------------------------------------"
pact fillpoly >& /dev/null
echo "-----------------------------------------------------------------------------"
echo "Polygon Fill Test"
(echo "" ; echo "") | gsfpts
echo "-----------------------------------------------------------------------------" >>& graphics.log
echo "Polygon Fill Test" >>& graphics.log
if ($PSView != "") then
echo quit | $PSView gsfpts-m.ps >>& graphics.log
echo quit | $PSView gsfpts-c.ps >>& graphics.log
endif
if ($CGMView != "") then
echo quit | $CGMView gsfpts-m.cgm >>& graphics.log
echo quit | $CGMView gsfpts-c.cgm >>& graphics.log
endif
echo "" >>& graphics.log
echo "-----------------------------------------------------------------------------" >>& graphics.log
echo "-----------------------------------------------------------------------------"
pact surface >& /dev/null
echo "-----------------------------------------------------------------------------"
echo "Wire Frame Test"
(echo "0 10" ; echo "") | gssfts -f > /dev/null
echo "-----------------------------------------------------------------------------" >>& graphics.log
echo "Wire Frame Test" >>& graphics.log
if ($PSView != "") then
echo quit | $PSView gssfts-m.ps >>& graphics.log
echo quit | $PSView gssfts-c.ps >>& graphics.log
endif
if ($CGMView != "") then
echo quit | $CGMView gssfts-m.cgm >>& graphics.log
echo quit | $CGMView gssfts-c.cgm >>& graphics.log
endif
echo "" >>& graphics.log
echo "-----------------------------------------------------------------------------" >>& graphics.log
echo "-----------------------------------------------------------------------------"
echo "-----------------------------------------------------------------------------"
echo "Surface Test"
(echo "0 10" ; echo "") | gssfts -f -s > /dev/null
echo "-----------------------------------------------------------------------------" >>& graphics.log
echo "Surface Test" >>& graphics.log
if ($PSView != "") then
echo quit | $PSView gssfts-m.ps >>& graphics.log
echo quit | $PSView gssfts-c.ps >>& graphics.log
endif
if ($CGMView != "") then
echo quit | $CGMView gssfts-m.cgm >>& graphics.log
echo quit | $CGMView gssfts-c.cgm >>& graphics.log
endif
echo "" >>& graphics.log
echo "-----------------------------------------------------------------------------" >>& graphics.log
echo "-----------------------------------------------------------------------------"
exit($status)
|
