三角錐

mainprogram cone1.f
subroutine  cone1k1 (rd,h,r,g,b,x,y,z)

説明:色の値と底面の半径、高さを与え、三角錐を描くプログラム
入力変数:
  rd:底面の半径
  h:高さ
  r:赤色の値 [0,1]
  g:緑色の値 [0,1]
  b:青色の値 [0,1]
  x:原点のx座標
  y:原点のy座標
  z:原点のz座標

使用例: