← Back to branch summary

~ubuntu-branches/ubuntu/lucid/pdl/lucid

« back to all changes in this revision

Viewing changes to Graphics/TriD/TriD/Logo.pm

  • Committer: Bazaar Package Importer
  • Author(s): Ben Gertzfield
  • Date: 2002-04-08 18:47:16 UTC
  • Revision ID: james.westby@ubuntu.com-20020408184716-0hf64dc96kin3htp
Tags: upstream-2.3.2
Import upstream version 2.3.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
Graphics/TriD/TriD/Logo.pm
 
1
package PDL::Graphics::TriD::Logo;
 
2
use PDL::Lite;
 
3
 
 
4
@ISA=qw/PDL::Graphics::TriD::Object/;
 
5
 
 
6
sub new {
 
7
  my ($type,$pos,$size) = @_;
 
8
  $this = bless {},$type;
 
9
  $this->{Points} = PDL->pdl ([
 
10
                               [  0.843,  0.852,      0],
 
11
                               [  0.843,  0.852,     -1],
 
12
                               [  1.227,  0.891,      0],
 
13
                               [  1.227,  0.891,     -1],
 
14
                               [   1.56,  1.071,      0],
 
15
                               [   1.56,  1.071,     -1],
 
16
                               [  1.722,  1.488,      0],
 
17
                               [  1.722,  1.488,     -1],
 
18
                               [  1.656,  1.776,      0],
 
19
                               [  1.656,  1.776,     -1],
 
20
                               [  1.488,  1.956,      0],
 
21
                               [  1.488,  1.956,     -1],
 
22
                               [  0.942,  2.076,      0],
 
23
                               [  0.942,  2.076,     -1],
 
24
                               [  0.105,  2.076,      0],
 
25
                               [  0.105,  2.076,     -1],
 
26
                               [  0.105,  1.989,      0],
 
27
                               [  0.105,  1.989,     -1],
 
28
                               [  0.339,   1.95,      0],
 
29
                               [  0.339,   1.95,     -1],
 
30
                               [  0.375,  1.797,      0],
 
31
                               [  0.375,  1.797,     -1],
 
32
                               [  0.375,  0.279,      0],
 
33
                               [  0.375,  0.279,     -1],
 
34
                               [  0.339,  0.126,      0],
 
35
                               [  0.339,  0.126,     -1],
 
36
                               [  0.105,  0.087,      0],
 
37
                               [  0.105,  0.087,     -1],
 
38
                               [  0.105,      0,      0],
 
39
                               [  0.105,      0,     -1],
 
40
                               [   0.99,      0,      0],
 
41
                               [   0.99,      0,     -1],
 
42
                               [   0.99,  0.087,      0],
 
43
                               [   0.99,  0.087,     -1],
 
44
                               [  0.714,  0.126,      0],
 
45
                               [  0.714,  0.126,     -1],
 
46
                               [  0.672,  0.279,      0],
 
47
                               [  0.672,  0.279,     -1],
 
48
                               [  0.672,  0.852,      0],
 
49
                               [  0.672,  0.852,     -1],
 
50
                               [  0.714,  1.947,      0],
 
51
                               [  0.714,  1.947,     -1],
 
52
                               [    0.9,  1.971,      0],
 
53
                               [    0.9,  1.971,     -1],
 
54
                               [  1.266,  1.842,      0],
 
55
                               [  1.266,  1.842,     -1],
 
56
                               [  1.398,  1.467,      0],
 
57
                               [  1.398,  1.467,     -1],
 
58
                               [  1.242,  1.071,      0],
 
59
                               [  1.242,  1.071,     -1],
 
60
                               [  0.894,  0.957,      0],
 
61
                               [  0.894,  0.957,     -1],
 
62
                               [  0.717,  0.975,      0],
 
63
                               [  0.717,  0.975,     -1],
 
64
                               [  0.672,  1.074,      0],
 
65
                               [  0.672,  1.074,     -1],
 
66
                               [  0.672,   1.86,      0],
 
67
                               [  0.672,   1.86,     -1],
 
68
                               [  2.526,  1.944,      0],
 
69
                               [  2.526,  1.944,     -1],
 
70
                               [   2.82,  1.971,      0],
 
71
                               [   2.82,  1.971,     -1],
 
72
                               [  3.222,  1.896,      0],
 
73
                               [  3.222,  1.896,     -1],
 
74
                               [   3.48,  1.701,      0],
 
75
                               [   3.48,  1.701,     -1],
 
76
                               [  3.657,  1.062,      0],
 
77
                               [  3.657,  1.062,     -1],
 
78
                               [  3.591,  0.594,      0],
 
79
                               [  3.591,  0.594,     -1],
 
80
                               [  3.411,    0.3,      0],
 
81
                               [  3.411,    0.3,     -1],
 
82
                               [  3.132,  0.147,      0],
 
83
                               [  3.132,  0.147,     -1],
 
84
                               [  2.784,  0.105,      0],
 
85
                               [  2.784,  0.105,     -1],
 
86
                               [  2.529,   0.15,      0],
 
87
                               [  2.529,   0.15,     -1],
 
88
                               [  2.472,  0.375,      0],
 
89
                               [  2.472,  0.375,     -1],
 
90
                               [  2.472,    1.8,      0],
 
91
                               [  2.472,    1.8,     -1],
 
92
                               [  1.905,  1.989,      0],
 
93
                               [  1.905,  1.989,     -1],
 
94
                               [  2.139,   1.95,      0],
 
95
                               [  2.139,   1.95,     -1],
 
96
                               [  2.175,  1.797,      0],
 
97
                               [  2.175,  1.797,     -1],
 
98
                               [  2.175,  0.279,      0],
 
99
                               [  2.175,  0.279,     -1],
 
100
                               [  2.139,  0.126,      0],
 
101
                               [  2.139,  0.126,     -1],
 
102
                               [  1.905,  0.087,      0],
 
103
                               [  1.905,  0.087,     -1],
 
104
                               [  1.905,      0,      0],
 
105
                               [  1.905,      0,     -1],
 
106
                               [  2.841,      0,      0],
 
107
                               [  2.841,      0,     -1],
 
108
                               [  3.603,  0.192,      0],
 
109
                               [  3.603,  0.192,     -1],
 
110
                               [  3.882,  0.522,      0],
 
111
                               [  3.882,  0.522,     -1],
 
112
                               [  3.993,  1.074,      0],
 
113
                               [  3.993,  1.074,     -1],
 
114
                               [  3.927,  1.491,      0],
 
115
                               [  3.927,  1.491,     -1],
 
116
                               [  3.723,  1.815,      0],
 
117
                               [  3.723,  1.815,     -1],
 
118
                               [  3.375,  2.013,      0],
 
119
                               [  3.375,  2.013,     -1],
 
120
                               [  2.901,  2.076,      0],
 
121
                               [  2.901,  2.076,     -1],
 
122
                               [  1.905,  2.076,      0],
 
123
                               [  1.905,  2.076,     -1],
 
124
                               [  4.848,   1.95,      0],
 
125
                               [  4.848,   1.95,     -1],
 
126
                               [  5.097,  1.989,      0],
 
127
                               [  5.097,  1.989,     -1],
 
128
                               [  5.097,  2.076,      0],
 
129
                               [  5.097,  2.076,     -1],
 
130
                               [  4.242,  2.076,      0],
 
131
                               [  4.242,  2.076,     -1],
 
132
                               [  4.242,  1.989,      0],
 
133
                               [  4.242,  1.989,     -1],
 
134
                               [  4.476,   1.95,      0],
 
135
                               [  4.476,   1.95,     -1],
 
136
                               [  4.512,  1.797,      0],
 
137
                               [  4.512,  1.797,     -1],
 
138
                               [  4.512,  0.279,      0],
 
139
                               [  4.512,  0.279,     -1],
 
140
                               [  4.476,  0.126,      0],
 
141
                               [  4.476,  0.126,     -1],
 
142
                               [  4.242,  0.087,      0],
 
143
                               [  4.242,  0.087,     -1],
 
144
                               [  4.242,      0,      0],
 
145
                               [  4.242,      0,     -1],
 
146
                               [  5.799,      0,      0],
 
147
                               [  5.799,      0,     -1],
 
148
                               [  5.835,  0.537,      0],
 
149
                               [  5.835,  0.537,     -1],
 
150
                               [  5.745,  0.537,      0],
 
151
                               [  5.745,  0.537,     -1],
 
152
                               [  5.571,  0.174,      0],
 
153
                               [  5.571,  0.174,     -1],
 
154
                               [  5.205,  0.105,      0],
 
155
                               [  5.205,  0.105,     -1],
 
156
                               [  4.884,  0.135,      0],
 
157
                               [  4.884,  0.135,     -1],
 
158
                               [  4.809,   0.36,      0],
 
159
                               [  4.809,   0.36,     -1],
 
160
                               [  4.809,  1.797,      0],
 
161
                               [  4.809,  1.797,     -1]]);
 
162
  $this->{Index} = PDL->pdl([
 
163
                             [  0,  1,  2],
 
164
                             [  3,  2,  1],
 
165
                             [  2,  3,  4],
 
166
                             [  5,  4,  3],
 
167
                             [  4,  5,  6],
 
168
                             [  7,  6,  5],
 
169
                             [  6,  7,  8],
 
170
                             [  9,  8,  7],
 
171
                             [  8,  9, 10],
 
172
                             [ 11, 10,  9],
 
173
                             [ 10, 11, 12],
 
174
                             [ 13, 12, 11],
 
175
                             [ 12, 13, 14],
 
176
                             [ 15, 14, 13],
 
177
                             [ 14, 15, 16],
 
178
                             [ 17, 16, 15],
 
179
                             [ 16, 17, 18],
 
180
                             [ 19, 18, 17],
 
181
                             [ 18, 19, 20],
 
182
                             [ 21, 20, 19],
 
183
                             [ 20, 21, 22],
 
184
                             [ 23, 22, 21],
 
185
                             [ 22, 23, 24],
 
186
                             [ 25, 24, 23],
 
187
                             [ 24, 25, 26],
 
188
                             [ 27, 26, 25],
 
189
                             [ 26, 27, 28],
 
190
                             [ 29, 28, 27],
 
191
                             [ 28, 29, 30],
 
192
                             [ 31, 30, 29],
 
193
                             [ 30, 31, 32],
 
194
                             [ 33, 32, 31],
 
195
                             [ 32, 33, 34],
 
196
                             [ 35, 34, 33],
 
197
                             [ 34, 35, 36],
 
198
                             [ 37, 36, 35],
 
199
                             [ 36, 37, 38],
 
200
                             [ 39, 38, 37],
 
201
                             [ 38, 39,  0],
 
202
                             [  1,  0, 39],
 
203
                             [ 40, 41, 42],
 
204
                             [ 43, 42, 41],
 
205
                             [ 42, 43, 44],
 
206
                             [ 45, 44, 43],
 
207
                             [ 44, 45, 46],
 
208
                             [ 47, 46, 45],
 
209
                             [ 46, 47, 48],
 
210
                             [ 49, 48, 47],
 
211
                             [ 48, 49, 50],
 
212
                             [ 51, 50, 49],
 
213
                             [ 50, 51, 52],
 
214
                             [ 53, 52, 51],
 
215
                             [ 52, 53, 54],
 
216
                             [ 55, 54, 53],
 
217
                             [ 54, 55, 56],
 
218
                             [ 57, 56, 55],
 
219
                             [ 56, 57, 40],
 
220
                             [ 41, 40, 57],
 
221
                             [ 58, 59, 60],
 
222
                             [ 61, 60, 59],
 
223
                             [ 60, 61, 62],
 
224
                             [ 63, 62, 61],
 
225
                             [ 62, 63, 64],
 
226
                             [ 65, 64, 63],
 
227
                             [ 64, 65, 66],
 
228
                             [ 67, 66, 65],
 
229
                             [ 66, 67, 68],
 
230
                             [ 69, 68, 67],
 
231
                             [ 68, 69, 70],
 
232
                             [ 71, 70, 69],
 
233
                             [ 70, 71, 72],
 
234
                             [ 73, 72, 71],
 
235
                             [ 72, 73, 74],
 
236
                             [ 75, 74, 73],
 
237
                             [ 74, 75, 76],
 
238
                             [ 77, 76, 75],
 
239
                             [ 76, 77, 78],
 
240
                             [ 79, 78, 77],
 
241
                             [ 78, 79, 80],
 
242
                             [ 81, 80, 79],
 
243
                             [ 80, 81, 58],
 
244
                             [ 59, 58, 81],
 
245
                             [ 82, 83, 84],
 
246
                             [ 85, 84, 83],
 
247
                             [ 84, 85, 86],
 
248
                             [ 87, 86, 85],
 
249
                             [ 86, 87, 88],
 
250
                             [ 89, 88, 87],
 
251
                             [ 88, 89, 90],
 
252
                             [ 91, 90, 89],
 
253
                             [ 90, 91, 92],
 
254
                             [ 93, 92, 91],
 
255
                             [ 92, 93, 94],
 
256
                             [ 95, 94, 93],
 
257
                             [ 94, 95, 96],
 
258
                             [ 97, 96, 95],
 
259
                             [ 96, 97, 98],
 
260
                             [ 99, 98, 97],
 
261
                             [ 98, 99,100],
 
262
                             [101,100, 99],
 
263
                             [100,101,102],
 
264
                             [103,102,101],
 
265
                             [102,103,104],
 
266
                             [105,104,103],
 
267
                             [104,105,106],
 
268
                             [107,106,105],
 
269
                             [106,107,108],
 
270
                             [109,108,107],
 
271
                             [108,109,110],
 
272
                             [111,110,109],
 
273
                             [110,111,112],
 
274
                             [113,112,111],
 
275
                             [112,113, 82],
 
276
                             [ 83, 82,113],
 
277
                             [114,115,116],
 
278
                             [117,116,115],
 
279
                             [116,117,118],
 
280
                             [119,118,117],
 
281
                             [118,119,120],
 
282
                             [121,120,119],
 
283
                             [120,121,122],
 
284
                             [123,122,121],
 
285
                             [122,123,124],
 
286
                             [125,124,123],
 
287
                             [124,125,126],
 
288
                             [127,126,125],
 
289
                             [126,127,128],
 
290
                             [129,128,127],
 
291
                             [128,129,130],
 
292
                             [131,130,129],
 
293
                             [130,131,132],
 
294
                             [133,132,131],
 
295
                             [132,133,134],
 
296
                             [135,134,133],
 
297
                             [134,135,136],
 
298
                             [137,136,135],
 
299
                             [136,137,138],
 
300
                             [139,138,137],
 
301
                             [138,139,140],
 
302
                             [141,140,139],
 
303
                             [140,141,142],
 
304
                             [143,142,141],
 
305
                             [142,143,144],
 
306
                             [145,144,143],
 
307
                             [144,145,146],
 
308
                             [147,146,145],
 
309
                             [146,147,148],
 
310
                             [149,148,147],
 
311
                             [148,149,150],
 
312
                             [151,150,149],
 
313
                             [150,151,114],
 
314
                             [115,114,151],
 
315
                             [ 13, 43, 41],
 
316
                             [ 13, 45, 43],
 
317
                             [ 11, 45, 13],
 
318
                             [ 11, 47, 45],
 
319
                             [  5, 47, 11],
 
320
                             [  5, 49, 47],
 
321
                             [  3, 49,  5],
 
322
                             [  3, 51, 49],
 
323
                             [  1, 51,  3],
 
324
                             [  1, 53, 51],
 
325
                             [ 39, 53,  1],
 
326
                             [ 39, 55, 53],
 
327
                             [ 57, 55, 39],
 
328
                             [ 57, 39, 37],
 
329
                             [ 21, 57, 37],
 
330
                             [ 23, 21, 37],
 
331
                             [ 35, 23, 37],
 
332
                             [ 21, 41, 57],
 
333
                             [ 21, 13, 41],
 
334
                             [ 19, 13, 21],
 
335
                             [ 19, 15, 13],
 
336
                             [ 17, 15, 19],
 
337
                             [  5, 11,  9],
 
338
                             [  7,  5,  9],
 
339
                             [ 35, 33, 31],
 
340
                             [ 23, 35, 31],
 
341
                             [ 25, 23, 31],
 
342
                             [ 27, 25, 31],
 
343
                             [ 29, 27, 31],
 
344
                             [111, 61, 59],
 
345
                             [111, 63, 61],
 
346
                             [109, 63,111],
 
347
                             [109, 65, 63],
 
348
                             [107, 65,109],
 
349
                             [107, 67, 65],
 
350
                             [101, 67,107],
 
351
                             [101, 99, 67],
 
352
                             [ 97, 75, 73],
 
353
                             [ 97, 77, 75],
 
354
                             [ 89, 77, 97],
 
355
                             [ 89, 79, 77],
 
356
                             [ 87, 79, 89],
 
357
                             [ 87, 81, 79],
 
358
                             [ 59, 81, 87],
 
359
                             [ 59, 87, 85],
 
360
                             [111, 59, 85],
 
361
                             [113,111, 85],
 
362
                             [ 83,113, 85],
 
363
                             [101,107,105],
 
364
                             [103,101,105],
 
365
                             [ 69, 67, 99],
 
366
                             [ 71, 69, 99],
 
367
                             [ 73, 71, 99],
 
368
                             [ 97, 73, 99],
 
369
                             [ 91, 89, 97],
 
370
                             [ 93, 91, 97],
 
371
                             [ 95, 93, 97],
 
372
                             [125,121,119],
 
373
                             [127,125,119],
 
374
                             [115,127,119],
 
375
                             [117,115,119],
 
376
                             [149,127,151],
 
377
                             [149,129,127],
 
378
                             [147,129,149],
 
379
                             [147,131,129],
 
380
                             [137,131,147],
 
381
                             [137,133,131],
 
382
                             [135,133,137],
 
383
                             [141,139,137],
 
384
                             [143,141,137],
 
385
                             [145,143,137],
 
386
                             [147,145,137],
 
387
                             [123,121,125],
 
388
                             [151,127,115],
 
389
                             [ 40, 42, 12],
 
390
                             [ 12, 42, 44],
 
391
                             [ 12, 44, 10],
 
392
                             [ 10, 44, 46],
 
393
                             [ 10, 46,  4],
 
394
                             [  4, 46, 48],
 
395
                             [  4, 48,  2],
 
396
                             [  2, 48, 50],
 
397
                             [  2, 50,  0],
 
398
                             [  0, 50, 52],
 
399
                             [  0, 52, 38],
 
400
                             [ 38, 52, 54],
 
401
                             [ 38, 54, 56],
 
402
                             [ 36, 38, 56],
 
403
                             [ 36, 56, 20],
 
404
                             [ 36, 20, 22],
 
405
                             [ 36, 22, 34],
 
406
                             [ 56, 40, 20],
 
407
                             [ 20, 40, 12],
 
408
                             [ 20, 12, 18],
 
409
                             [ 18, 12, 14],
 
410
                             [ 18, 14, 16],
 
411
                             [  8, 10,  4],
 
412
                             [  8,  4,  6],
 
413
                             [ 30, 32, 34],
 
414
                             [ 30, 34, 22],
 
415
                             [ 30, 22, 24],
 
416
                             [ 30, 24, 26],
 
417
                             [ 30, 26, 28],
 
418
                             [ 58, 60,110],
 
419
                             [110, 60, 62],
 
420
                             [110, 62,108],
 
421
                             [108, 62, 64],
 
422
                             [108, 64,106],
 
423
                             [106, 64, 66],
 
424
                             [106, 66,100],
 
425
                             [100, 66, 98],
 
426
                             [ 72, 74, 96],
 
427
                             [ 96, 74, 76],
 
428
                             [ 96, 76, 88],
 
429
                             [ 88, 76, 78],
 
430
                             [ 88, 78, 86],
 
431
                             [ 86, 78, 80],
 
432
                             [ 86, 80, 58],
 
433
                             [ 84, 86, 58],
 
434
                             [ 84, 58,110],
 
435
                             [ 84,110,112],
 
436
                             [ 84,112, 82],
 
437
                             [104,106,100],
 
438
                             [104,100,102],
 
439
                             [ 98, 66, 68],
 
440
                             [ 98, 68, 70],
 
441
                             [ 98, 70, 72],
 
442
                             [ 98, 72, 96],
 
443
                             [ 96, 88, 90],
 
444
                             [ 96, 90, 92],
 
445
                             [ 96, 92, 94],
 
446
                             [118,120,124],
 
447
                             [118,124,126],
 
448
                             [118,126,114],
 
449
                             [118,114,116],
 
450
                             [150,126,148],
 
451
                             [148,126,128],
 
452
                             [148,128,146],
 
453
                             [146,128,130],
 
454
                             [146,130,136],
 
455
                             [136,130,132],
 
456
                             [136,132,134],
 
457
                             [136,138,140],
 
458
                             [136,140,142],
 
459
                             [136,142,144],
 
460
                             [136,144,146],
 
461
                             [124,120,122],
 
462
                             [114,126,150]]);
 
463
  $this->{Material} = new PDL::Graphics::TriD::Material(
 
464
                                  Shine => 0.212766,
 
465
                                   Specular =>[0.753217,0.934416,1],
 
466
                                   Ambient =>[0,0,0],
 
467
                                   Diffuse =>[0.09855,0.153113,0.191489],
 
468
                                   Emissive =>[0, 0, 0]);
 
469
  $this->{Pos} = defined($pos) ? $pos : [0,1.2,0];
 
470
  $this->{Size} = defined($size) ? $size : 0.1;
 
471
  return $this;
 
472
}
 
473
 
 
474
1;
 
475
 
 
476
 
 
477
# ***add these lines to, e.g. tvrml2.pl
 
478
#
 
479
# use PDL::Graphics::TriD::Logo;
 
480
# $win->add_object(new PDL::Graphics::TriD::Logo);
 
481