(sqrt2) 2. .5 .exp .def 
(sqrt3/2) 3. .5 .exp 2. .div .def 
(k1) 8 sqrt2 .sub .def 

(k)
(.startpath
1 0 .menterpoint
0 2 .menterpoint
0 10 .menterpoint
2 10 .menterpoint
3 8.5 .menterpoint
4.5 10 .menterpoint
7 10  .menterpoint
3 6  .menterpoint
7 2 .menterpoint
6 1 .menterpoint
5 1 .menterpoint
2 4 .menterpoint
2 2 .menterpoint
3 0 .menterpoint
.drawarea).cvx .def

(sdivot)
(.startpath 
0 10 .menterpoint
2.5 10 .menterpoint
1 8.5 .menterpoint 
.drawarea) .cvx .def

(i)
(.startpath
0 0 .menterpoint
2 2  .menterpoint
2 4 .menterpoint
0 6 .menterpoint
2 7 .menterpoint
4 7 .menterpoint 
4 2 .menterpoint
5 0 .menterpoint
2.5 0 .menterpoint
1 -1.5 .menterpoint
.drawarea
.startpath
1 10 .menterpoint
4 10 .menterpoint
4 9 .menterpoint
3 8 .menterpoint
.drawarea) .cvx .def

(s)
(.startpath
1 0 .menterpoint
0 2 .menterpoint
0 4 .menterpoint
3 1 .menterpoint 
4 1 .menterpoint
5 2 .menterpoint
1 6 .menterpoint
5 10 .menterpoint
6 10 .menterpoint
8 8 .menterpoint
9 9 .menterpoint
9 7 .menterpoint
7 7 .menterpoint
5 6 .menterpoint
7 4 .menterpoint
7 2 .menterpoint
5 0 .menterpoint
.drawarea) .cvx .def

(ski)
(.mpush -10 0 .mtranslate s 9 0 .mtranslate k 7 0 .mtranslate i .mpop).cvx .def

(skip)
(.mpush -10 -10 .mtranslate s 9 0 .mtranslate k 7 0 .mtranslate i .mpop).cvx .def

(skif)
(.mpush -10 0 .mtranslate s sdivot 9 0 .mtranslate k  7 0 .mtranslate i .mpop).cvx .def


(sskis)
(replace .paint 360 264. .div  144. 60 .div  .mscale .mpush
8.5 36 .mul  11 36 .mul .translate
blackband
0 60 .mtranslate
-1 1 .mscale
0 0 0 .color -1  .texture
ski1
.mpop
0 0 255 .color 0 .texture
0 60 .mtranslate
-1 1 .mscale
ski2
.mpop).cvx .def

(ski1)
(.mpush .mpush 12 (ski 22 0 .mtranslate).cvx .rept .mpop 
6 10 .mtranslate 
.mpush 12 (ski 22 0 .mtranslate).cvx .rept .mpop 
.mpush
3 20  .mtranslate
(sks) .80 .def
3 (.mpush 6 (.mpush sks 1 .mscale skip .mpop 44 0 .mtranslate).cvx .rept .mpop (sks) .dup .load .2 .sub .def 0 12 .mtranslate ).cvx .rept 
.mpush 6 (.mpush sks 1 .mscale skip -22 0 .mtranslate
skip 44 0 .mtranslate skip .mpop 44 0 .mtranslate).cvx .rept .mpop .mpop
.mpush
3 16  .mtranslate
(sks) .80 .def
22 0 .mtranslate
4 (.mpush 6 (.mpush sks .5  .mscale skip .mpop 44 0 .mtranslate).cvx .rept .mpop (sks) .dup .load .2 .sub .def 0 12 .5  .mul .mtranslate ).cvx .rept 
.mpop
.mpop).cvx .def

(ski2)
((sks) .80 .def
.mpush 5 -10 .mtranslate 
.mpush 12 (skif 22 0 .mtranslate).cvx .rept .mpop 
-6 -10 .mtranslate
.mpush 12 (ski 22 0 .mtranslate).cvx .rept .mpop 
-3 -10 sks .mul .mtranslate
.mpush
(sks) .80 .def
1 (.mpush 6 (.mpush sks sks .mscale ski .mpop 44 0 .mtranslate).cvx .rept .mpop (sks) .dup .load sks .mul .def 0 -12 sks .mul .mtranslate ).cvx .rept
.mpop
.mpush
(sks) .90 .def
22 0 .mtranslate
3 (.mpush 6 (.mpush sks sks .mscale ski .mpop 44 0 .mtranslate).cvx .rept .mpop (sks) .dup .load sks .mul .def 0 -12 sks .mul .mtranslate ).cvx .rept
.mpop
.mpop).cvx .def
 
(blackband)
(0 0 0 .color -1 .texture
.startpath
(ind) 360. 132. .div .def
(rad) 144 .def
0 132 (.dup .dup .cos rad .mul .exch .sin rad .mul .enterpoint ind .add).cvx .rept .pop .drawarea).cvx .def