mainprogram lineset2.f
subroutine line2 (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 )
使用例：