点線、グラデーション

mainprogram pointset2.f
subroutine  point2 (ln, po, sco, eco)

説明:点の座標を与え、色を指定(グラデーション)し、点線を描くプログラム
入力変数:
  ln:データ数
  po(3*ln):点の(x, y, z) 座標を順番に与える
  sco:グラデーションの始まりの色(カラーコード)
  eco:グラデーションの終わりの色(カラーコード)
  カラーコード(1: white 2: yellow 3: mazenda 4: red 5: sian 6: green 7: blue )

使用例: