The R Project SVN R

Rev

Rev 6629 | Rev 6994 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6629 Rev 6844
Line 52... Line 52...
52 
 
 52 
 
53 
	/* Global device information */
 53 
	/* Global device information */
54 
 
 54 
 
55 
static double charwidth[4][128] = {
 55 
static double charwidth[4][128] = {
56 
{
 56 
{
57 
  0.5416690, 0.8333360, 0.7777810, 0.6111145, 0.6666690, 0.7083380,
 57 
  0.5416690, 0.8333360, 0.7777810, 0.6111145, 0.6666690, 0.7083380, 0.7222240,
58 
0.7222240,
 - 
 
59 
  0.7777810, 0.7222240, 0.7777810, 0.7222240, 0.5833360, 0.5361130,
 58 
  0.7777810, 0.7222240, 0.7777810, 0.7222240, 0.5833360, 0.5361130, 0.5361130,
60 
0.5361130,
 - 
 
61 
  0.8138910, 0.8138910, 0.2388900, 0.2666680, 0.5000020, 0.5000020,
 59 
  0.8138910, 0.8138910, 0.2388900, 0.2666680, 0.5000020, 0.5000020, 0.5000020,
62 
0.5000020,
 - 
 
63 
  0.5000020, 0.5000020, 0.6666700, 0.4444460, 0.4805580, 0.7222240,
 60 
  0.5000020, 0.5000020, 0.6666700, 0.4444460, 0.4805580, 0.7222240, 0.7777810,
64 
0.7777810,
 - 
 
65 
  0.5000020, 0.8611145, 0.9722260, 0.7777810, 0.2388900, 0.3194460,
 61 
  0.5000020, 0.8611145, 0.9722260, 0.7777810, 0.2388900, 0.3194460, 0.5000020,
66 
0.5000020,
 - 
 
67 
  0.8333360, 0.5000020, 0.8333360, 0.7583360, 0.2777790, 0.3888900,
 62 
  0.8333360, 0.5000020, 0.8333360, 0.7583360, 0.2777790, 0.3888900, 0.3888900,
68 
0.3888900,
 - 
 
69 
  0.5000020, 0.7777810, 0.2777790, 0.3333340, 0.2777790, 0.5000020,
 63 
  0.5000020, 0.7777810, 0.2777790, 0.3333340, 0.2777790, 0.5000020, 0.5000020,
70 
0.5000020,
 - 
 
71 
  0.5000020, 0.5000020, 0.5000020, 0.5000020, 0.5000020, 0.5000020,
 64 
  0.5000020, 0.5000020, 0.5000020, 0.5000020, 0.5000020, 0.5000020, 0.5000020,
72 
0.5000020,
 - 
 
73 
  0.5000020, 0.5000020, 0.2777790, 0.2777790, 0.3194460, 0.7777810,
 65 
  0.5000020, 0.5000020, 0.2777790, 0.2777790, 0.3194460, 0.7777810, 0.4722240,
74 
0.4722240,
 - 
 
75 
  0.4722240, 0.6666690, 0.6666700, 0.6666700, 0.6388910, 0.7222260,
 66 
  0.4722240, 0.6666690, 0.6666700, 0.6666700, 0.6388910, 0.7222260, 0.5972240,
76 
0.5972240,
 - 
 
77 
  0.5694475, 0.6666690, 0.7083380, 0.2777810, 0.4722240, 0.6944480,
 67 
  0.5694475, 0.6666690, 0.7083380, 0.2777810, 0.4722240, 0.6944480, 0.5416690,
78 
0.5416690,
 - 
 
79 
  0.8750050, 0.7083380, 0.7361130, 0.6388910, 0.7361130, 0.6458360,
 68 
  0.8750050, 0.7083380, 0.7361130, 0.6388910, 0.7361130, 0.6458360, 0.5555570,
80 
0.5555570,
 - 
 
81 
  0.6805570, 0.6875050, 0.6666700, 0.9444480, 0.6666700, 0.6666700,
 69 
  0.6805570, 0.6875050, 0.6666700, 0.9444480, 0.6666700, 0.6666700, 0.6111130,
82 
0.6111130,
 - 
 
83 
  0.2888900, 0.5000020, 0.2888900, 0.5000020, 0.2777790, 0.2777790,
 70 
  0.2888900, 0.5000020, 0.2888900, 0.5000020, 0.2777790, 0.2777790, 0.4805570,
84 
0.4805570,
 - 
 
85 
  0.5166680, 0.4444460, 0.5166680, 0.4444460, 0.3055570, 0.5000020,
 71 
  0.5166680, 0.4444460, 0.5166680, 0.4444460, 0.3055570, 0.5000020, 0.5166680,
86 
0.5166680,
 - 
 
87 
  0.2388900, 0.2666680, 0.4888920, 0.2388900, 0.7944470, 0.5166680,
 72 
  0.2388900, 0.2666680, 0.4888920, 0.2388900, 0.7944470, 0.5166680, 0.5000020,
88 
0.5000020,
 - 
 
89 
  0.5166680, 0.5166680, 0.3416690, 0.3833340, 0.3611120, 0.5166680,
 73 
  0.5166680, 0.5166680, 0.3416690, 0.3833340, 0.3611120, 0.5166680, 0.4611130,
90 
0.4611130,
 - 
 
91 
  0.6833360, 0.4611130, 0.4611130, 0.4347230, 0.5000020, 1.0000030,
 74 
  0.6833360, 0.4611130, 0.4611130, 0.4347230, 0.5000020, 1.0000030, 0.5000020,
92 
0.5000020,
 - 
 
93 
  0.5000020, 0.5000020
 75 
  0.5000020, 0.5000020
94 
},
 76 
},
95 
{
 77 
{
96 
  0.5805590, 0.9166720, 0.8555600, 0.6722260, 0.7333370, 0.7944490,
 78 
  0.5805590, 0.9166720, 0.8555600, 0.6722260, 0.7333370, 0.7944490, 0.7944490,
97 
0.7944490,
 - 
 
98 
  0.8555600, 0.7944490, 0.8555600, 0.7944490, 0.6416700, 0.5861150,
 79 
  0.8555600, 0.7944490, 0.8555600, 0.7944490, 0.6416700, 0.5861150, 0.5861150,
99 
0.5861150,
 - 
 
100 
  0.8916720, 0.8916720, 0.2555570, 0.2861130, 0.5500030, 0.5500030,
 80 
  0.8916720, 0.8916720, 0.2555570, 0.2861130, 0.5500030, 0.5500030, 0.5500030,
101 
0.5500030,
 - 
 
102 
  0.5500030, 0.5500030, 0.7333370, 0.4888920, 0.5652800, 0.7944490,
 81 
  0.5500030, 0.5500030, 0.7333370, 0.4888920, 0.5652800, 0.7944490, 0.8555600,
103 
0.8555600,
 - 
 
104 
  0.5500030, 0.9472275, 1.0694500, 0.8555600, 0.2555570, 0.3666690,
 82 
  0.5500030, 0.9472275, 1.0694500, 0.8555600, 0.2555570, 0.3666690, 0.5583360,
105 
0.5583360,
 - 
 
106 
  0.9166720, 0.5500030, 1.0291190, 0.8305610, 0.3055570, 0.4277800,
 83 
  0.9166720, 0.5500030, 1.0291190, 0.8305610, 0.3055570, 0.4277800, 0.4277800,
107 
0.4277800,
 - 
 
108 
  0.5500030, 0.8555600, 0.3055570, 0.3666690, 0.3055570, 0.5500030,
 84 
  0.5500030, 0.8555600, 0.3055570, 0.3666690, 0.3055570, 0.5500030, 0.5500030,
109 
0.5500030,
 - 
 
110 
  0.5500030, 0.5500030, 0.5500030, 0.5500030, 0.5500030, 0.5500030,
 85 
  0.5500030, 0.5500030, 0.5500030, 0.5500030, 0.5500030, 0.5500030, 0.5500030,
111 
0.5500030,
 - 
 
112 
  0.5500030, 0.5500030, 0.3055570, 0.3055570, 0.3666690, 0.8555600,
 86 
  0.5500030, 0.5500030, 0.3055570, 0.3055570, 0.3666690, 0.8555600, 0.5194470,
113 
0.5194470,
 - 
 
114 
  0.5194470, 0.7333370, 0.7333370, 0.7333370, 0.7027820, 0.7944490,
 87 
  0.5194470, 0.7333370, 0.7333370, 0.7333370, 0.7027820, 0.7944490, 0.6416700,
115 
0.6416700,
 - 
 
116 
  0.6111145, 0.7333370, 0.7944490, 0.3305570, 0.5194470, 0.7638930,
 88 
  0.6111145, 0.7333370, 0.7944490, 0.3305570, 0.5194470, 0.7638930, 0.5805590,
117 
0.5805590,
 - 
 
118 
  0.9777830, 0.7944490, 0.7944490, 0.7027820, 0.7944490, 0.7027820,
 89 
  0.9777830, 0.7944490, 0.7944490, 0.7027820, 0.7944490, 0.7027820, 0.6111145,
119 
0.6111145,
 - 
 
120 
  0.7333370, 0.7638930, 0.7333370, 1.0388950, 0.7333370, 0.7333370,
 90 
  0.7333370, 0.7638930, 0.7333370, 1.0388950, 0.7333370, 0.7333370, 0.6722260,
121 
0.6722260,
 - 
 
122 
  0.3430580, 0.5583360, 0.3430580, 0.5500030, 0.3055570, 0.3055570,
 91 
  0.3430580, 0.5583360, 0.3430580, 0.5500030, 0.3055570, 0.3055570, 0.5250030,
123 
0.5250030,
 - 
 
124 
  0.5611140, 0.4888920, 0.5611140, 0.5111140, 0.3361130, 0.5500030,
 92 
  0.5611140, 0.4888920, 0.5611140, 0.5111140, 0.3361130, 0.5500030, 0.5611140,
125 
0.5611140,
 - 
 
126 
  0.2555570, 0.2861130, 0.5305590, 0.2555570, 0.8666720, 0.5611140,
 93 
  0.2555570, 0.2861130, 0.5305590, 0.2555570, 0.8666720, 0.5611140, 0.5500030,
127 
0.5500030,
 - 
 
128 
  0.5611140, 0.5611140, 0.3722250, 0.4216690, 0.4041690, 0.5611140,
 94 
  0.5611140, 0.5611140, 0.3722250, 0.4216690, 0.4041690, 0.5611140, 0.5000030,
129 
0.5000030,
 - 
 
130 
  0.7444490, 0.5000030, 0.5000030, 0.4763920, 0.5500030, 1.1000060,
 95 
  0.7444490, 0.5000030, 0.5000030, 0.4763920, 0.5500030, 1.1000060, 0.5500030,
131 
0.5500030,
 - 
 
132 
  0.5500030, 0.550003
 96 
  0.5500030, 0.550003 },
133 
},
 - 
 
134 
{
 97 
{
135 
  0.5416690, 0.8333360, 0.7777810, 0.6111145, 0.6666690, 0.7083380,
 98 
  0.5416690, 0.8333360, 0.7777810, 0.6111145, 0.6666690, 0.7083380, 0.7222240,
136 
0.7222240,
 - 
 
137 
  0.7777810, 0.7222240, 0.7777810, 0.7222240, 0.5833360, 0.5361130,
 99 
  0.7777810, 0.7222240, 0.7777810, 0.7222240, 0.5833360, 0.5361130, 0.5361130,
138 
0.5361130,
 - 
 
139 
  0.8138910, 0.8138910, 0.2388900, 0.2666680, 0.5000020, 0.5000020,
 100 
  0.8138910, 0.8138910, 0.2388900, 0.2666680, 0.5000020, 0.5000020, 0.5000020,
140 
0.5000020,
 - 
 
141 
  0.5000020, 0.5000020, 0.7375210, 0.4444460, 0.4805580, 0.7222240,
 101 
  0.5000020, 0.5000020, 0.7375210, 0.4444460, 0.4805580, 0.7222240, 0.7777810,
142 
0.7777810,
 - 
 
143 
  0.5000020, 0.8611145, 0.9722260, 0.7777810, 0.2388900, 0.3194460,
 102 
  0.5000020, 0.8611145, 0.9722260, 0.7777810, 0.2388900, 0.3194460, 0.5000020,
144 
0.5000020,
 - 
 
145 
  0.8333360, 0.5000020, 0.8333360, 0.7583360, 0.2777790, 0.3888900,
 103 
  0.8333360, 0.5000020, 0.8333360, 0.7583360, 0.2777790, 0.3888900, 0.3888900,
146 
0.3888900,
 - 
 
147 
  0.5000020, 0.7777810, 0.2777790, 0.3333340, 0.2777790, 0.5000020,
 104 
  0.5000020, 0.7777810, 0.2777790, 0.3333340, 0.2777790, 0.5000020, 0.5000020,
148 
0.5000020,
 - 
 
149 
  0.5000020, 0.5000020, 0.5000020, 0.5000020, 0.5000020, 0.5000020,
 105 
  0.5000020, 0.5000020, 0.5000020, 0.5000020, 0.5000020, 0.5000020, 0.5000020,
150 
0.5000020,
 - 
 
151 
  0.5000020, 0.5000020, 0.2777790, 0.2777790, 0.3194460, 0.7777810,
 106 
  0.5000020, 0.5000020, 0.2777790, 0.2777790, 0.3194460, 0.7777810, 0.4722240,
152 
0.4722240,
 - 
 
153 
  0.4722240, 0.6666690, 0.6666700, 0.6666700, 0.6388910, 0.7222260,
 107 
  0.4722240, 0.6666690, 0.6666700, 0.6666700, 0.6388910, 0.7222260, 0.5972240,
154 
0.5972240,
 - 
 
155 
  0.5694475, 0.6666690, 0.7083380, 0.2777810, 0.4722240, 0.6944480,
 108 
  0.5694475, 0.6666690, 0.7083380, 0.2777810, 0.4722240, 0.6944480, 0.5416690,
156 
0.5416690,
 - 
 
157 
  0.8750050, 0.7083380, 0.7361130, 0.6388910, 0.7361130, 0.6458360,
 109 
  0.8750050, 0.7083380, 0.7361130, 0.6388910, 0.7361130, 0.6458360, 0.5555570,
158 
0.5555570,
 - 
 
159 
  0.6805570, 0.6875050, 0.6666700, 0.9444480, 0.6666700, 0.6666700,
 110 
  0.6805570, 0.6875050, 0.6666700, 0.9444480, 0.6666700, 0.6666700, 0.6111130,
160 
0.6111130,
 - 
 
161 
  0.2888900, 0.5000020, 0.2888900, 0.5000020, 0.2777790, 0.2777790,
 111 
  0.2888900, 0.5000020, 0.2888900, 0.5000020, 0.2777790, 0.2777790, 0.4805570,
162 
0.4805570,
 - 
 
163 
  0.5166680, 0.4444460, 0.5166680, 0.4444460, 0.3055570, 0.5000020,
 112 
  0.5166680, 0.4444460, 0.5166680, 0.4444460, 0.3055570, 0.5000020, 0.5166680,
164 
0.5166680,
 - 
 
165 
  0.2388900, 0.2666680, 0.4888920, 0.2388900, 0.7944470, 0.5166680,
 113 
  0.2388900, 0.2666680, 0.4888920, 0.2388900, 0.7944470, 0.5166680, 0.5000020,
166 
0.5000020,
 - 
 
167 
  0.5166680, 0.5166680, 0.3416690, 0.3833340, 0.3611120, 0.5166680,
 114 
  0.5166680, 0.5166680, 0.3416690, 0.3833340, 0.3611120, 0.5166680, 0.4611130,
168 
0.4611130,
 - 
 
169 
  0.6833360, 0.4611130, 0.4611130, 0.4347230, 0.5000020, 1.0000030,
 115 
  0.6833360, 0.4611130, 0.4611130, 0.4347230, 0.5000020, 1.0000030, 0.5000020,
170 
0.5000020,
 - 
 
171 
  0.5000020, 0.5000020
 116 
  0.5000020, 0.5000020 },
172 
},
 - 
 
173 
{
 117 
{
174 
  0.5805590, 0.9166720, 0.8555600, 0.6722260, 0.7333370, 0.7944490,
 118 
  0.5805590, 0.9166720, 0.8555600, 0.6722260, 0.7333370, 0.7944490, 0.7944490,
175 
0.7944490,
 - 
 
176 
  0.8555600, 0.7944490, 0.8555600, 0.7944490, 0.6416700, 0.5861150,
 119 
  0.8555600, 0.7944490, 0.8555600, 0.7944490, 0.6416700, 0.5861150, 0.5861150,
177 
0.5861150,
 - 
 
178 
  0.8916720, 0.8916720, 0.2555570, 0.2861130, 0.5500030, 0.5500030,
 120 
  0.8916720, 0.8916720, 0.2555570, 0.2861130, 0.5500030, 0.5500030, 0.5500030,
179 
0.5500030,
 - 
 
180 
  0.5500030, 0.5500030, 0.8002530, 0.4888920, 0.5652800, 0.7944490,
 121 
  0.5500030, 0.5500030, 0.8002530, 0.4888920, 0.5652800, 0.7944490, 0.8555600,
181 
0.8555600,
 - 
 
182 
  0.5500030, 0.9472275, 1.0694500, 0.8555600, 0.2555570, 0.3666690,
 122 
  0.5500030, 0.9472275, 1.0694500, 0.8555600, 0.2555570, 0.3666690, 0.5583360,
183 
0.5583360,
 - 
 
184 
  0.9166720, 0.5500030, 1.0291190, 0.8305610, 0.3055570, 0.4277800,
 123 
  0.9166720, 0.5500030, 1.0291190, 0.8305610, 0.3055570, 0.4277800, 0.4277800,
185 
0.4277800,
 - 
 
186 
  0.5500030, 0.8555600, 0.3055570, 0.3666690, 0.3055570, 0.5500030,
 124 
  0.5500030, 0.8555600, 0.3055570, 0.3666690, 0.3055570, 0.5500030, 0.5500030,
187 
0.5500030,
 - 
 
188 
  0.5500030, 0.5500030, 0.5500030, 0.5500030, 0.5500030, 0.5500030,
 125 
  0.5500030, 0.5500030, 0.5500030, 0.5500030, 0.5500030, 0.5500030, 0.5500030,
189 
0.5500030,
 - 
 
190 
  0.5500030, 0.5500030, 0.3055570, 0.3055570, 0.3666690, 0.8555600,
 126 
  0.5500030, 0.5500030, 0.3055570, 0.3055570, 0.3666690, 0.8555600, 0.5194470,
191 
0.5194470,
 - 
 
192 
  0.5194470, 0.7333370, 0.7333370, 0.7333370, 0.7027820, 0.7944490,
 127 
  0.5194470, 0.7333370, 0.7333370, 0.7333370, 0.7027820, 0.7944490, 0.6416700,
193 
0.6416700,
 - 
 
194 
  0.6111145, 0.7333370, 0.7944490, 0.3305570, 0.5194470, 0.7638930,
 128 
  0.6111145, 0.7333370, 0.7944490, 0.3305570, 0.5194470, 0.7638930, 0.5805590,
195 
0.5805590,
 - 
 
196 
  0.9777830, 0.7944490, 0.7944490, 0.7027820, 0.7944490, 0.7027820,
 129 
  0.9777830, 0.7944490, 0.7944490, 0.7027820, 0.7944490, 0.7027820, 0.6111145,
197 
0.6111145,
 - 
 
198 
  0.7333370, 0.7638930, 0.7333370, 1.0388950, 0.7333370, 0.7333370,
 130 
  0.7333370, 0.7638930, 0.7333370, 1.0388950, 0.7333370, 0.7333370, 0.6722260,
199 
0.6722260,
 - 
 
200 
  0.3430580, 0.5583360, 0.3430580, 0.5500030, 0.3055570, 0.3055570,
 131 
  0.3430580, 0.5583360, 0.3430580, 0.5500030, 0.3055570, 0.3055570, 0.5250030,
201 
0.5250030,
 - 
 
202 
  0.5611140, 0.4888920, 0.5611140, 0.5111140, 0.3361130, 0.5500030,
 132 
  0.5611140, 0.4888920, 0.5611140, 0.5111140, 0.3361130, 0.5500030, 0.5611140,
203 
0.5611140,
 - 
 
204 
  0.2555570, 0.2861130, 0.5305590, 0.2555570, 0.8666720, 0.5611140,
 133 
  0.2555570, 0.2861130, 0.5305590, 0.2555570, 0.8666720, 0.5611140, 0.5500030,
205 
0.5500030,
 - 
 
206 
  0.5611140, 0.5611140, 0.3722250, 0.4216690, 0.4041690, 0.5611140,
 134 
  0.5611140, 0.5611140, 0.3722250, 0.4216690, 0.4041690, 0.5611140, 0.5000030,
207 
0.5000030,
 - 
 
208 
  0.7444490, 0.5000030, 0.5000030, 0.4763920, 0.5500030, 1.1000060,
 135 
  0.7444490, 0.5000030, 0.5000030, 0.4763920, 0.5500030, 1.1000060, 0.5500030,
209 
0.5500030,
 - 
 
210 
  0.5500030, 0.550003
 136 
  0.5500030, 0.550003
211 
}
 137 
}
212 
};
 138 
};
213 
 
 139 
 
