Index: /branches/dvo-mods-2007-02/Ohana/src/relastro/doc/parallax.pro
===================================================================
--- /branches/dvo-mods-2007-02/Ohana/src/relastro/doc/parallax.pro	(revision 12326)
+++ /branches/dvo-mods-2007-02/Ohana/src/relastro/doc/parallax.pro	(revision 12327)
@@ -332,2 +332,17 @@
 end
 
+
+macro parfactor
+
+  $RA = $1
+  $Dec = $2
+  $e = 23 + 27/60
+  
+  create s 0 360
+  set pR = dcos($e)*d
+
+  set pR =  +(dcos($e)*dsin(s)*dcos($RA) - dcos(s)*dsin($RA))
+  set pD =  -(dcos($e)*dsin(s)*dsin($RA) + dcos(s)*dcos($RA))*dsin($Dec) + dsin($e)*dsin(s)*dcos($Dec)
+
+  lim -1.1 1.1 -1.1 1.1; clear; box; plot pR pD
+end