折れ線の図形出力(polyline primitive)に関するサブルーチン群.
GLpGET/GLpSETが管理する内部変数'LMISS'を.TRUE.にすると 欠損値処理をおこなう. つまり欠損値の前後は線で結ばない.
2次元のポリラインと異なり,実線しか描けない. また,ラベルをつけることもできない.
U/V座標系で折れ線を描く.属性も同時に指定する.
CALL SCPLZU(N,UPX,UPY,UPZ,ITYPE)
CALL SCPLZV(N,VPX,VPY,VPZ,ITYPE)
    
                                                                        
  N               (I)   配列UPX, UPY, UPZ の長さ.                      
                                                                        
  UPX, UPY,       (R)   長さNの配列. 折れ線を結ぶ点のU座標系における   
  UPZ                   (X, Y, Z)座標の値を与える.                     
                                                                        
  VPX, VPY,       (R)   長さNの配列. 折れ線を結ぶ点のV座標系における   
  VPZ                   (X, Y, Z)座標の値を与える.                     
                                                                        
  INDEX           (I)   ラインインデクス.SCSPLI参照.                  
                                                                        
  
  
U/V座標系で折れ線を描く.
CALL SCPLU(N,UPX,UPY,UPZ)
CALL SCPLV(N,VPX,VPY,VPZ)
    
                                                                        
  N               (I)   配列UPX, UPY, UPZ の長さ.                      
                                                                        
  UPX, UPY,       (R)   長さNの配列. 折れ線を結ぶ点のU座標系における   
  UPZ                   (X, Y, Z)座標の値を与える.                     
                                                                        
  VPX, VPY,       (R)   長さNの配列. 折れ線を結ぶ点のV座標系における   
  VPZ                   (X, Y, Z)座標の値を与える.                     
                                                                        
  
  
SCPLU, SCPLV で描く折れ線の ラインインデクスを設定する.
CALL SCSPLI(INDEX)
    
                                                                     
  INDEX   (I)   折れ線のラインインデクス (                           
                [here] 節参照;初期値は1).                            
                                                                     
  
  CALL SCQPLI(INDEX)によって参照できる.
NUMAGUTI Atusi <a1n@gfdl.gov> Last Modified: Thu Aug 31 13:05:10 EDT 1995