太い矢印

mainprogram arrow2.f
subroutine  arrow2 (nx, ny, u, p, rd1, rd2, h, cx, cy, cz, br, bg, bb, cr, cg, cb)

説明:円筒(グラデーション色)と三角錐を組み合わせて、太さのある矢印を描くプログラム
入力変数:
  nx:x方向のデータ数
  ny:y方向のデータ数
  u:点の色(r, g, b)を順番に与える
  p:点の(x, y, z) 座標を順番に与える
  rd1:円筒の底面の半径
  rd2:三角錐の底面の半径
  h:三角錐の高さ
  cx:三角錐のx中心の座標
  cy:三角錐のy中心の座標
  cz:三角錐のz中心の座標
  br:円筒底面の赤色の値 [0,1]
  bg:円筒底面の緑色の値 [0,1]
  bb:円筒底面の青色の値 [0,1]
  cr:三角錘の赤色の値 [0,1]
  cg:三角錘の緑色の値 [0,1]
  cb:三角錘の青色の値 [0,1]

使用例: