← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to demos/wheel2/Maple/wheel.ps

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
demos/wheel2/Maple/wheel.ps
 
1
%!PS-Adobe-2.0 EPSF
 
2
%%Title: wheel.fig
 
3
%%Creator: fig2dev
 
4
%%CreationDate: Sun Apr 11 17:46:41 1993
 
5
%%For: jpc@nina (Jean-Philippe CHANCELIER)
 
6
%%BoundingBox: 0 0 274 154
 
7
%%Pages: 0
 
8
%%EndComments
 
9
/$F2psDict 200 dict def 
 
10
$F2psDict begin
 
11
$F2psDict /mtrx matrix put
 
12
/l {lineto} bind def
 
13
/m {moveto} bind def
 
14
/s {stroke} bind def
 
15
/n {newpath} bind def
 
16
/gs {gsave} bind def
 
17
/gr {grestore} bind def
 
18
/clp {closepath} bind def
 
19
/graycol {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
 
20
4 -2 roll mul setrgbcolor} bind def
 
21
/col-1 {} def
 
22
/col0 {0 0 0 setrgbcolor} bind def
 
23
/col1 {0 0 1 setrgbcolor} bind def
 
24
/col2 {0 1 0 setrgbcolor} bind def
 
25
/col3 {0 1 1 setrgbcolor} bind def
 
26
/col4 {1 0 0 setrgbcolor} bind def
 
27
/col5 {1 0 1 setrgbcolor} bind def
 
28
/col6 {1 1 0 setrgbcolor} bind def
 
29
/col7 {1 1 1 setrgbcolor} bind def
 
30
 /DrawEllipse {
 
31
        /endangle exch def
 
32
        /startangle exch def
 
33
        /yrad exch def
 
34
        /xrad exch def
 
35
        /y exch def
 
36
        /x exch def
 
37
        /savematrix mtrx currentmatrix def
 
38
        x y translate xrad yrad scale 0 0 1 startangle endangle arc
 
39
        savematrix setmatrix
 
40
        } def
 
41
 
 
42
        end
 
43
/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
 
44
/$F2psEnd {$F2psEnteredState restore end} def
 
45
%%EndProlog
 
46
 
 
47
$F2psBegin
 
48
0 setlinecap 0 setlinejoin
 
49
-27.0 196.0 translate 0.450 -0.450 scale
 
50
0.500 setlinewidth
 
51
% Ellipse
 
52
n 561 261 44 44 0 360 DrawEllipse gs col-1 s gr
 
53
        [4.000000] 0 setdash
 
54
% Ellipse
 
55
n 564 264 7 7 0 360 DrawEllipse gs col-1 s gr
 
56
        [] 0 setdash
 
57
        [4.000000] 0 setdash
 
58
% Polyline
 
59
n 564 264 m 649 264 l gs col-1 s gr
 
60
        [] 0 setdash
 
61
n 641.000 262.000 m 649.000 264.000 l 641.000 266.000 l gs 2 setlinejoin col-1 s gr
 
62
        [4.000000] 0 setdash
 
63
% Polyline
 
64
n 564 264 m 564 349 l gs col-1 s gr
 
65
        [] 0 setdash
 
66
n 566.000 341.000 m 564.000 349.000 l 562.000 341.000 l gs 2 setlinejoin col-1 s gr
 
67
n 316.419 347.245 m 324.000 344.000 l 318.838 350.431 l gs 2 setlinejoin col-1 s gr
 
68
n 244.798 239.691 130.971 137.008 52.791 arcn
 
69
gs col-1 s gr
 
70
n 347.898 199.547 m 354.000 194.000 l 351.226 201.766 l gs 2 setlinejoin col-1 s gr
 
71
n 339.000 184.000 18.028 -123.690 33.690 arcn
 
72
gs col-1 s gr
 
73
n 309.893 200.802 m 309.000 209.000 l 305.930 201.346 l gs 2 setlinejoin col-1 s gr
 
74
n 240.071 218.464 69.575 -86.763 -7.818 arc
 
75
gs col-1 s gr
 
76
% Rotated Ellipse
 
77
gs
 
78
244 274 translate
 
79
-11.975 rotate
 
80
n 0 0 70 40 0 360 DrawEllipse gs col-1 s gr
 
81
gr
 
82
% Polyline
 
83
n 244 274 m 359 369 l gs col-1 s gr
 
84
n 354.106 362.363 m 359.000 369.000 l 351.559 365.447 l gs 2 setlinejoin col-1 s gr
 
85
n 244 274 m 244 274 l gs col-1 s gr
 
86
        [4.000000] 0 setdash
 
87
% Polyline
 
88
n 244 274 m 394 234 l gs col-1 s gr
 
89
        [] 0 setdash
 
90
n 385.755 234.129 m 394.000 234.000 l 386.785 237.994 l gs 2 setlinejoin col-1 s gr
 
91
        [4.000000] 0 setdash
 
92
% Polyline
 
93
n 244 274 m 294 409 l gs col-1 s gr
 
94
        [] 0 setdash
 
95
n 293.097 400.803 m 294.000 409.000 l 289.346 402.193 l gs 2 setlinejoin col-1 s gr
 
96
        [4.000000] 0 setdash
 
97
% Polyline
 
98
n 244 274 m 344 179 l gs col-1 s gr
 
99
        [] 0 setdash
 
100
n 336.823 183.060 m 344.000 179.000 l 339.578 185.960 l gs 2 setlinejoin col-1 s gr
 
101
1.000 setlinewidth
 
102
% Polyline
 
103
n 244 274 m 419 274 l gs col-1 s gr
 
104
n 411.000 272.000 m 419.000 274.000 l 411.000 276.000 l gs 2 setlinejoin col-1 s gr
 
105
% Polyline
 
106
n 244 274 m 244 119 l gs col-1 s gr
 
107
n 242.000 127.000 m 244.000 119.000 l 246.000 127.000 l gs 2 setlinejoin col-1 s gr
 
108
% Polyline
 
109
n 244 274 m 99 359 l gs col-1 s gr
 
110
n 106.913 356.680 m 99.000 359.000 l 104.890 353.229 l gs 2 setlinejoin col-1 s gr
 
111
$F2psEnd