sic date
sic cpu
system "echo ""    elapsed      total    user_cpu      total     sys_cpu      total ! all.graphic &1 &2 &3 &4 &5 "" >> pipe.log"
system "echo ""    -------      -----    --------      -----     -------      ----- ! 'SYS_DATE' "" >> pipe.log"
del /symbol SYS_DATE
del /symbol SYS_CPU
del /symbol use_cpu
del /symbol elapsed
!
!----------------------------------------------------------------------------
begin procedure pipelineLog
  !
  sic cpu
  system "echo ""'elapsed' 'use_cpu' 'sys_cpu' ! &1 &2 &3 &4 &5"" >> pipe.log"
  !
end   procedure pipelineLog
!----------------------------------------------------------------------------
begin procedure domap
    
    @ p_uv_map 
    @ pipelineLog end  uv_map &1
    @ p_clean
    @ pipelineLog  end  clean &1 
    let type lmv-clean
    @ x_lmv
    system  "rm &1.ps"
    hard &1 /dev ps color
    @ pipelineLog end  plot  &1 
end procedure   domap
!---------------------------------------------------------------------
begin procedure co-map
    let name co-&1
    let map_size 256
    let map_cell 0.08
    let weight_mode UNIFORM 
    let uv_cell 7.5 12
    let niter 100! 500
    let gain 0.2
    let method CLARK
    let fres 0.05
    let major  1.04
    let minor  0.82
    let angle  -178.
    let first 7
    let last 31
    let size 10
    let spacing 0.05
    @ domap co-&1
end procedure co-map
!---------------------------------------------------------------------
begin procedure hco-map
    let name hco-&1
    let map_size 256
    let map_cell 0.22
    let weight_mode UNIFORM  
    let uv_cell 7.5 2.8
    let niter 500
    let gain 0.2
    let method CLARK
    let fres 0.05
    let major 2.41
    let minor 1.81
    let angle -180.
    let first 11
    let last 35
    let size 20
    let spacing 0.025
    let type lmv-clean
    @ domap hco-&1
end procedure hco-map
!---------------------------------------------------------------------
begin procedure 1mm-map
    let name 1mm-&1
    let map_size 256
    let map_cell 0.08
    let weight_mode UNIFORM 
    let uv_cell 7.5 3
    let niter 500
    let gain 0.2
    let method CLARK
    let fres 0.05
    let major 0.85
    let minor 0.59
    let angle -156
    let first 0
    let last 0
    let size 10
    let spacing 0.007
    let type lmv-clean
    @ domap 1mm-&1
end procedure 1mm-map
!---------------------------------------------------------------------
begin procedure 3mm-map
    let name 3mm-&1
    let map_size 256
    let map_cell 0.22
    let weight_mode UNIFORM 
    let uv_cell 7.5 0.9
    let niter 2000
    let gain 0.10
    let method CLARK
    let fres 0.02
    let major 1.99
    let minor 1.25
    let angle 20
    let first 0
    let last 0
    let size 20
    let spacing 0.001
    let type lmv-clean
    @ domap 3mm-&1
end procedure 3mm-map

@ define
@ co-map &1
@ hco-map &1
@ 1mm-map &1
@ 3mm-map &1
system "echo ""    -------      -----    --------      -----     -------      ----- ! 'SYS_DATE' "" >> pipe.log"
exit