ウルフネットはステレオ投影法のひとつで結晶構造解析によく使われるものである。 以下のリストは極投影のウルフネットを描くPostscriptプログラムである。
使い方はこのリストをPhotoshopやIllustrator、GIMPなどで読み込ませるか、あるいはGhostScriptなどのPostscriptを取り扱えるプログラムで処理するだけである。 適当な解像度で印刷すればかなりの品質のウルフネットを得ることができる。 本来なら赤道面投影が欲しいところなのでそれは近日中に。
%! Wulf.eps
%%BoundingBox:0 0 600 800
/R 200 def
/X 300 def
/Y 400 def
/tan {% d
dup sin exch cos div
}def
/func {% d r
exch 90 exch sub 90 sub 2 div tan mul
} def
/func2 {% d
dup 90 R func exch cos mul X add exch
90 R func exch sin mul Y add
}def
/func3 {% d
dup 2 R func exch cos mul X add exch
2 R func exch sin mul Y add
}def
0.05 setlinewidth
0 2 90 {newpath X exch Y exch R func 0 360 arc stroke} for
0 2 360 {newpath dup func2 moveto func3 lineto stroke} for
0.4 setlinewidth
0 10 90 {newpath X exch Y exch R func 0 360 arc stroke} for
0 10 360 {newpath dup func2 moveto func3 lineto stroke} for
showpage
