折れ線、1色

mainprogram lineset1.f
subroutine  line1 (ln, po, r, g, b)

説明:線分の両端の座標を与え、色を指定し、座標を線分で順に結んで
     一筆書きで描くプログラム
入力変数:
  ln:データ数
  po(3*ln):点の(x, y, z) 座標を順番に与える
  r:赤色の値 [0,1]
  g:緑色の値 [0,1]
  b:青色の値 [0,1]

使用例: