シュミットネットはステレオ投影法のひとつで地質構造解析によく使われるものである。 以下のリストはシュミットネットを描くPostscriptプログラムである。
使い方はこのリストをPhotoshopやIllustrator、GIMPなどで読み込ませるか、あるいはGhostScriptなどのPostscriptを取り扱えるプログラムで処理するだけである。 適当な解像度で印刷すればかなりの品質のシュミットネットを得ることができる。 (詳しい解説は後日)
%! Schmidt.eps
%%BoundingBox:0 0 600 800
/R 200 def
/X 300 def
/Y 400 def
/func {% d r
exch 2 div sin 2 mul 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
