Changeset 41318 for trunk

Timestamp:

Mar 30, 2020, 1:24:01 PM (6 years ago)

Author:

eugene

Message:

addressing referee comments

File:

• trunk/doc/release.2015/ps1.analysis/plots.sh (modified) (1 diff)

trunk/doc/release.2015/ps1.analysis/plots.sh

@@ -68 +68 @@
 
 end
+
+macro galplane.cut
+
+  dev -n 0
+  resize 600 300
+  region 0 0 90 gls; label -fn helvetica 18; cgrid -lw 2 -c blue80 -labels -dec-spacing 30 -ra-spacing 60 -label-ra 180 -justify-ra 2 -justify-dec 3
+  
+  dev -n 1
+  resize 1200 600
+  region 0 0 90 gls; cgrid -c red
+
+  create glat_m -180 180
+  set glat_p = glat_m
+
+  set glon_p = +20 + 15*exp(-0.5*glat_p^2 / 50^2)
+  set glon_m = -20 - 15*exp(-0.5*glat_m^2 / 50^2)
+
+  dev -n 0
+  cplot glat_p glon_p -c red -pt box -sz 2
+  cplot glat_m glon_m -c red -pt box -sz 2
+  ps -name galplanecut.ps
+
+  csystem G C glat_p glon_p
+  csystem G C glat_m glon_m
+
+  dev -n 1
+  cplot glat_p glon_p -c blue -pt box -sz 0.5
+  cplot glat_m glon_m -c blue -pt box -sz 0.5
+end