(katepress)
((kate.press) .openpress kate .closepress) .cvx .def

(kate)((helveticab.sd) .opensd
.pushdc  
100 324 .translate 0 0 .moveto 
.pushdc .starteopath (KATE) 150 150 .scale (.entersdchar 0 .translate) .cvx chrforall .cliparea .popdc 
.pushdc  234 .texture 148 131 255 .color 0 0 500 600 .drawboxarea .popdc 
 -1 .texture 75 255 200 .color 2 2 .scale  -5 0 .translate shamrock .popdc).cvx .def

(chrforall)
((!x) .exch .def .dup .length -1 .exch(1 .add 2 .copy 1 .substring !x).cvx .rept .pop .pop).cvx .def

(shamrock)((!r) 0 .def 7(.pushdc 0 25(.pushdc 36 .add .dup !r .add .rotate sham .popdc 10 0 .translate ) .cvx .rept .pop .popdc 0 10 .translate (!r) .dup .load 25 .add .def ) .cvx .rept).cvx .def

(sham)
(.pushdc .025 .025 .scale -222 -267 .translate sham1 .popdc).cvx .def

(sham1)
[  
	(.startpath) .load
	 362.5	112.5
	 295.5	125.5
	 250.5	151.5
	 222.5	199.5
	 4
	(.enterspline) .load
	 222.5	199.5
	 170.5	142.5
	 78.5		189.5
	 154.5	287.5
	 4
	(.enterspline) .load
	 154.5	 287.5
	 113.5	 324.5
	 119.5	 417.5
	 236.5	 438.5
	 262.5	 338.5
	 5
	(.enterspline) .load
	 262.5	 342.5
	 321.5	 368.5
	 378.5	 327.5
	 312.5	 213.5
	 246.5	 225.5
	 5
	 (.enterspline) .load
	 246.5	 222.5
	 263.5	 174.5
	 313.5	 139.5
	 358.5	 150.5
	 4
	 (.enterspline) .load
	 (.drawarea) .load 
	]  .cvx .def