Initial commitHEADmaster

1 files changed, 59 insertions, 0 deletions

diff --git a/idl/idl2avinoloop.body b/idl/idl2avinoloop.body
new file mode 100644
index 0000000..0f44ffc
--- /dev/null
+++ b/idl/idl2avinoloop.body
@@ -0,0 +1,59 @@
+; ----------------------------------------------------------------------------------------
+; body for idlmovie.pro
+; ----------------------------------------------------------------------------------------
+
+ framepre     = "frame_"
+ framepost    = ".eps"
+
+ s1     = dimx
+ s2     = dimv
+ xmin   = xmax0/dimx0 * cutx - xoffset
+ xmax   = xmin + xmax0/dimx0 * dimx
+ ymax   = vmax0 - vmax0/dimv0 * cutv  
+ x      = xmin + (xmax-xmin)/s1 * findgen(s1)
+ y      = -ymax + 2.0*ymax/s2 * findgen(s2)
+
+ print, cutv
+ print, ymax
+
+; set_plot,"x"
+; window, 1, xpos=540, ypos=28, xsize=dimx+200, ysize=dimv+180, title="phasespace(x,v)"
+ xoff=120
+ yoff=100
+
+ loadct,13
+ tvlct, r, g, b, /get
+ r(0) = 255
+ g(0) = 255
+ b(0) = 255
+ r(1) = 0
+ g(1) = 0
+ b(1) = 0
+ tvlct, r, g, b
+
+;		print, file
+		openu,1,file
+
+		set_plot,"ps"
+		device, /encapsulated, file=outfile, xsize=40, ysize=40, bits=8
+
+		plot, x, y, xstyle=1, ystyle=1, xrange=[xmin,xmax], yrange=[-ymax,ymax],$
+			xtitle="!3x/!7k!3", ytitle="!3v/c!3",ticklen=-0.02,$
+			charsize=1.5, color=1, position=[xoff-1,yoff-1,xoff+s1+1,yoff+s2+1],$
+			/noerase, /nodata, /device
+
+		a = assoc(1,bytarr(dimx0,dimv0,/nozero))
+		phase = extrac(a(0)+1,cutx,cutv,dimx,dimv)
+		tvscl,alog10(phase),xoff,yoff
+		device,/close
+		close,1
+end
+
+
+
+
+
+
+
+
+