Add files via upload

bjpeg.pro

@@ -0,0 +1,22 @@
+PRO bjpeg
+thisDevice = !D.Name
+Set_Plot, 'Z', /COPY
+Device, Set_Resolution=[500,350], Z_Buffer=0
+Erase
+ro = fltarr(64,64,64)
+openr,1,'rodir/ro021.dat'
+readu,1,ro
+close,1
+;shade_surf,ro(*,*,3)
+contour,ro(*,*,3),nlevels=28, /noclip, /noerase , /fill
+snapshot = TVRD()
+TVLCT, r, g, b, /Get
+Device, Z_Buffer=1
+Set_Plot, thisDevice
+image24 = BytArr(3, 500, 350)
+image24[0,*,*] = r[snapshot]
+image24[1,*,*] = g[snapshot]
+image24[2,*,*] = b[snapshot]
+Write_JPEG, 'con021.jpg', image24, True=1, Quality=75
+END
+

bxjpeg.pro

@@ -0,0 +1,35 @@
+PRO bxjpeg
+thisDevice = !D.Name
+Set_Plot, 'Z', /COPY
+Device, Set_Resolution=[500,350], Z_Buffer=0
+Erase
+
+bx = fltarr(64,64,64)
+
+arrayx=fltarr(100)
+arrayy=fltarr(100)
+arrayz=fltarr(100)
+;FOR i=0, 9 DO BEGIN
+i=10
+	A='bx/bx00x.dat'
+	s=string(i)
+        S=strtrim(s,1)
+        STRPUT,A,s,6
+	openr,1,A
+	readu,1,bx
+	close,1
+	;shade_surf,bx(*,*,3)
+	contour,bx(*,*,3),nlevels=28, /noclip, /noerase , /fill
+	snapshot = TVRD()
+	TVLCT, r, g, b, /Get
+	Device, Z_Buffer=1
+	Set_Plot, thisDevice
+	image24 = BytArr(3, 500, 350)
+	image24[0,*,*] = r[snapshot]
+	image24[1,*,*] = g[snapshot]
+	image24[2,*,*] = b[snapshot]
+	B='bxcon/bx00x.jpg'
+	STRPUT,B,s,9
+	Write_JPEG, B, image24, True=1, Quality=75
+;	ENDFOR
+END

bxsurface.pro

@@ -0,0 +1,15 @@
+PRO bxsurface
+bx = fltarr(64,64,64)
+i=0
+      A='bx/bx00x.dat'
+        s=string(i)
+        S=strtrim(s,1)
+        STRPUT,A,s,7
+        openr,1,A
+;openr,1,'bx/bx003.dat'
+readu,1,bx
+close,1
+shade_surf,bx(*,*,3), /SAVE , title='surface plot', xstyle=1, ystyle=1 
+contour,bx(*,*,3),nlevels=28, /t3d, /noclip, /noerase , /fill,$
+ title='contour plot', MAX_VAL=80., zvalue=1.0,  xstyle=1, ystyle=1
+end

counting.pro

@@ -0,0 +1,23 @@
+PRO counting
+FOR i=0, 9 DO BEGIN
+	A='bx00x.dat'
+	s=string(i)
+	S=strtrim(s,1)
+	STRPUT,A,s,4
+	print,A
+
+	ENDFOR
+FOR i=10, 99 DO BEGIN
+        s=string(i)
+        S=strtrim(s,1)  
+        STRPUT,A,s,3
+        print,A
+        ENDFOR
+i=100
+        s=string(i)
+        S=strtrim(s,1)  
+        STRPUT,A,s,2
+        print,A
+END
+
+

ddata.pro

@@ -0,0 +1,20 @@
+PRO ddata,array
+array=fltarr(1,547)
+openu,unit,'vz000.dat',/GET_LUN
+readu,unit,array
+close,unit
+FREE_LUN,unit 
+print,array
+END
+;array=fltarr(2,547)
+;openu,unit,'ro000.dat',/GET_LUN
+;readu,unit,array(1,*)
+;close,unit
+;openu,unit,'vz000.dat',/GET_LUN
+;readu,unit,array(2,*)
+;close,unit
+;FREE_LUN,unit
+;print,array
+;surface,array
+
+