affrc
サブルーチンdetvsの中で行ったアフィン変換と同じ変換を任意点に行ってその像を計算するルーチン.
サブルーチン名: affrc
呼び出し方:call affrc(p,pd)
引 数:
引数
意 味
入出力の区分
備 考
p(3)
描くべき3Dオブジェクトを内包する3次元領域Vに含まれる点の座標.
入力
pd(3)
アフィン変換による像の座標.
出力
注 意:
本ルーチンを呼び出す前には,必ずdetvsを呼び出しておく必要がある.
典型的な使用例:
……
call detvs(eye,region,copt,theta1,theta2,
& slattice,xmin,xmax,ymin,ymax)
call affrc(center,dc)
*
call pgbegin(0,'?',1,1)
call pgenv (xmin,xmax,ymin,ymax,1,-2)
call sbfint (rgbbkg,16,1,1,maxbuf)
call colint (rgbbal,17,48,0.0,1.0,1.0)
call sbball (eye,dc,radius,17,48,alight,.false.,x0,y0,r0)
……