(crayon)
((!chue) .exch .store
!chue 255 255 .color
gray8 .texture
body
!chue 200 255 .color
gray12 .texture
wrapper).cvx .def

(body)
(.startpath 
p1x p1y .enterpoint
p1x p2y .enterpoint
p3x p2y .enterpoint
p4x p4y .enterpoint
p5x p4y .enterpoint
p6x p2y .enterpoint
p7x p2y .enterpoint
p7x p1y .enterpoint
.drawarea).cvx .def

(wrapper)
(paper  0 0 0 .color -1 .texture  
.pushdc 0 3 4. .div 3 8. .div  .add .translate ink .popdc
.pushdc 0 w1y 3 8. .div  .add .translate ink .popdc
.pushdc 0 w2y 3 8. .div 3 4. .div .add  .sub .translate ink .popdc
).cvx .def

(paper)
(.startpath
p1x w1y .enterpoint
p1x w2y .enterpoint
p7x w2y .enterpoint
p7x w1y .enterpoint
.drawarea).cvx .def

(ink)
(.startpath
.startspline
p1x i1y 0 1 .enterspointslope
p1x i2y 0 1 .enterspointslope
p1x i2y 1 1 .enterspointslope
i3x i3y 1 0 .enterspointslope
i4x i4y 1 0 .enterspointslope
p7x i5y 1 1 .enterspointslope
p7x i5y 0 -1 .enterspointslope
p7x i1y 0 -1 .enterspointslope
p7x i1y -1 0 .enterspointslope
p1x i1y -1 0 .enterspointslope
.entersplinearea
.drawarea
.startpath
.startspline
p1x it1y 0 -1 .enterspointslope
p1x it2y 0 -1 .enterspointslope
p1x it2y 1 1 .enterspointslope
it3x it3y 1 0 .enterspointslope
it4x it4y 1 0 .enterspointslope
p7x it5y 1 1 .enterspointslope
p7x it5y 0 1 .enterspointslope
p7x it1y 0 1 .enterspointslope
p7x it1y -1 0 .enterspointslope
p1x it1y -1 0 .enterspointslope
.entersplinearea
.drawarea
).cvx .def



(p1x) 3 4. .div .neg .def
(p1y) 0 .def
(p2y) 11 7 4. .div .sub .def
(p3x) p1x 1 8. .div .add .def
(p4x) 7 32. .div .neg .def
(p4y) 11 .def
(p5x) p4x .neg .def
(p6x) p3x .neg .def
(p7x) p1x .neg .def
(w1y) p1y 3 4. .div .add .def
(w2y) p2y 3 4. .div .sub .def
(i1y) 0 .def
(i2y) 3 16. .div .def
(i3x) 3 8. .div .neg .def
(i3y) 3 8. .div .def
(i4x) i3x .neg .def
(i4y) i2y 1 32. .div .sub .def
(i5y) i3y 1 32. .div .sub .def
(it1y) 0 3 4. .div .exch .sub .def
(it2y) 3 8. .div 3 4. .div .exch .sub .def
(it3x) 3 8. .div .neg .def
(it3y) 3 16. .div 3 4. .div .exch .sub .def
(it4x) i3x .neg .def
(it4y) it2y 1 32. .div .sub .def
(it5y) it3y 1 32. .div .sub .def

(colorchart)
(8.5 36 .mul 11 36 .mul .translate
0 24(240 24. .div .add .dup .cvi 360 24. .div .rotate smallcrayon).cvx .rept
).cvx .def

(smallcrayon)
(.pushdc 54 0 .translate 2.5 72 .mul 11. .div .dup .scale  90 .rotate 0 -11 .translate crayon .popdc) .cvx .def
(singlecrayon)
(.pushdc 54 0 .translate 3.5 72 .mul 11. .div .dup .scale  90 .rotate 0 -11 .translate crayon .popdc) .cvx .def