diff options
Diffstat (limited to 'Master/texmf-dist/dvips')
| -rw-r--r-- | Master/texmf-dist/dvips/pst-vue3d/pst-vue3d.pro | 2092 |
1 files changed, 0 insertions, 2092 deletions
diff --git a/Master/texmf-dist/dvips/pst-vue3d/pst-vue3d.pro b/Master/texmf-dist/dvips/pst-vue3d/pst-vue3d.pro deleted file mode 100644 index b6e8d1289ab..00000000000 --- a/Master/texmf-dist/dvips/pst-vue3d/pst-vue3d.pro +++ /dev/null @@ -1,2092 +0,0 @@ -%version 33 march 2007 -% -/tx@3DDict 100 dict def -tx@3DDict begin -/Cube{% - /XA M11 A mul M12 B mul add M13 C mul add CX add def - /YA M21 A mul M22 B mul add M23 C mul add CY add def - /ZA M31 A mul M32 B mul add M33 C mul add CZ add def - /XB M11 A mul neg M12 B mul add M13 C mul add CX add def - /YB M21 A mul neg M22 B mul add M23 C mul add CY add def - /ZB M31 A mul neg M32 B mul add M33 C mul add CZ add def - /XC M11 A mul neg M12 B mul neg add M13 C mul add CX add def - /YC M21 A mul neg M22 B mul neg add M23 C mul add CY add def - /ZC M31 A mul neg M32 B mul neg add M33 C mul add CZ add def - /XD M11 A mul M12 B mul neg add M13 C mul add CX add def - /YD M21 A mul M22 B mul neg add M23 C mul add CY add def - /ZD M31 A mul M32 B mul neg add M33 C mul add CZ add def - /XE M11 A mul M12 B mul add M13 C mul sub CX add def - /YE M21 A mul M22 B mul add M23 C mul sub CY add def - /ZE M31 A mul M32 B mul add M33 C mul sub CZ add def - /XF M11 A mul neg M12 B mul add M13 C mul sub CX add def - /YF M21 A mul neg M22 B mul add M23 C mul sub CY add def - /ZF M31 A mul neg M32 B mul add M33 C mul sub CZ add def - /XG M11 A mul neg M12 B mul sub M13 C mul sub CX add def - /YG M21 A mul neg M22 B mul sub M23 C mul sub CY add def - /ZG M31 A mul neg M32 B mul sub M33 C mul sub CZ add def - /XH M11 A mul M12 B mul sub M13 C mul sub CX add def - /YH M21 A mul M22 B mul sub M23 C mul sub CY add def - /ZH M31 A mul M32 B mul sub M33 C mul sub CZ add def -% Centres des faces : condition de visibilité -% FACE 1 -% OC1 - /XC1 M13 C mul CX add def - /YC1 M23 C mul CY add def - /ZC1 M33 C mul CZ add def -% Normale à la face 1 - /NX1 M13 C mul def - /NY1 M23 C mul def - /NZ1 M33 C mul def -% rayon vers point de vue - /RXvue1 XC1 XpointVue sub def - /RYvue1 YC1 YpointVue sub def - /RZvue1 ZC1 ZpointVue sub def -% produit scalaire - /PS1 RXvue1 NX1 mul RYvue1 NY1 mul add RZvue1 NZ1 mul add def -% FACE 2 -% OC2 - /XC2 M11 A mul CX add def - /YC2 M21 A mul CY add def - /ZC2 M31 A mul CZ add def -% normale à la face 2 - /NX2 M11 A mul def - /NY2 M21 A mul def - /NZ2 M31 A mul def -% rayon vers point de vue - /RXvue2 XC2 XpointVue sub def - /RYvue2 YC2 YpointVue sub def - /RZvue2 ZC2 ZpointVue sub def -% produit scalaire - /PS2 RXvue2 NX2 mul RYvue2 NY2 mul add RZvue2 NZ2 mul add def -% FACE 3 -% OC3 - /XC3 M13 C neg mul CX add def - /YC3 M23 C neg mul CY add def - /ZC3 M33 C neg mul CZ add def -% normale à la face 3 - /NX3 M13 C neg mul def - /NY3 M23 C neg mul def - /NZ3 M33 C neg mul def -% rayon vers point de vue - /RXvue3 XC3 XpointVue sub def - /RYvue3 YC3 YpointVue sub def - /RZvue3 ZC3 ZpointVue sub def -% produit scalaire - /PS3 RXvue3 NX3 mul RYvue3 NY3 mul add RZvue3 NZ3 mul add def -% FACE 4 -% OC4 - /XC4 M11 A neg mul CX add def - /YC4 M21 A neg mul CY add def - /ZC4 M31 A neg mul CZ add def -% normale à la face 4 - /NX4 M11 A neg mul def - /NY4 M21 A neg mul def - /NZ4 M31 A neg mul def -% rayon vers point de vue - /RXvue4 XC4 XpointVue sub def - /RYvue4 YC4 YpointVue sub def - /RZvue4 ZC4 ZpointVue sub def -% produit scalaire - /PS4 RXvue4 NX4 mul RYvue4 NY4 mul add RZvue4 NZ4 mul add def -% FACE 5 -% OC5 - /XC5 M12 B neg mul CX add def - /YC5 M22 B neg mul CY add def - /ZC5 M32 B neg mul CZ add def -% normale à la face 5 - /NX5 M12 B neg mul def - /NY5 M22 B neg mul def - /NZ5 M32 B neg mul def -% rayon vers point de vue - /RXvue5 XC5 XpointVue sub def - /RYvue5 YC5 YpointVue sub def - /RZvue5 ZC5 ZpointVue sub def -% produit scalaire - /PS5 RXvue5 NX5 mul RYvue5 NY5 mul add RZvue5 NZ5 mul add def -% FACE 6 -% OC6 - /XC6 M12 B mul CX add def - /YC6 M22 B mul CY add def - /ZC6 M32 B mul CZ add def -% normale à la face 6 - /NX6 M12 B mul def - /NY6 M22 B mul def - /NZ6 M32 B mul def -% rayon vers point de vue - /RXvue6 XC6 XpointVue sub def - /RYvue6 YC6 YpointVue sub def - /RZvue6 ZC6 ZpointVue sub def -% produit scalaire - /PS6 RXvue6 NX6 mul RYvue6 NY6 mul add RZvue6 NZ6 mul add def -% faceOne -PS1 0 Condition { % -reduction reduction scale -1 setlinejoin -newpath - /Yordonnee YA def - /Zcote ZA def - /Xabscisse XA def - CalcCoordinates - moveto - /Zcote ZB def - /Xabscisse XB def - /Yordonnee YB def - CalcCoordinates - lineto - /Zcote ZC def - /Xabscisse XC def - /Yordonnee YC def - CalcCoordinates - lineto - /Zcote ZD def - /Xabscisse XD def - /Yordonnee YD def - CalcCoordinates - lineto - /Zcote ZA def - /Xabscisse XA def - /Yordonnee YA def - CalcCoordinates - lineto -closepath -gsave -CubeColorFaceOne setrgbcolor -fill -grestore -stroke -} if -% faceTwo -PS2 0 Condition{ % -reduction reduction scale -1 setlinejoin -newpath - /Xabscisse XA def - /Yordonnee YA def - /Zcote ZA def - CalcCoordinates - moveto - /Zcote ZD def - /Xabscisse XD def - /Yordonnee YD def - CalcCoordinates - lineto - /Zcote ZH def - /Xabscisse XH def - /Yordonnee YH def - CalcCoordinates - lineto - /Zcote ZE def - /Xabscisse XE def - /Yordonnee YE def - CalcCoordinates - lineto - /Zcote ZA def - /Xabscisse XA def - /Yordonnee YA def - CalcCoordinates - lineto -closepath -gsave -CubeColorFaceTwo setrgbcolor -fill -grestore -stroke -} if -% face three -PS3 0 Condition{ % -reduction reduction scale -1 setlinejoin -newpath - /Xabscisse XE def - /Yordonnee YE def - /Zcote ZE def - CalcCoordinates - moveto - /Zcote ZF def - /Xabscisse XF def - /Yordonnee YF def - CalcCoordinates - lineto - /Zcote ZG def - /Xabscisse XG def - /Yordonnee YG def - CalcCoordinates - lineto - /Zcote ZH def - /Xabscisse XH def - /Yordonnee YH def - CalcCoordinates - lineto - /Zcote ZE def - /Xabscisse XE def - /Yordonnee YE def - CalcCoordinates - lineto -closepath -gsave -CubeColorFaceThree setrgbcolor -fill -grestore -stroke -} if -% face four -PS4 0 Condition{ % -reduction reduction scale -1 setlinejoin -newpath - /Xabscisse XB def - /Yordonnee YB def - /Zcote ZB def - CalcCoordinates - moveto - /Zcote ZF def - /Xabscisse XF def - /Yordonnee YF def - CalcCoordinates - lineto - /Zcote ZG def - /Xabscisse XG def - /Yordonnee YG def - CalcCoordinates - lineto - /Zcote ZC def - /Xabscisse XC def - /Yordonnee YC def - CalcCoordinates - lineto - /Zcote ZB def - /Xabscisse XB def - /Yordonnee YB def - CalcCoordinates - lineto -closepath -gsave -CubeColorFaceFour setrgbcolor -fill -grestore -stroke -} if -% face five -PS5 0 Condition{ % -reduction reduction scale -1 setlinejoin -newpath - /Xabscisse XC def - /Yordonnee YC def - /Zcote ZC def - CalcCoordinates - moveto - /Zcote ZD def - /Xabscisse XD def - /Yordonnee YD def - CalcCoordinates - lineto - /Zcote ZH def - /Xabscisse XH def - /Yordonnee YH def - CalcCoordinates - lineto - /Zcote ZG def - /Xabscisse XG def - /Yordonnee YG def - CalcCoordinates - lineto - /Zcote ZC def - /Xabscisse XC def - /Yordonnee YC def - CalcCoordinates - lineto -closepath -gsave -CubeColorFaceFive setrgbcolor -fill -grestore -stroke -} if -% face six -PS6 0 Condition{ % -reduction reduction scale -1 setlinejoin -newpath - /Xabscisse XB def - /Yordonnee YB def - /Zcote ZB def - CalcCoordinates - moveto - /Zcote ZA def - /Xabscisse XA def - /Yordonnee YA def - CalcCoordinates - lineto - /Zcote ZE def - /Xabscisse XE def - /Yordonnee YE def - CalcCoordinates - lineto - /Zcote ZF def - /Xabscisse XF def - /Yordonnee YF def - CalcCoordinates - lineto - /Zcote ZB def - /Xabscisse XB def - /Yordonnee YB def - CalcCoordinates - lineto -closepath -gsave -CubeColorFaceSix setrgbcolor -fill -grestore -stroke -} if -} -def -% -/PointsDie{% -PS6 0 Condition{ % -reduction reduction scale -A 2 div neg A A 2 div { - /XCpoint exch def -C 2 div neg C C 2 div { - /ZCpoint exch def -newpath - /Zpoint Rpoint ZCpoint add def - /Xpoint XCpoint def - /Ypoint B def -CalculsPointsAfterTransformations -CalcCoordinates - moveto -0 1 359 {% - /Angle exch def - /Zpoint Rpoint Angle cos mul ZCpoint add def - /Xpoint Rpoint Angle sin mul XCpoint add def -CalculsPointsAfterTransformations -CalcCoordinates - lineto - } for -closepath -0 setgray -fill - } for - } for - } if -PS5 0 Condition{ % -reduction reduction scale -newpath - /Ypoint B neg def - /XCpoint A 2 div neg def - /ZCpoint C 2 div def - /Xpoint Rpoint XCpoint add def - /Zpoint ZCpoint def -CalculsPointsAfterTransformations -CalcCoordinates - moveto -0 1 359 {% - /Angle exch def - /Xpoint Rpoint Angle cos mul XCpoint add def - /Zpoint Rpoint Angle sin mul ZCpoint add def -CalculsPointsAfterTransformations -CalcCoordinates - lineto - } for -closepath -0 setgray -fill -% -newpath - /XCpoint A 2 div def - /ZCpoint C 2 div neg def - /Xpoint Rpoint XCpoint add def - /Zpoint ZCpoint def -CalculsPointsAfterTransformations -CalcCoordinates - moveto -0 1 359 {% - /Angle exch def - /Xpoint Rpoint Angle cos mul XCpoint add def - /Zpoint Rpoint Angle sin mul ZCpoint add def -CalculsPointsAfterTransformations -CalcCoordinates - lineto - } for -closepath -0 setgray -fill -% -newpath - /XCpoint 0 def - /ZCpoint 0 def - /Xpoint Rpoint XCpoint add def - /Zpoint ZCpoint def -CalculsPointsAfterTransformations -CalcCoordinates - moveto -0 1 359 {% - /Angle exch def - /Xpoint Rpoint Angle cos mul XCpoint add def - /Zpoint Rpoint Angle sin mul ZCpoint add def -CalculsPointsAfterTransformations -CalcCoordinates - lineto - } for -closepath -0 setgray -fill -} if -PS4 0 Condition{ % -reduction reduction scale -C 2 div neg C C 2 div { - /ZCpoint exch def -B 2 div neg B B 2 div { - /YCpoint exch def -newpath - /Zpoint Rpoint ZCpoint add def - /Ypoint YCpoint def - /Xpoint A neg def -CalculsPointsAfterTransformations -CalcCoordinates - moveto -0 1 359 {% - /Angle exch def - /Zpoint Rpoint Angle cos mul ZCpoint add def - /Ypoint Rpoint Angle sin mul YCpoint add def -CalculsPointsAfterTransformations -CalcCoordinates - lineto - } for -closepath -0 setgray -fill - } for - } for -% le point du milieu -newpath - /Zpoint Rpoint def - /Ypoint 0 def -CalculsPointsAfterTransformations -CalcCoordinates - moveto -0 1 359 {% - /Angle exch def - /Zpoint Rpoint Angle cos mul def - /Ypoint Rpoint Angle sin mul def -CalculsPointsAfterTransformations -CalcCoordinates - lineto - } for -closepath -0 setgray -fill -} if -PS3 0 Condition{ % -reduction reduction scale -A 2 div neg A A 2 div { - /XCpoint exch def -B 2 div neg B 2 div B 2 div { - /YCpoint exch def -newpath - /Xpoint Rpoint XCpoint add def - /Ypoint YCpoint def - /Zpoint C neg def -CalculsPointsAfterTransformations -CalcCoordinates - moveto -0 1 359 {% - /Angle exch def - /Xpoint Rpoint Angle cos mul XCpoint add def - /Ypoint Rpoint Angle sin mul YCpoint add def -CalculsPointsAfterTransformations -CalcCoordinates - lineto - } for -closepath -0 setgray -fill - } for - } for -} if -PS2 0 Condition{ % -reduction reduction scale -newpath - /Xpoint A def - /Ypoint Rpoint B 2 div add def - /Zpoint C 2 div neg def -CalculsPointsAfterTransformations -CalcCoordinates - moveto -0 1 359 {% - /Angle exch def - /Ypoint Rpoint Angle cos mul B 2 div add def - /Zpoint Rpoint Angle sin mul C 2 div sub def -CalculsPointsAfterTransformations -CalcCoordinates - lineto - } for -closepath -0 setgray -fill -newpath - /Xpoint A def - /Ypoint Rpoint B 2 div sub def - /Zpoint C 2 div def -CalculsPointsAfterTransformations -CalcCoordinates - moveto -0 1 359 {% - /Angle exch def - /Xpoint A def - /Ypoint Rpoint Angle cos mul B 2 div sub def - /Zpoint Rpoint Angle sin mul A 2 div add def -CalculsPointsAfterTransformations -CalcCoordinates - lineto - } for -closepath -0 setgray -fill -} if -PS1 0 Condition{ % -reduction reduction scale -newpath - /Xpoint Rpoint def - /Ypoint 0 def - /Zpoint C def -CalculsPointsAfterTransformations -CalcCoordinates - moveto -0 1 359 {% - /Angle exch def - /Xpoint Rpoint Angle cos mul def - /Ypoint Rpoint Angle sin mul def -CalculsPointsAfterTransformations -CalcCoordinates - lineto - } for -closepath -0 setgray -fill -} if -} def -% -/CalcCoordinates{% - formulesTroisD -% hv 2005-04-30 --->beg -% Xi 28.45 mul Yi 28.45 mul - Xi xUnit mul Yi yUnit mul -% hv 2005-04-30 <---beg - } - def -% pour la 3D conventionnelle -/formulesTroisD{% - /xObservateur Xabscisse Sin1 mul neg Yordonnee Cos1 mul add def - /yObservateur Xabscisse Cos1Sin2 mul neg Yordonnee Sin1Sin2 mul sub Zcote Cos2 mul add def - /zObservateur Xabscisse neg Cos1Cos2 mul Yordonnee Sin1Cos2 mul sub Zcote Sin2 mul sub Dobs add def - /Xi DScreen xObservateur mul zObservateur div def - /Yi DScreen yObservateur mul zObservateur div def - } -def -% -/CalculsPointsAfterTransformations{% - /Xabscisse M11 Xpoint mul M12 Ypoint mul add M13 Zpoint mul add CX add def - /Yordonnee M21 Xpoint mul M22 Ypoint mul add M23 Zpoint mul add CY add def - /Zcote M31 Xpoint mul M32 Ypoint mul add M33 Zpoint mul add CZ add def - } -def -% -/SommetsTetraedre{% - /xA RayonBaseTetraedre neg def - /yA 0 def - /zA 0 def - /xB 0.5 RayonBaseTetraedre mul def - /yB RayonBaseTetraedre 0.866 mul neg def - /zB 0 def - /xC xB def - /yC yB neg def - /zC 0 def - /xD 0 def - /yD 0 def - /zD RayonBaseTetraedre 1.414 mul def -% coordonnées centre des faces - /xFaceA xA xB xC add add 3 div def - /yFaceA yA yB yC add add 3 div def - /zFaceA zA zB zC add add 3 div def - /xFaceB xD xA xB add add 3 div def - /yFaceB yD yA yB add add 3 div def - /zFaceB zD zA zB add add 3 div def - /xFaceC xA xD xC add add 3 div def - /yFaceC yA yD yC add add 3 div def - /zFaceC zA zD zC add add 3 div def - /xFaceD xD xB xC add add 3 div def - /yFaceD yD yB yC add add 3 div def - /zFaceD zD zB zC add add 3 div def -% sommets après rotation et translation - /XA M11 xA mul M12 yA mul add M13 zA mul add CX add def - /YA M21 xA mul M22 yA mul add M23 zA mul add CY add def - /ZA M31 xA mul M32 yA mul add M33 zA mul add CZ add def - /XB M11 xB mul M12 yB mul add M13 zB mul add CX add def - /YB M21 xB mul M22 yB mul add M23 zB mul add CY add def - /ZB M31 xB mul M32 yB mul add M33 zB mul add CZ add def - /XC M11 xC mul M12 yC mul add M13 zC mul add CX add def - /YC M21 xC mul M22 yC mul add M23 zC mul add CY add def - /ZC M31 xC mul M32 yC mul add M33 zC mul add CZ add def - /XD M11 xD mul M12 yD mul add M13 zD mul add CX add def - /YD M21 xD mul M22 yD mul add M23 zD mul add CY add def - /ZD M31 xD mul M32 yD mul add M33 zD mul add CZ add def -% centres de faces après transformations - /XFaceA M11 xFaceA mul M12 yFaceA mul add M13 zFaceA mul add CX add def - /YFaceA M21 xFaceA mul M22 yFaceA mul add M23 zFaceA mul add CY add def - /ZFaceA M31 xFaceA mul M32 yFaceA mul add M33 zFaceA mul add CZ add def - /XFaceB M11 xFaceB mul M12 yFaceB mul add M13 zFaceB mul add CX add def - /YFaceB M21 xFaceB mul M22 yFaceB mul add M23 zFaceB mul add CY add def - /ZFaceB M31 xFaceB mul M32 yFaceB mul add M33 zFaceB mul add CZ add def - /XFaceC M11 xFaceC mul M12 yFaceC mul add M13 zFaceC mul add CX add def - /YFaceC M21 xFaceC mul M22 yFaceC mul add M23 zFaceC mul add CY add def - /ZFaceC M31 xFaceC mul M32 yFaceC mul add M33 zFaceC mul add CZ add def - /XFaceD M11 xFaceD mul M12 yFaceD mul add M13 zFaceD mul add CX add def - /YFaceD M21 xFaceD mul M22 yFaceD mul add M23 zFaceD mul add CY add def - /ZFaceD M31 xFaceD mul M32 yFaceD mul add M33 zFaceD mul add CZ add def -% Normales aux faces - /NxA XFaceA XD sub def - /NyA YFaceA YD sub def - /NzA ZFaceA ZD sub def - /NxB XFaceB XC sub def - /NyB YFaceB YC sub def - /NzB ZFaceB ZC sub def - /NxC XFaceC XB sub def - /NyC YFaceC YB sub def - /NzC ZFaceC ZB sub def - /NxD XFaceD XA sub def - /NyD YFaceD YA sub def - /NzD ZFaceD ZA sub def -% Conditions de visibilité -% rayon vers point de vue - /RXvueA XFaceA XpointVue sub def - /RYvueA YFaceA YpointVue sub def - /RZvueA ZFaceA ZpointVue sub def - /RXvueB XFaceB XpointVue sub def - /RYvueB YFaceB YpointVue sub def - /RZvueB ZFaceB ZpointVue sub def - /RXvueC XFaceC XpointVue sub def - /RYvueC YFaceC YpointVue sub def - /RZvueC ZFaceC ZpointVue sub def - /RXvueD XFaceD XpointVue sub def - /RYvueD YFaceD YpointVue sub def - /RZvueD ZFaceD ZpointVue sub def -% produit scalaire - /PSA RXvueA NxA mul RYvueA NyA mul add RZvueA NzA mul add def - /PSB RXvueB NxB mul RYvueB NyB mul add RZvueB NzB mul add def - /PSC RXvueC NxC mul RYvueC NyC mul add RZvueC NzC mul add def - /PSD RXvueD NxD mul RYvueD NyD mul add RZvueD NzD mul add def - } - def -/Tetraedre{% -SommetsTetraedre -% face ABC - PSA 0 le { % -reduction reduction scale -1 setlinejoin - /Xabscisse XA def - /Yordonnee YA def - /Zcote ZA def - CalcCoordinates - moveto - /Xabscisse XB def - /Yordonnee YB def - /Zcote ZB def - CalcCoordinates - lineto - /Xabscisse XC def - /Yordonnee YC def - /Zcote ZC def - CalcCoordinates - lineto - /Xabscisse XA def - /Yordonnee YA def - /Zcote ZA def - CalcCoordinates - lineto -} if -% face DAB - PSB 0 le { % -reduction reduction scale -1 setlinejoin - /Xabscisse XD def - /Yordonnee YD def - /Zcote ZD def - CalcCoordinates - moveto - /Xabscisse XA def - /Yordonnee YA def - /Zcote ZA def - CalcCoordinates - lineto - /Xabscisse XB def - /Yordonnee YB def - /Zcote ZB def - CalcCoordinates - lineto - /Xabscisse XD def - /Yordonnee YD def - /Zcote ZD def - CalcCoordinates - lineto -} if -% face DAC -PSC 0 le { % -reduction reduction scale -1 setlinejoin - /Xabscisse XD def - /Yordonnee YD def - /Zcote ZD def - CalcCoordinates - moveto - /Xabscisse XA def - /Yordonnee YA def - /Zcote ZA def - CalcCoordinates - lineto - /Xabscisse XC def - /Yordonnee YC def - /Zcote ZC def - CalcCoordinates - lineto - /Xabscisse XD def - /Yordonnee YD def - /Zcote ZD def - CalcCoordinates - lineto -} if -% face DBC - PSD 0 le { % -reduction reduction scale -1 setlinejoin - /Xabscisse XD def - /Yordonnee YD def - /Zcote ZD def - CalcCoordinates - moveto - /Xabscisse XB def - /Yordonnee YB def - /Zcote ZB def - CalcCoordinates - lineto - /Xabscisse XC def - /Yordonnee YC def - /Zcote ZC def - CalcCoordinates - lineto - /Xabscisse XD def - /Yordonnee YD def - /Zcote ZD def - CalcCoordinates - lineto -} if -} -def -% -/SommetsPyramide{% - /xA A def - /yA A neg def - /zA 0 def - /xB A def - /yB A def - /zB 0 def - /xC A neg def - /yC A def - /zC 0 def - /xD A neg def - /yD A neg def - /zD 0 def - /xS 0 def - /yS 0 def - /zS Hpyramide def -% coordonnées centre des faces - /Alpha A Hpyramide atan def - /xFaceSAB Hpyramide Alpha dup sin exch cos mul mul def - /yFaceSAB 0 def - /zFaceSAB Hpyramide Alpha sin dup mul mul def - /xFaceSBC 0 def - /yFaceSBC xFaceSAB def - /zFaceSBC zFaceSAB fracHeight mul def - /xFaceSCD xFaceSAB neg def - /yFaceSCD 0 def - /zFaceSCD zFaceSAB fracHeight mul def - /xFaceSDA 0 def - /yFaceSDA xFaceSAB neg def - /zFaceSDA zFaceSAB fracHeight mul def -% sommets après rotation et translation - /XA M11 xA mul M12 yA mul add M13 zA mul add CX add def - /YA M21 xA mul M22 yA mul add M23 zA mul add CY add def - /ZA M31 xA mul M32 yA mul add M33 zA mul add CZ add def - /XB M11 xB mul M12 yB mul add M13 zB mul add CX add def - /YB M21 xB mul M22 yB mul add M23 zB mul add CY add def - /ZB M31 xB mul M32 yB mul add M33 zB mul add CZ add def - /XC M11 xC mul M12 yC mul add M13 zC mul add CX add def - /YC M21 xC mul M22 yC mul add M23 zC mul add CY add def - /ZC M31 xC mul M32 yC mul add M33 zC mul add CZ add def - /XD M11 xD mul M12 yD mul add M13 zD mul add CX add def - /YD M21 xD mul M22 yD mul add M23 zD mul add CY add def - /ZD M31 xD mul M32 yD mul add M33 zD mul add CZ add def - /XS M11 xS mul M12 yS mul add M13 zS mul add CX add def - /YS M21 xS mul M22 yS mul add M23 zS mul add CY add def - /ZS M31 xS mul M32 yS mul add M33 zS mul add CZ add def -% centres de faces après transformations - /XFaceSAB M11 xFaceSAB mul M12 yFaceSAB mul add M13 zFaceSAB mul add CX add def - /YFaceSAB M21 xFaceSAB mul M22 yFaceSAB mul add M23 zFaceSAB mul add CY add def - /ZFaceSAB M31 xFaceSAB mul M32 yFaceSAB mul add M33 zFaceSAB mul add CZ add def - /XFaceSBC M11 xFaceSBC mul M12 yFaceSBC mul add M13 zFaceSBC mul add CX add def - /YFaceSBC M21 xFaceSBC mul M22 yFaceSBC mul add M23 zFaceSBC mul add CY add def - /ZFaceSBC M31 xFaceSBC mul M32 yFaceSBC mul add M33 zFaceSBC mul add CZ add def - /XFaceSCD M11 xFaceSCD mul M12 yFaceSCD mul add M13 zFaceSCD mul add CX add def - /YFaceSCD M21 xFaceSCD mul M22 yFaceSCD mul add M23 zFaceSCD mul add CY add def - /ZFaceSCD M31 xFaceSCD mul M32 yFaceSCD mul add M33 zFaceSCD mul add CZ add def - /XFaceSDA M11 xFaceSDA mul M12 yFaceSDA mul add M13 zFaceSDA mul add CX add def - /YFaceSDA M21 xFaceSDA mul M22 yFaceSDA mul add M23 zFaceSDA mul add CY add def - /ZFaceSDA M31 xFaceSDA mul M32 yFaceSDA mul add M33 zFaceSDA mul add CZ add def -% Normales aux faces - /NxSAB XFaceSAB CX sub def - /NySAB YFaceSAB CY sub def - /NzSAB ZFaceSAB CZ sub def - /NxSBC XFaceSBC CX sub def - /NySBC YFaceSBC CY sub def - /NzSBC ZFaceSBC CZ sub def - /NxSCD XFaceSCD CX sub def - /NySCD YFaceSCD CY sub def - /NzSCD ZFaceSCD CZ sub def - /NxSDA XFaceSDA CX sub def - /NySDA YFaceSDA CY sub def - /NzSDA ZFaceSDA CZ sub def - /NxABCD CX XS sub def - /NyABCD CY YS sub def - /NzABCD CZ ZS sub def -% Conditions de visibilité -% rayon vers point de vue - /RXvueSAB XFaceSAB XpointVue sub def - /RYvueSAB YFaceSAB YpointVue sub def - /RZvueSAB ZFaceSAB ZpointVue sub def - /RXvueSBC XFaceSBC XpointVue sub def - /RYvueSBC YFaceSBC YpointVue sub def - /RZvueSBC ZFaceSBC ZpointVue sub def - /RXvueSCD XFaceSCD XpointVue sub def - /RYvueSCD YFaceSCD YpointVue sub def - /RZvueSCD ZFaceSCD ZpointVue sub def - /RXvueSDA XFaceSDA XpointVue sub def - /RYvueSDA YFaceSDA YpointVue sub def - /RZvueSDA ZFaceSDA ZpointVue sub def - /RXvueABCD CX XpointVue sub def - /RYvueABCD CY YpointVue sub def - /RZvueABCD CZ ZpointVue sub def - /PSAB RXvueSAB NxSAB mul RYvueSAB NySAB mul add RZvueSAB NzSAB mul add def - /PSBC RXvueSBC NxSBC mul RYvueSBC NySBC mul add RZvueSBC NzSBC mul add def - /PSCD RXvueSCD NxSCD mul RYvueSCD NySCD mul add RZvueSCD NzSCD mul add def - /PSDA RXvueSDA NxSDA mul RYvueSDA NySDA mul add RZvueSDA NzSDA mul add def - /PSABCD RXvueABCD NxABCD mul RYvueABCD NyABCD mul add RZvueABCD NzABCD mul add def - } - def -% -/MaillageSphere { -0 increment 360 increment sub {% - /theta exch def -departPhi increment 90 increment sub {% - /phi exch def -% newpath - /Xpoint Rsphere theta cos mul phi cos mul def - /Ypoint Rsphere theta sin mul phi cos mul def - /Zpoint Rsphere phi sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - moveto -% Centre de la facette - /Xpoint Rsphere theta increment 2 div add cos mul phi increment 2 div add cos mul def - /Ypoint Rsphere theta increment 2 div add sin mul phi increment 2 div add cos mul def - /Zpoint Rsphere phi increment 2 div add sin mul def -CalculsPointsAfterTransformations - /xCentreFacette Xabscisse def - /yCentreFacette Yordonnee def - /zCentreFacette Zcote def -% normale à la facette - /nXfacette xCentreFacette CX sub def - /nYfacette yCentreFacette CY sub def - /nZfacette zCentreFacette CZ sub def -% rayon vers point de vue - /RXvue xCentreFacette XpointVue sub def - /RYvue yCentreFacette YpointVue sub def - /RZvue zCentreFacette ZpointVue sub def -% test de visibilité - /PSfacette RXvue nXfacette mul - RYvue nYfacette mul add - RZvue nZfacette mul add - def -condition { -theta 1 theta increment add {% - /theta1 exch def - /Xpoint Rsphere theta1 cos mul phi cos mul def - /Ypoint Rsphere theta1 sin mul phi cos mul def - /Zpoint Rsphere phi sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -phi 1 phi increment add { - /phi1 exch def - /Xpoint Rsphere theta increment add cos mul phi1 cos mul def - /Ypoint Rsphere theta increment add sin mul phi1 cos mul def - /Zpoint Rsphere phi1 sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -theta increment add -1 theta {% - /theta1 exch def - /Xpoint Rsphere theta1 cos mul phi increment add cos mul def - /Ypoint Rsphere theta1 sin mul phi increment add cos mul def - /Zpoint Rsphere phi increment add sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -phi increment add -1 phi { - /phi1 exch def - /Xpoint Rsphere theta cos mul phi1 cos mul def - /Ypoint Rsphere theta sin mul phi1 cos mul def - /Zpoint Rsphere phi1 sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -} if -} for -} for -} def -% -/CylinderThreeD{ -reduction reduction scale -1 setlinejoin -0 incrementANGLE 360 {% - /theta exch def - 0 incrementHAUTEUR Hcylindre incrementHAUTEUR sub {% - /H exch def -% newpath - /X1 Rcylindre theta cos mul def - /Y1 Rcylindre theta sin mul def - /Z1 H def - /Xpoint X1 def - /Ypoint Y1 def - /Zpoint Z1 def -CalculsPointsAfterTransformations - /Xfacette Xabscisse def - /Yfacette Yordonnee def - /Zfacette Zcote def - CalcCoordinates - moveto -% coordonnées du centre de la facette - /Xpoint Rcylindre theta incrementANGLE 2 div add cos mul def - /Ypoint Rcylindre theta incrementANGLE 2 div add sin mul def - /Zpoint H incrementHAUTEUR 2 div add def -CalculsPointsAfterTransformations -% Point sur l'axe du cylindre -% à la même hauteur que M1 - /Zpoint Z1 def - /Xpoint 0 def - /Ypoint 0 def -CalculsPointsAfterTransformations -% normale à la facette - /nXfacette Xfacette Xabscisse sub def - /nYfacette Yfacette Yordonnee sub def - /nZfacette Zfacette Zcote sub def -% rayon vers point de vue - /RXvue Xfacette XpointVue sub def - /RYvue Yfacette YpointVue sub def - /RZvue Zfacette ZpointVue sub def -% test de visibilité - /PSfacette nXfacette RXvue mul - nYfacette RYvue mul add - nZfacette RZvue mul add - def -PSfacette 0 le { -theta 1 theta incrementANGLE add {% - /theta1 exch def - /Xpoint Rcylindre theta1 cos mul def - /Ypoint Rcylindre theta1 sin mul def - /Zpoint H def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -H 1 H incrementHAUTEUR add { - /H1 exch def - /Xpoint Rcylindre theta incrementANGLE add cos mul def - /Ypoint Rcylindre theta incrementANGLE add sin mul def - /Zpoint H1 def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -theta incrementANGLE add -1 theta {% - /theta1 exch def - /Xpoint Rcylindre theta1 cos mul def - /Ypoint Rcylindre theta1 sin mul def - /Zpoint H incrementHAUTEUR add def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -H incrementHAUTEUR add -1 H { - /H1 exch def - /Xpoint Rcylindre theta cos mul def - /Ypoint Rcylindre theta sin mul def - /Zpoint H1 def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -} if -} for -} for -% Face supérieure -% centre de la face supérieure - /Xpoint 0 def - /Zpoint Hcylindre def - /Ypoint 0 def -CalculsPointsAfterTransformations - /CxFaceSup Xabscisse def - /CyFaceSup Yordonnee def - /CzFaceSup Zcote def -% centre de la face inférieure - /CxFaceInf CX def - /CyFaceInf CY def - /CzFaceInf CZ def -% Normale à la face supérieure - /nXFaceSup CxFaceSup CxFaceInf sub def - /nYFaceSup CyFaceSup CyFaceInf sub def - /nZFaceSup CzFaceSup CzFaceInf sub def -% rayon vers point de vue verd la face inférieure - /RXvueInf CxFaceInf XpointVue sub def - /RYvueInf CyFaceInf YpointVue sub def - /RZvueInf CzFaceInf ZpointVue sub def -% rayon vers point de vue verd la face supérieure - /RXvueSup CxFaceSup XpointVue sub def - /RYvueSup CyFaceSup YpointVue sub def - /RZvueSup CzFaceSup ZpointVue sub def -% Visibilité face supérieure - /PSfaceSup RXvueSup nXFaceSup mul - RYvueSup nYFaceSup mul add - RZvueSup nZFaceSup mul add def -% Visibilité face inférieure - /PSfaceInf RXvueInf nXFaceSup neg mul - RYvueInf nYFaceSup mul sub - RZvueInf nZFaceSup mul sub def -PSfaceSup 0 le { -/TableauxPoints [ -0 1 359 {% on décrit le cercle - /theta exch def [ - /Xpoint Rcylindre theta cos mul def - /Ypoint Rcylindre theta sin mul def - /Zpoint Hcylindre def -CalculsPointsAfterTransformations - CalcCoordinates ] - } for - ] def -gsave -newpath - TableauxPoints 0 get aload pop moveto -0 1 359 { - /compteur exch def - TableauxPoints compteur get aload pop - lineto } for -0.7 setgray -closepath -fill -grestore - } if -% face inférieure -PSfaceInf 0 le { -/TableauxPoints [ -0 1 359 {% on décrit le cercle - /theta exch def [ - /Xpoint Rcylindre theta cos mul def - /Ypoint Rcylindre theta sin mul def - /Zpoint 0 def -CalculsPointsAfterTransformations - CalcCoordinates ] - } for - ] def -gsave -newpath - TableauxPoints 0 get aload pop moveto - 0 1 359 { - /compteur exch def - TableauxPoints compteur get aload pop - lineto } for -0.7 setgray -closepath -fill -grestore - } if - } def -% - % -/ConeThreeD{ - /AngleCone Rcone Hcone atan def - /TanAngleCone AngleCone dup sin exch cos div def - /incrementANGLE 10 def - /incrementHAUTEUR Hcone fracHeight mul 5 div def -1 setlinejoin -newpath -0 incrementANGLE 360 {% - /theta exch def - 0 incrementHAUTEUR Hcone fracHeight mul incrementHAUTEUR sub {% - /H exch def - % normale à la facette - /nXfacette Hcone AngleCone dup sin exch cos mul theta incrementANGLE 2 div add cos mul - mul def - /nYfacette Hcone AngleCone dup sin exch cos mul theta incrementANGLE 2 div add sin mul - mul def - /nZfacette Hcone AngleCone sin dup mul mul def - /Xpoint nXfacette def - /Ypoint nYfacette def - /Zpoint nZfacette def -CalculsPointsAfterTransformations - /nXfacette Xabscisse CX sub def - /nYfacette Yordonnee CY sub def - /nZfacette Zcote CZ sub def -% - /OK Hcone H sub TanAngleCone mul def - /Xpoint OK theta cos mul def - /Ypoint OK theta sin mul def - /Zpoint H def -CalculsPointsAfterTransformations - /Xfacette Xabscisse def - /Yfacette Yordonnee def - /Zfacette Zcote def - CalcCoordinates - moveto -% coordonnées du centre de la facette - /OK Hcone H incrementHAUTEUR 2 div add sub TanAngleCone mul def - /Xpoint OK theta incrementANGLE 2 div add cos mul def - /Ypoint OK theta incrementANGLE 2 div add sin mul def - /Zpoint H incrementHAUTEUR 2 div add def -CalculsPointsAfterTransformations - /XcentreFacette Xabscisse def - /YcentreFacette Yordonnee def - /ZcentreFacette Zcote def -% rayon vers point de vue - /RXvue XcentreFacette XpointVue sub def - /RYvue YcentreFacette YpointVue sub def - /RZvue ZcentreFacette ZpointVue sub def -% test de visibilité - /PSfacette nXfacette RXvue mul - nYfacette RYvue mul add - nZfacette RZvue mul add - def -PSfacette 0 le { -theta 1 theta incrementANGLE add {% - /theta1 exch def - /OK Hcone H sub TanAngleCone mul def - /Xpoint OK theta1 cos mul def - /Ypoint OK theta1 sin mul def - /Zpoint H def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -H 1 H incrementHAUTEUR add { - /H1 exch def - /OK Hcone H1 sub TanAngleCone mul def - /Xpoint OK theta incrementANGLE add cos mul def - /Ypoint OK theta incrementANGLE add sin mul def - /Zpoint H1 def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -theta incrementANGLE add -1 theta {% - /theta1 exch def - /OK Hcone H incrementHAUTEUR add sub TanAngleCone mul def - /Xpoint OK theta1 cos mul def - /Ypoint OK theta1 sin mul def - /Zpoint H incrementHAUTEUR add def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -H incrementHAUTEUR add -1 H { - /H1 exch def - /OK Hcone H1 sub TanAngleCone mul def - /Xpoint OK theta cos mul def - /Ypoint OK theta sin mul def - /Zpoint H1 def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -} if -} for -} for -% centre de la base inférieure après transformations - /CxFaceInf CX def - /CyFaceInf CY def - /CzFaceInf CZ def -% modification du 16/11/2002 -% /Xpoint CxFaceInf def -% /Ypoint CyFaceInf def -% /Zpoint CzFaceInf def - /Xpoint 0 def - /Ypoint 0 def - /Zpoint 0 def -% fin modification du 16/11/2002 -CalculsPointsAfterTransformations - /CxBaseInf Xabscisse def - /CyBaseInf Yordonnee def - /CzBaseInf Zcote def -% centre de la base supérieure avant transformations - /CxFaceSup 0 def - /CyFaceSup 0 def - /CzFaceSup Hcone fracHeight mul def -% Sommet du cone - /Xpoint 0 def - /Ypoint 0 def - /Zpoint Hcone def -CalculsPointsAfterTransformations - /XsommetCone Xabscisse def - /YsommetCone Yordonnee def - /ZsommetCone Zcote def -% Normale extérieure à la base inférieure - /nXBaseInf CxFaceInf XsommetCone sub def - /nYBaseInf CyFaceInf YsommetCone sub def - /nZBaseInf CzFaceInf ZsommetCone sub def -% centre de la base supérieure - /Xpoint CxFaceSup def - /Ypoint CyFaceSup def - /Zpoint CzFaceSup def -CalculsPointsAfterTransformations - /CxBaseSup Xabscisse def - /CyBaseSup Yordonnee def - /CzBaseSup Zcote def -% Normale extérieure à la base supérieure - /nXBaseSup XsommetCone CxFaceSup sub def - /nYBaseSup YsommetCone CyFaceSup sub def - /nZBaseSup ZsommetCone CzFaceSup sub def -% rayon vers point de vue - /RXvueSup CxBaseSup XpointVue sub def - /RYvueSup CyBaseSup YpointVue sub def - /RZvueSup CzBaseSup ZpointVue sub def - /RXvueInf CxBaseInf XpointVue sub def - /RYvueInf CyBaseInf YpointVue sub def - /RZvueInf CzBaseInf ZpointVue sub def -% Visibilité de la base inférieure - /PSbaseInfCone nXBaseInf RXvueInf mul - nYBaseInf RYvueInf mul add - nZBaseInf RZvueInf mul add def -% Visibilité de la base supérieure - /PSbaseSupCone nXBaseSup RXvueSup mul - nYBaseSup RYvueSup mul add - nZBaseSup RZvueSup mul add def -PSbaseInfCone 0 le { -/TableauxPoints [ -0 1 359 {% on décrit le cercle - /theta exch def [ - /Xpoint Rcone theta cos mul def - /Ypoint Rcone theta sin mul def - /Zpoint 0 def -CalculsPointsAfterTransformations - CalcCoordinates ] - } for - ] def -gsave -newpath - TableauxPoints 0 get aload pop moveto -0 1 359 { - /compteur exch def - TableauxPoints compteur get aload pop - lineto } for -0.7 setgray -closepath -fill -grestore - } if -%% PSbaseSupCone 0 le { -%% modifié le 31/10/2003 -%PSbaseSupCone 0 ge { -PSbaseSupCone 0 le { -/TableauxPoints [ -0 1 359 {% on décrit le cercle - /theta exch def [ - /OK Hcone 1 fracHeight sub mul TanAngleCone mul def - /Xpoint OK theta cos mul def - /Ypoint OK theta sin mul def - /Zpoint Hcone fracHeight mul def -CalculsPointsAfterTransformations - CalcCoordinates ] - } for - ] def -gsave -newpath - TableauxPoints 0 get aload pop moveto -0 1 359 { - /compteur exch def - TableauxPoints compteur get aload pop - lineto } for -0.7 setgray -closepath -fill -grestore - } if - } def -/PortionSphere{% - /Xpoint Rsphere psTHETA dTHETA neg add cos mul psPHI dPHI sub cos mul def - /Ypoint Rsphere psTHETA dTHETA neg add sin mul psPHI dPHI sub cos mul def - /Zpoint Rsphere psPHI dPHI sub sin mul def -CalculsPointsAfterTransformations - /xCentreFacette Xabscisse def - /yCentreFacette Yordonnee def - /zCentreFacette Zcote def -% normale à la facette - /nXfacette xCentreFacette CX sub def - /nYfacette yCentreFacette CY sub def - /nZfacette zCentreFacette CZ sub def -% rayon vers point de vue - /RXvue xCentreFacette XpointVue sub def - /RYvue yCentreFacette YpointVue sub def - /RZvue zCentreFacette ZpointVue sub def -% test de visibilité - /PSfacette RXvue nXfacette mul - RYvue nYfacette mul add - RZvue nZfacette mul add - def -PSfacette 0 le { -CalcCoordinates -newpath - moveto -psTHETA dTHETA sub 1 psTHETA dTHETA add { - /Theta exch def - /Xpoint Rsphere Theta cos psPHI dPHI sub cos mul mul def - /Ypoint Rsphere Theta sin psPHI dPHI sub cos mul mul def - /Zpoint Rsphere psPHI dPHI sub sin mul def - CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -psPHI dPHI sub 1 psPHI dPHI add { - /Phi exch def - /Xpoint Rsphere psTHETA dTHETA add cos Phi cos mul mul def - /Ypoint Rsphere psTHETA dTHETA add sin Phi cos mul mul def - /Zpoint Rsphere Phi sin mul def - CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -psTHETA dTHETA add -1 psTHETA dTHETA sub { - /Theta exch def - /Xpoint Rsphere Theta cos psPHI dPHI add cos mul mul def - /Ypoint Rsphere Theta sin psPHI dPHI add cos mul mul def - /Zpoint Rsphere psPHI dPHI add sin mul def - CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -psPHI dPHI add -1 psPHI dPHI sub { - /Phi exch def - /Xpoint Rsphere psTHETA dTHETA sub cos Phi cos mul mul def - /Ypoint Rsphere psTHETA dTHETA sub sin Phi cos mul mul def - /Zpoint Rsphere Phi sin mul def - CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -closepath -} if -} def -% Dodecahedron : 31 décembre 2003 -% datas : Graphisme scientifique R.Dony -% Masson ed. page 240 -/Dodecahedron{% - /XA M11 0 mul M12 A 0.607062 mul mul add M13 A mul 0.794655 mul add CX add def - /YA M21 0 mul M22 A 0.607062 mul mul add M23 A mul 0.794655 mul add CY add def - /ZA M31 0 mul M32 A 0.607062 mul mul add M33 A mul 0.794655 mul add CZ add def - /XB M11 A mul -0.5773503 mul M12 A mul 0.1875925 mul add M13 A mul 0.7946545 mul add CX add def - /YB M21 A mul -0.5773503 mul M22 A mul 0.1875925 mul add M23 A mul 0.7946545 mul add CY add def - /ZB M31 A mul -0.5773503 mul M32 A mul 0.1875925 mul add M33 A mul 0.7946545 mul add CZ add def - /XC M11 A mul -0.3568221 mul M12 A mul -0.4911235 mul add M13 A mul 0.7946545 mul add CX add def - /YC M21 A mul -0.3568221 mul M22 A mul -0.4911235 mul add M23 A mul 0.7946545 mul add CY add def - /ZC M31 A mul -0.3568221 mul M32 A mul -0.4911235 mul add M33 A mul 0.7946545 mul add CZ add def - /XD M11 A mul 0.3568221 mul M12 A mul -0.4911235 mul add M13 A mul 0.7946545 mul add CX add def - /YD M21 A mul 0.3568221 mul M22 A mul -0.4911235 mul add M23 A mul 0.7946545 mul add CY add def - /ZD M31 A mul 0.3568221 mul M32 A mul -0.4911235 mul add M33 A mul 0.7946545 mul add CZ add def - /XE M11 A mul 0.5773503 mul M12 A mul 0.1875925 mul add M13 A mul 0.7946545 mul add CX add def - /YE M21 A mul 0.5773503 mul M22 A mul 0.1875925 mul add M23 A mul 0.7946545 mul add CY add def - /ZE M31 A mul 0.5773503 mul M32 A mul 0.1875925 mul add M33 A mul 0.7946545 mul add CZ add def - /XF M11 A mul 0 mul M12 A mul 0.982247 mul add M13 A mul 0.175925 mul add CX add def - /YF M21 A mul 0 mul M22 A mul 0.982247 mul add M23 A mul 0.175925 mul add CY add def - /ZF M31 A mul 0 mul M32 A mul 0.982247 mul add M33 A mul 0.175925 mul add CZ add def - /XG M11 A mul -0.9341724 mul M12 A mul 0.303531 mul add M13 A mul 0.1875925 mul add CX add def - /YG M21 A mul -0.9341724 mul M22 A mul 0.303531 mul add M23 A mul 0.1875925 mul add CY add def - /ZG M31 A mul -0.9341724 mul M32 A mul 0.303531 mul add M33 A mul 0.1875925 mul add CZ add def - /XH M11 A mul -0.5773503 mul M12 A mul -0.7946545 mul add M13 A mul 0.1875925 mul add CX add def - /YH M21 A mul -0.5773503 mul M22 A mul -0.7946545 mul add M23 A mul 0.1875925 mul add CY add def - /ZH M31 A mul -0.5773503 mul M32 A mul -0.7946545 mul add M33 A mul 0.1875925 mul add CZ add def - /XI M11 A mul 0.5773503 mul M12 A mul -0.7946545 mul add M13 A mul 0.1875925 mul add CX add def - /YI M21 A mul 0.5773503 mul M22 A mul -0.7946545 mul add M23 A mul 0.1875925 mul add CY add def - /ZI M31 A mul 0.5773503 mul M32 A mul -0.7946545 mul add M33 A mul 0.1875925 mul add CZ add def - /XJ M11 A mul 0.9341724 mul M12 A mul 0.303531 mul add M13 A mul 0.1875925 mul add CX add def - /YJ M21 A mul 0.9341724 mul M22 A mul 0.303531 mul add M23 A mul 0.1875925 mul add CY add def - /ZJ M31 A mul 0.9341724 mul M32 A mul 0.303531 mul add M33 A mul 0.1875925 mul add CZ add def - /XK M11 A mul 0 mul M12 A mul -0.982247 mul add M13 A mul -0.1875925 mul add CX add def - /YK M21 A mul 0 mul M22 A mul -0.982247 mul add M23 A mul -0.1875925 mul add CY add def - /ZK M31 A mul 0 mul M32 A mul -0.982247 mul add M33 A mul -0.1875925 mul add CZ add def - /XL M11 A mul 0.9341724 mul M12 A mul -0.303531 mul add M13 A mul -0.1875925 mul add CX add def - /YL M21 A mul 0.9341724 mul M22 A mul -0.303531 mul add M23 A mul -0.1875925 mul add CY add def - /ZL M31 A mul 0.9341724 mul M32 A mul -0.303531 mul add M33 A mul -0.1875925 mul add CZ add def - /XM M11 A mul 0.5773503 mul M12 A mul 0.7946545 mul add M13 A mul -0.1875925 mul add CX add def - /YM M21 A mul 0.5773503 mul M22 A mul 0.7946545 mul add M23 A mul -0.1875925 mul add CY add def - /ZM M31 A mul 0.5773503 mul M32 A mul 0.7946545 mul add M33 A mul -0.1875925 mul add CZ add def - /XN M11 A mul -0.5773503 mul M12 A mul 0.7946545 mul add M13 A mul -0.1875925 mul add CX add def - /YN M21 A mul -0.5773503 mul M22 A mul 0.7946545 mul add M23 A mul -0.1875925 mul add CY add def - /ZN M31 A mul -0.5773503 mul M32 A mul 0.7946545 mul add M33 A mul -0.1875925 mul add CZ add def - /XO M11 A mul -0.9341724 mul M12 A mul -0.303531 mul add M13 A mul -0.1875925 mul add CX add def - /YO M21 A mul -0.9341724 mul M22 A mul -0.303531 mul add M23 A mul -0.1875925 mul add CY add def - /ZO M31 A mul -0.9341724 mul M32 A mul -0.303531 mul add M33 A mul -0.1875925 mul add CZ add def - /XP M11 A mul -0.5773503 mul M12 A mul -0.1875925 mul add M13 A mul -0.7946545 mul add CX add def - /YP M21 A mul -0.5773503 mul M22 A mul -0.1875925 mul add M23 A mul -0.7946545 mul add CY add def - /ZP M31 A mul -0.5773503 mul M32 A mul -0.1875925 mul add M33 A mul -0.7946545 mul add CZ add def - /XQ M11 A mul -0.3568221 mul M12 A mul 0.4911235 mul add M13 A mul -0.7946545 mul add CX add def - /YQ M21 A mul -0.3568221 mul M22 A mul 0.4911235 mul add M23 A mul -0.7946545 mul add CY add def - /ZQ M31 A mul -0.3568221 mul M32 A mul 0.4911235 mul add M33 A mul -0.7946545 mul add CZ add def - /XR M11 A mul 0.3568221 mul M12 A mul 0.4911235 mul add M13 A mul -0.7946545 mul add CX add def - /YR M21 A mul 0.3568221 mul M22 A mul 0.4911235 mul add M23 A mul -0.7946545 mul add CY add def - /ZR M31 A mul 0.3568221 mul M32 A mul 0.4911235 mul add M33 A mul -0.7946545 mul add CZ add def - /XS M11 A mul 0.5773503 mul M12 A mul -0.1875925 mul add M13 A mul -0.7946545 mul add CX add def - /YS M21 A mul 0.5773503 mul M22 A mul -0.1875925 mul add M23 A mul -0.7946545 mul add CY add def - /ZS M31 A mul 0.5773503 mul M32 A mul -0.1875925 mul add M33 A mul -0.7946545 mul add CZ add def - /XT M11 0 mul M12 A -0.607062 mul mul add M13 A mul -0.794655 mul add CX add def - /YT M21 0 mul M22 A -0.607062 mul mul add M23 A mul -0.794655 mul add CY add def - /ZT M31 0 mul M32 A -0.607062 mul mul add M33 A mul -0.794655 mul add CZ add def -% Centres des faces : condition de visibilité -% FACE 1 pentagone régulier ABCDE -% OC1 - /XC1 XA XB add XC add XD add XE add 5 div def - /YC1 YA YB add YC add YD add YE add 5 div def - /ZC1 ZA ZB add ZC add ZD add ZE add 5 div def -% Normale à la face 1 - /NX1 XC1 CX sub def - /NY1 YC1 CY sub def - /NZ1 ZC1 CZ sub def -% rayon vers point de vue - /RXvue1 XC1 XpointVue sub def - /RYvue1 YC1 YpointVue sub def - /RZvue1 ZC1 ZpointVue sub def -% produit scalaire - /PS1 RXvue1 NX1 mul RYvue1 NY1 mul add RZvue1 NZ1 mul add def -% FACE 2 pentagone régulier EDILJ -% OC2 - /XC2 XE XD add XI add XL add XJ add 5 div def - /YC2 YE YD add YI add YL add YJ add 5 div def - /ZC2 ZE ZD add ZI add ZL add ZJ add 5 div def -% Normale à la face 2 - /NX2 XC2 CX sub def - /NY2 YC2 CY sub def - /NZ2 ZC2 CZ sub def -% rayon vers point de vue - /RXvue2 XC2 XpointVue sub def - /RYvue2 YC2 YpointVue sub def - /RZvue2 ZC2 ZpointVue sub def -% produit scalaire - /PS2 RXvue2 NX2 mul RYvue2 NY2 mul add RZvue2 NZ2 mul add def -% FACE 3 pentagone régulier EJMFA -% OC3 - /XC3 XE XJ add XM add XF add XA add 5 div def - /YC3 YE YJ add YM add YF add YA add 5 div def - /ZC3 ZE ZJ add ZM add ZF add ZA add 5 div def -% Normale à la face 2 - /NX3 XC3 CX sub def - /NY3 YC3 CY sub def - /NZ3 ZC3 CZ sub def -% rayon vers point de vue - /RXvue3 XC3 XpointVue sub def - /RYvue3 YC3 YpointVue sub def - /RZvue3 ZC3 ZpointVue sub def -% produit scalaire - /PS3 RXvue3 NX3 mul RYvue3 NY3 mul add RZvue3 NZ3 mul add def -% FACE 4 pentagone régulier AFNGB -% OC4 - /XC4 XA XF add XN add XG add XB add 5 div def - /YC4 YA YF add YN add YG add YB add 5 div def - /ZC4 ZA ZF add ZN add ZG add ZB add 5 div def -% Normale à la face 4 - /NX4 XC4 CX sub def - /NY4 YC4 CY sub def - /NZ4 ZC4 CZ sub def -% rayon vers point de vue - /RXvue4 XC4 XpointVue sub def - /RYvue4 YC4 YpointVue sub def - /RZvue4 ZC4 ZpointVue sub def -% produit scalaire - /PS4 RXvue4 NX4 mul RYvue4 NY4 mul add RZvue4 NZ4 mul add def -% FACE 5 pentagone régulier BGOHC -% OC5 - /XC5 XB XG add XO add XH add XC add 5 div def - /YC5 YB YG add YO add YH add YC add 5 div def - /ZC5 ZB ZG add ZO add ZH add ZC add 5 div def -% Normale à la face 5 - /NX5 XC5 CX sub def - /NY5 YC5 CY sub def - /NZ5 ZC5 CZ sub def -% rayon vers point de vue - /RXvue5 XC5 XpointVue sub def - /RYvue5 YC5 YpointVue sub def - /RZvue5 ZC5 ZpointVue sub def -% produit scalaire - /PS5 RXvue5 NX5 mul RYvue5 NY5 mul add RZvue5 NZ5 mul add def -% FACE 6 pentagone régulier CHKID -% OC6 - /XC6 XC XH add XK add XI add XD add 5 div def - /YC6 YC YH add YK add YI add YD add 5 div def - /ZC6 ZC ZH add ZK add ZI add ZD add 5 div def -% Normale à la face 6 - /NX6 XC6 CX sub def - /NY6 YC6 CY sub def - /NZ6 ZC6 CZ sub def -% rayon vers point de vue - /RXvue6 XC6 XpointVue sub def - /RYvue6 YC6 YpointVue sub def - /RZvue6 ZC6 ZpointVue sub def -% produit scalaire - /PS6 RXvue6 NX6 mul RYvue6 NY6 mul add RZvue6 NZ6 mul add def -% FACE 7 pentagone régulier KTSLI -% OC7 - /XC7 XK XT add XS add XL add XI add 5 div def - /YC7 YK YT add YS add YL add YI add 5 div def - /ZC7 ZK ZT add ZS add ZL add ZI add 5 div def -% Normale à la face 7 - /NX7 XC7 CX sub def - /NY7 YC7 CY sub def - /NZ7 ZC7 CZ sub def -% rayon vers point de vue - /RXvue7 XC7 XpointVue sub def - /RYvue7 YC7 YpointVue sub def - /RZvue7 ZC7 ZpointVue sub def -% produit scalaire - /PS7 RXvue7 NX7 mul RYvue7 NY7 mul add RZvue7 NZ7 mul add def -% FACE 8 pentagone régulier LSRMJ -% OC8 - /XC8 XL XS add XR add XM add XJ add 5 div def - /YC8 YL YS add YR add YM add YJ add 5 div def - /ZC8 ZL ZS add ZR add ZM add ZJ add 5 div def -% Normale à la face 8 - /NX8 XC8 CX sub def - /NY8 YC8 CY sub def - /NZ8 ZC8 CZ sub def -% rayon vers point de vue - /RXvue8 XC8 XpointVue sub def - /RYvue8 YC8 YpointVue sub def - /RZvue8 ZC8 ZpointVue sub def -% produit scalaire - /PS8 RXvue8 NX8 mul RYvue8 NY8 mul add RZvue8 NZ8 mul add def -% FACE 9 pentagone régulier MRQNF -% OC9 - /XC9 XM XR add XQ add XN add XF add 5 div def - /YC9 YM YR add YQ add YN add YF add 5 div def - /ZC9 ZM ZR add ZQ add ZN add ZF add 5 div def -% Normale à la face 6 - /NX9 XC9 CX sub def - /NY9 YC9 CY sub def - /NZ9 ZC9 CZ sub def -% rayon vers point de vue - /RXvue9 XC9 XpointVue sub def - /RYvue9 YC9 YpointVue sub def - /RZvue9 ZC9 ZpointVue sub def -% produit scalaire - /PS9 RXvue9 NX9 mul RYvue9 NY9 mul add RZvue9 NZ9 mul add def -% FACE 10 pentagone régulier NQPOG -% OC10 - /XC10 XN XQ add XP add XO add XG add 5 div def - /YC10 YN YQ add YP add YO add YG add 5 div def - /ZC10 ZN ZQ add ZP add ZO add ZG add 5 div def -% Normale à la face 6 - /NX10 XC10 CX sub def - /NY10 YC10 CY sub def - /NZ10 ZC10 CZ sub def -% rayon vers point de vue - /RXvue10 XC10 XpointVue sub def - /RYvue10 YC10 YpointVue sub def - /RZvue10 ZC10 ZpointVue sub def -% produit scalaire - /PS10 RXvue10 NX10 mul RYvue10 NY10 mul add RZvue10 NZ10 mul add def -% FACE 11 pentagone régulier OPTKH -% OC11 - /XC11 XO XP add XT add XK add XH add 5 div def - /YC11 YO YP add YT add YK add YH add 5 div def - /ZC11 ZO ZP add ZT add ZK add ZH add 5 div def -% Normale à la face 11 - /NX11 XC11 CX sub def - /NY11 YC11 CY sub def - /NZ11 ZC11 CZ sub def -% rayon vers point de vue - /RXvue11 XC11 XpointVue sub def - /RYvue11 YC11 YpointVue sub def - /RZvue11 ZC11 ZpointVue sub def -% produit scalaire - /PS11 RXvue11 NX11 mul RYvue11 NY11 mul add RZvue11 NZ11 mul add def -% FACE 12 pentagone régulier PQRST -% OC12 - /XC12 XP XQ add XR add XS add XT add 5 div def - /YC12 YP YQ add YR add YS add YT add 5 div def - /ZC12 ZP ZQ add ZR add ZS add ZT add 5 div def -% Normale à la face 12 - /NX12 XC12 CX sub def - /NY12 YC12 CY sub def - /NZ12 ZC12 CZ sub def -% rayon vers point de vue - /RXvue12 XC12 XpointVue sub def - /RYvue12 YC12 YpointVue sub def - /RZvue12 ZC12 ZpointVue sub def -% produit scalaire - /PS12 RXvue12 NX12 mul RYvue12 NY12 mul add RZvue12 NZ12 mul add def -% faceOne ABDCE -PS1 0 Condition { % -reduction reduction scale -1 setlinejoin -newpath - /Yordonnee YA def - /Zcote ZA def - /Xabscisse XA def - CalcCoordinates - moveto - /Zcote ZB def - /Xabscisse XB def - /Yordonnee YB def - CalcCoordinates - lineto - /Zcote ZC def - /Xabscisse XC def - /Yordonnee YC def - CalcCoordinates - lineto - /Zcote ZD def - /Xabscisse XD def - /Yordonnee YD def - CalcCoordinates - lineto - /Zcote ZE def - /Xabscisse XE def - /Yordonnee YE def - CalcCoordinates - lineto -closepath -gsave -0.05 0.1 0.1 0 setcmykcolor -fill -grestore -stroke -} if -% face2 EDILJ -PS2 0 Condition { % -reduction reduction scale -1 setlinejoin -newpath - /Yordonnee YE def - /Zcote ZE def - /Xabscisse XE def - CalcCoordinates - moveto - /Zcote ZD def - /Xabscisse XD def - /Yordonnee YD def - CalcCoordinates - lineto - /Zcote ZI def - /Xabscisse XI def - /Yordonnee YI def - CalcCoordinates - lineto - /Zcote ZL def - /Xabscisse XL def - /Yordonnee YL def - CalcCoordinates - lineto - /Zcote ZJ def - /Xabscisse XJ def - /Yordonnee YJ def - CalcCoordinates - lineto -closepath -gsave -0.05 0.15 0.15 0 setcmykcolor -fill -grestore -stroke -} if -% face3 EJMFA -PS3 0 Condition { % -reduction reduction scale -1 setlinejoin -newpath - /Yordonnee YE def - /Zcote ZE def - /Xabscisse XE def - CalcCoordinates - moveto - /Zcote ZJ def - /Xabscisse XJ def - /Yordonnee YJ def - CalcCoordinates - lineto - /Zcote ZM def - /Xabscisse XM def - /Yordonnee YM def - CalcCoordinates - lineto - /Zcote ZF def - /Xabscisse XF def - /Yordonnee YF def - CalcCoordinates - lineto - /Zcote ZA def - /Xabscisse XA def - /Yordonnee YA def - CalcCoordinates - lineto -closepath -gsave -0.05 0.2 0.2 0 setcmykcolor -fill -grestore -stroke -} if -% face4 AFNGB -PS4 0 Condition { % -reduction reduction scale -1 setlinejoin -newpath - /Yordonnee YA def - /Zcote ZA def - /Xabscisse XA def - CalcCoordinates - moveto - /Zcote ZF def - /Xabscisse XF def - /Yordonnee YF def - CalcCoordinates - lineto - /Zcote ZN def - /Xabscisse XN def - /Yordonnee YN def - CalcCoordinates - lineto - /Zcote ZG def - /Xabscisse XG def - /Yordonnee YG def - CalcCoordinates - lineto - /Zcote ZB def - /Xabscisse XB def - /Yordonnee YB def - CalcCoordinates - lineto -closepath -gsave -0.05 0.25 0.25 0 setcmykcolor -fill -grestore -stroke -} if -% face5 BGOHC -PS5 0 Condition { % -reduction reduction scale -1 setlinejoin -newpath - /Yordonnee YB def - /Zcote ZB def - /Xabscisse XB def - CalcCoordinates - moveto - /Zcote ZG def - /Xabscisse XG def - /Yordonnee YG def - CalcCoordinates - lineto - /Zcote ZO def - /Xabscisse XO def - /Yordonnee YO def - CalcCoordinates - lineto - /Zcote ZH def - /Xabscisse XH def - /Yordonnee YH def - CalcCoordinates - lineto - /Zcote ZC def - /Xabscisse XC def - /Yordonnee YC def - CalcCoordinates - lineto -closepath -gsave -0.05 0.3 0.3 0 setcmykcolor -fill -grestore -stroke -} if -% face6 CHKID -PS6 0 Condition { % -reduction reduction scale -1 setlinejoin -newpath - /Yordonnee YC def - /Zcote ZC def - /Xabscisse XC def - CalcCoordinates - moveto - /Zcote ZH def - /Xabscisse XH def - /Yordonnee YH def - CalcCoordinates - lineto - /Zcote ZK def - /Xabscisse XK def - /Yordonnee YK def - CalcCoordinates - lineto - /Zcote ZI def - /Xabscisse XI def - /Yordonnee YI def - CalcCoordinates - lineto - /Zcote ZD def - /Xabscisse XD def - /Yordonnee YD def - CalcCoordinates - lineto -closepath -gsave -0.05 0.35 0.35 0 setcmykcolor -fill -grestore -stroke -} if -% face7 KTSLI -PS7 0 Condition { % -reduction reduction scale -1 setlinejoin -newpath - /Yordonnee YK def - /Zcote ZK def - /Xabscisse XK def - CalcCoordinates - moveto - /Zcote ZT def - /Xabscisse XT def - /Yordonnee YT def - CalcCoordinates - lineto - /Zcote ZS def - /Xabscisse XS def - /Yordonnee YS def - CalcCoordinates - lineto - /Zcote ZL def - /Xabscisse XL def - /Yordonnee YL def - CalcCoordinates - lineto - /Zcote ZI def - /Xabscisse XI def - /Yordonnee YI def - CalcCoordinates - lineto -closepath -gsave -0.05 0.4 0.4 0 setcmykcolor -fill -grestore -stroke -} if -% face8 LSRMJ -PS8 0 Condition { % -reduction reduction scale -1 setlinejoin -newpath - /Yordonnee YL def - /Zcote ZL def - /Xabscisse XL def - CalcCoordinates - moveto - /Zcote ZS def - /Xabscisse XS def - /Yordonnee YS def - CalcCoordinates - lineto - /Zcote ZR def - /Xabscisse XR def - /Yordonnee YR def - CalcCoordinates - lineto - /Zcote ZM def - /Xabscisse XM def - /Yordonnee YM def - CalcCoordinates - lineto - /Zcote ZJ def - /Xabscisse XJ def - /Yordonnee YJ def - CalcCoordinates - lineto -closepath -gsave -0.05 0.45 0.45 0 setcmykcolor -fill -grestore -stroke -} if -% face9 MRQNF -PS9 0 Condition { % -reduction reduction scale -1 setlinejoin -newpath - /Yordonnee YM def - /Zcote ZM def - /Xabscisse XM def - CalcCoordinates - moveto - /Zcote ZR def - /Xabscisse XR def - /Yordonnee YR def - CalcCoordinates - lineto - /Zcote ZQ def - /Xabscisse XQ def - /Yordonnee YQ def - CalcCoordinates - lineto - /Zcote ZN def - /Xabscisse XN def - /Yordonnee YN def - CalcCoordinates - lineto - /Zcote ZF def - /Xabscisse XF def - /Yordonnee YF def - CalcCoordinates - lineto -closepath -gsave -0.05 0.5 0.5 0 setcmykcolor -fill -grestore -stroke -} if -% face10 NQPOG -PS10 0 Condition { % -reduction reduction scale -1 setlinejoin -newpath - /Yordonnee YN def - /Zcote ZN def - /Xabscisse XN def - CalcCoordinates - moveto - /Zcote ZQ def - /Xabscisse XQ def - /Yordonnee YQ def - CalcCoordinates - lineto - /Zcote ZP def - /Xabscisse XP def - /Yordonnee YP def - CalcCoordinates - lineto - /Zcote ZO def - /Xabscisse XO def - /Yordonnee YO def - CalcCoordinates - lineto - /Zcote ZG def - /Xabscisse XG def - /Yordonnee YG def - CalcCoordinates - lineto -closepath -gsave -0.05 0.55 0.55 0 setcmykcolor -fill -grestore -stroke -} if -% face11 OPTKH -PS11 0 Condition { % -reduction reduction scale -1 setlinejoin -newpath - /Yordonnee YO def - /Zcote ZO def - /Xabscisse XO def - CalcCoordinates - moveto - /Zcote ZP def - /Xabscisse XP def - /Yordonnee YP def - CalcCoordinates - lineto - /Zcote ZT def - /Xabscisse XT def - /Yordonnee YT def - CalcCoordinates - lineto - /Zcote ZK def - /Xabscisse XK def - /Yordonnee YK def - CalcCoordinates - lineto - /Zcote ZH def - /Xabscisse XH def - /Yordonnee YH def - CalcCoordinates - lineto -closepath -gsave -0.05 0.6 0.6 0 setcmykcolor -fill -grestore -stroke -} if -% face12 PQRST -PS12 0 Condition { % -reduction reduction scale -1 setlinejoin -newpath - /Yordonnee YP def - /Zcote ZP def - /Xabscisse XP def - CalcCoordinates - moveto - /Zcote ZQ def - /Xabscisse XQ def - /Yordonnee YQ def - CalcCoordinates - lineto - /Zcote ZR def - /Xabscisse XR def - /Yordonnee YR def - CalcCoordinates - lineto - /Zcote ZS def - /Xabscisse XS def - /Yordonnee YS def - CalcCoordinates - lineto - /Zcote ZT def - /Xabscisse XT def - /Yordonnee YT def - CalcCoordinates - lineto -closepath -gsave -0.05 0.65 0.65 0 setcmykcolor -fill -grestore -stroke -} if -} -def -end |