mainprogram sphere1.f
subroutine  sphere2 (r, g, b, rd)

説明:色の値と、半径を与え、球を描くプログラム
入力変数:
  rd:底面の半径
  r:赤色の値 [0,1]
  g:緑色の値 [0,1]
  b:青色の値 [0,1]

使用例: