PostScriptで六角形を書く

PostScriptで六角形をかく機会がありこのさいだからと関数を定義しておきました。

%usage CenterX CenterY Size drawHex
/drawHex{
        newpath
        dup 
        exch
        4 1 roll
        add 
        moveto
        5 {dup} repeat
        30 rotate
        neg 
        0 rlineto
        5{60 rotate neg 0 rlineto} repeat
        stroke
        closepath
} def

中心のX座標、中心のY座標、一辺の長さを引数にわたしてやると正六角形が描画できます。