214 
static char *fontname[] = {
 140 
static char *fontname[] = {
Line 238... Line 164...
238 
			  DevDesc*);
 164 
			  DevDesc*);
239 
static void   PicTeX_Resize(DevDesc*);
 165 
static void   PicTeX_Resize(DevDesc*);
240 
static double PicTeX_StrWidth(char*, DevDesc*);
 166 
static double PicTeX_StrWidth(char*, DevDesc*);
241 
static void   PicTeX_Text(double, double, int, char*, double, double, double,
 167 
static void   PicTeX_Text(double, double, int, char*, double, double, double,
242 
			  DevDesc*);
 168 
			  DevDesc*);
- 
 
 169 
#ifdef _not_used_
243 
static void   PicTeX_MetricInfo(int, double*, double*, double*, DevDesc*);
 170 
static void   PicTeX_MetricInfo(int, double*, double*, double*, DevDesc*);
244 
 
 171 
#endif
245 
 
 172 
 
246 
	/* Support routines */
 173 
	/* Support routines */
247 
 
 174 
 
248 
static void SetLinetype(int newlty, int newlwd, DevDesc *dd)
 175 
static void SetLinetype(int newlty, int newlwd, DevDesc *dd)
249 
{
 176 
{
Line 283... Line 210...
283 
 
 210 
 
284 
static void PicTeX_Deactivate(DevDesc *dd)
 211 
static void PicTeX_Deactivate(DevDesc *dd)
285 
{
 212 
{
286 
}
 213 
}
287 
 
 214 
 
- 
 
 215 
#ifdef _not_used_
288 
static void PicTeX_MetricInfo(int c, double *accent, double *descent,
 216 
static void PicTeX_MetricInfo(int c, double *accent, double *descent,
289 
			      double *width, DevDesc *dd)
 217 
			      double *width, DevDesc *dd)
290 
{
 218 
{
291 
	error("Metric information not yet available for this device");
 219 
	error("Metric information not yet available for this device");
292 
}
 220 
}
293 
 
 221 
#endif
294 
	/* Initialize the device */
 222 
	/* Initialize the device */
295 
 
 223 
 
296 
static int PicTeX_Open(DevDesc *dd, picTeXDesc *ptd)
 224 
static int PicTeX_Open(DevDesc *dd, picTeXDesc *ptd)
297 
{
 225 
{
298 
    ptd->fontsize = 0;
 226 
    ptd->fontsize = 0;