Arrow with the thickness

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

Description: This program draws an arrow with the thickness by combining the cylinder (gradation color) with the trigonal pyramid.

Input variable:
  nx : Data number of the x direction
  ny : Data number of the y direction
  u : Color (r, g, b) of the point is given in the order
  p : The coordinate of the point (x, y, z) is given in the order
  rd1 : The radius of the cylindrical basal plane
  rd2 : The radius of the basal plane of trigonal pyramid
  h : The height of the trigonal pyramid
  cx : The central x coordinate of the trigonal pyramid
  cy : The central y coordinate of the trigonal pyramid
  cz : The central z coordinate of the trigonal pyramid
  br : The red value of the cylinder basal plane [0,1]
  bg : The green value of the cylinder basal plane [0,1]
  bb : The blue value of the cylinder basal plane [0,1]
  cr : The red value of the trigonal pyramid [0,1]
  cg : The green value of the trigonal pyramid [0,1]
  cb : The blue value of the trigonal pyramid [0,1]

Drawing example: arrow2.wrl