自作コースを作ろう

やっぱり練習のためにコースは必要だろう、ということで、PCとかでコース作って印刷しよう、という短絡発想などしてみたんだけど、
http://www2.himdx.net/mcr/commodity/competition_course.html
こんな感じのコースらしい。

が、いざ「ナニで作ろう？」とか考え始めると、うーむ、,,,,
意外と普通のソフトでは"Rなんとか"をこさえるのが面倒くさい。なんというか、コマンドラインドローツールみたいなの無いかなあ、とか馬鹿なことをしばし考えた挙句（それはそれで一部の人にウケそうだけど）、よぉく考えてみたら PostScriptでいいヂャン、という結論に至って、リハビリ開始。案外全然覚えてないっぽい。さすが健忘症の老人。
確かこんな感じだったかな。

%!PS-Adobe-{VERSION}

gsave
 (原点座標) translate
 (回転角) rotate

 (なんぞいろいろパスを作る) {moveto, lineto, arc, setlinewidth, setjointype etc, etc....}
 (stroke とか fillとか)
 showpage
grestore

quit

やってみよう。

くの字

setlinejoinとか気にしたこと無かったのでついでにいじってみよう。

%!PS-Adobe-2.0

gsave
% 72point = 1inch = 2.54cm
% so if you want to use cm as a unit length, do
% 72 / 2.54 
28.34645669 28.34645669 scale

%%2 2 scale

%45 rotate

/ku {
newpath
0 0 moveto
10 10 lineto
1 20 lineto
stroke
} def

1.2 setlinewidth


3 7 translate

0 setlinejoin
ku

3 0 translate
1 setlinejoin
ku

3 0 translate
2 setlinejoin
ku

showpage
grestore

quit

よおし、ノッてきたノッてきた。

おお、すばらしい。逆だが。

本題（コース）

%!PS-Adobe-2.0

gsave
    1.2 1.2 scale
    % 2.834645669 2.834645669 scale   % to milli meter
    -530 355 translate  % must adjust
    -22.5 rotate

    /frame {
	newpath
	0 0 600 0 45 arc
	gsave
	    45 rotate
	    0 300 rlineto
	grestore
	0 0 900 45 0 arcn
	closepath
    } def

    frame fill

    0.5 setcolor
    40 setlinewidth
    0 0 750 0 45 arc
    stroke
    1 setcolor
    20 setlinewidth
    0 0 750 0 45 arc
    stroke

    30 setlinewidth
    0 0 615 0 45 arc
    stroke
    0 0 885 0 45 arc
    stroke

    0 setcolor
    1 setlinewidth
    frame stroke

    showpage
grestore
quit

どうだろう。

いけてるっぽい。
うれしい。どうやら均等にするより、こうしたほうが

大きく書ける。こっちで行こう。あとはサイズ調整か。
追記：
quit余計だった。MacOSXで変換しようとしたらおこられた。quitとると変換はできるけど大きさが・・・