点線、1色

mainprogram pointset1.f
subroutine  point1 (ln, po, r, g, b)

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

使用例: