p26 FILE=DIALOG_PICKFILE() MYIMAGE=READ_TIFF(File) TV, MYIMAGE WRITE_TIFF, 'imagecopy.tif', MYIMAGE iPlot, RANDOMU(seed, 20) theory = SIN(2.0*FINDGEN(200)*!PI/25.0)*EXP(-0.02*FINDGEN(200)) iPlot, theory newtheory = COS(2.0*FINDGEN(200)*!PI/25.0)*EXP(-0.02*FINDGEN(200)) iPlot, newtheory, /OVERPLOT p34 X= 2*!PI/100 * FINDGEN(100) PLOT, SIN(X) OPLOT, SIN(2*X) OPLOT, SIN(3*X) p37 plotTemplate = ASCII_TEMPLATE( ) PLOT_ASCII = READ_ASCII(FILEPATH('plot.txt', SUBDIRECTORY= $ ['examples', 'data']), TEMPLATE=plotTemplate) PLOT, PLOT_ASCII.TIME, PLOT_ASCII.temperature1 PLOT,PLOT_ASCII.TIME,PLOT_ASCII.Temperature1, $ TITLE='Temperature Over Time', $ XTITLE='Time in Seconds', YTITLE='Temperature Celsius' p57 FILE=DIALOG_PICKFILE() MYIMAGE=READ_TIFF(file) TV, MYIMAGE WDELETE TVSCL, MYIMAGE WDELETE NEWIMAGE=REBIN(MYIMAGE,384,256) TV, NEWIMAGE WDELETE WINDOW,0,XSIZE=800,YSIZE=600 TV,MYIMAGE WDELETE TVSCL,MYIMAGE GT 140 TVSCL,MYIMAGE LT 140 TV, HIST_EQUAL(myimage) TVSCL,MYIMAGE > 100 TVSCL,MYIMAGE < 140 TVSCL,MYIMAGE >140<200 TV, BYTSCL(MYIMAGE,MIN=140,MAX=200,TOP=!D.TABLE_SIZE-1) p69 TVSCL,SMOOTH(MYIMAGE,7) TVSCL, FLOAT(MYIMAGE)-SMOOTH(MYIMAGE,7) R=ROBERTS(MYIMAGE) TVSCL, R SO=SOBEL(MYIMAGE) TVSCL, SO XLOADCT ERASE E=MYIMAGE[100:300, 150:250] TV, E WDELETE R=ROTATE(E,1) TVSCL, R WDELETE PROFILES, R MARBELLSTEMPLATE=BINARY_TEMPLATE(FILEPATH('surface.dat', $ SUBDIR = ['examples', 'data'])) MARBELLS_BINARY=READ_BINARY (FILEPATH('surface.dat', $ SUBDIR=['examples', 'data']),TEMPLATE=MARBELLSTEMPLATE) iSurface, MARBELLS_BINARY.MARBELLS iContour, MARBELLS_BINARY.MARBELLS p84 MARBELLS=CONGRID(MARBELLS_BINARY.MARBELLS,35,45) SURFACE, MARBELLS SURFACE, MARBELLS, AX = 70, AZ = 25 LOADCT, 3 SHADE_SURF, MARBELLS SHADE_SURF,MARBELLS,AX=45,AZ=20,CHARSIZE=1.5, $ TITLE='Shaded Surface Representation' SHADE_SURF,MARBELLS,SHADE=BYTSCL(MARBELLS) SURFACE,MARBELLS,XSTYLE=4,YSTYLE=4,ZSTYLE=4,/NOERASE MARBELLS=MARBELLS_BINARY.MARBELLS CONTOUR, MARBELLS CONTOUR,MARBELLS,NLEVELS=8,C_LABELS=[0,1] CONTOUR,MARBELLS,NLEVELS=8,/FILL CONTOUR,MARBELLS,NLEVELS=8,/OVERPLOT,/DOWNHILL SURFR CONTOUR,MARBELLS,NLEVELS=8,/T3D SHOW3,MARBELLS p143 FILE=DIALOG_PICKFILE() HEARTTEMPLATE=BINARY_TEMPLATE(FILE) HEART_BINARY=READ_BINARY(file, TEMPLATE=HEARTTEMPLATE) LOADCT, 3 TV,HEART_BINARY.H[*, *, 0] H=REBIN(HEART_BINARY.H,320,320,16) TV,H[*, *, 0] FOR I=0,15 DO TVSCL,H[*,*,i] WDELETE p145 S=REBIN(HEART_BINARY.H,32,32,16) SURFACE,S[*,*,0] FRAMES=BYTARR(300,300,16) WINDOW,1,TITLE='IDL Animation',xsize=300,ysize=300 FOR I=0,15 DO BEGIN SURFACE,S[*,*,i],ZRANGE=[0,250]$ & FRAMES[*,*,i]=TVRD()&END FOR I=0,15 DO TV,FRAMES[*,*,i] A=S[*,*,0] WINDOW,0,XSIZE=300,YSIZE=300 SURFACE,A,XSTYLE=4,YSTYLE=4,ZSTYLE=4 SCALE3,XRANGE=[0,31],YRANGE=[0,31],ZRANGE=[0,250] XINTERANIMATE,SET=[300,300,40],/SHOWLOAD WSET, 0 FOR I=0,39 DO BEGIN SCALE3,AZ= -i * 9 & SURFACE,A, $ /T3D,XSTYLE=4,YSTYLE=4,ZSTYLE=4 & XINTERANIMATE,$ FRAME=I,WIN=0 & END XINTERANIMATE WDELETE, 0 WDELETE, 1