Changeset 40438 for trunk/ippMonitor

Timestamp:

May 16, 2018, 2:40:29 PM (8 years ago)

Author:

eugene

Message:

fix range on ecliptic and galactic curves

Location:

trunk/ippMonitor/scripts

Files:

• skycellplot.dvo (modified) (2 diffs)
• skyplot.dvo (modified) (6 diffs)

trunk/ippMonitor/scripts/skycellplot.dvo

@@ -64 +64 @@
 
 macro galactic
- create l 720 -360 0.1
+ create l -360 720 0.1
  set b = l * 0
  csystem G C l b
@@ -71 +71 @@
 
 macro ecliptic
- create l 720 -360 0.1
+ create l -360 720 0.1
  set b = l * 0
  csystem E C l b

trunk/ippMonitor/scripts/skyplot.dvo

@@ -37 +37 @@
   end
 
+  # echo "starting skyplot"
   data $1
   read r 1 d 2 f 3
 
+  # echo "read data r[]"
   resize 1000 500
   region +ns -ew 180 0 85 ait; cgrid -ra-by-hour -c grey80
@@ -45 +47 @@
   set R = r * 180/3.14
   set D = d * 180/3.14
+  # echo "calculated RA,DEC R[]"
 
   for i 0 $filters:n
     subset R1 = R if (f == $i)
     subset D1 = D if (f == $i)
+    # echo "subset R1 R1[]"
     if (R1[]) 
       cplot R1 D1 -pt $pttype:$i -sz $ptsize:$i -c $filters:$i
@@ -54 +58 @@
   end
 
+  # echo "plot ecliptic"
   style -c red -pt 0 -sz 0.5; ecliptic
+
+  # echo "plot galactic"
   style -c blue -pt 0 -sz 0.5; galactic
 
@@ -61 +68 @@
 
 macro galactic
- create l 720 -360 0.1
+ create l -360 720 0.1
  set b = l * 0
  csystem G C l b
@@ -68 +75 @@
 
 macro ecliptic
- create l 720 -360 0.1
+ create l -360 720 0.1
  set b = l * 0
  csystem E C l b
@@ -75 +82 @@
 
 if ($SCRIPT)
+  echo "starting skyplot.dvo"
+
   $KAPA = kapa -noX
   if ($argv:n != 2)