| 1 | ; |
|---|
| 2 | ; Directories you'll need: |
|---|
| 3 | ; |
|---|
| 4 | |
|---|
| 5 | |
|---|
| 6 | RootIDL = ":/users/ucsd/ux454321/Microscope/trunk" |
|---|
| 7 | ;RootIDL = ":/home/dcollins/Microscope/trunk" |
|---|
| 8 | print, "Root ", RootIDL |
|---|
| 9 | !path = !path + RootIDL+"/Code" |
|---|
| 10 | !path = !path + RootIDL+"/Code_Xtras" |
|---|
| 11 | !path = !path + RootIDL+"/Tools" |
|---|
| 12 | !path = !path + RootIDL+"/XtraTools" |
|---|
| 13 | !path = !path + RootIDL+"/autoMeta" |
|---|
| 14 | !path = !path + RootIDL+"/kitp_anal" |
|---|
| 15 | !path = !path + RootIDL+"/AakeKITP" |
|---|
| 16 | |
|---|
| 17 | ;!path = !path + ":/gpfs-wan/projects/cadac/software/contrib/aake/idl" |
|---|
| 18 | ;!path = !path + ":/gpfs-wan/projects/cadac/software/contrib/aake/codes/KITPcompare07/idl" |
|---|
| 19 | |
|---|
| 20 | wan = "/gpfs-wan/projects/lca/dcollins/" |
|---|
| 21 | scratch = "/gpfs/ux454321" |
|---|
| 22 | |
|---|
| 23 | ; |
|---|
| 24 | ; non-object routines that are useful. |
|---|
| 25 | ; |
|---|
| 26 | |
|---|
| 27 | .r minc |
|---|
| 28 | .r zeropad |
|---|
| 29 | .r stat |
|---|
| 30 | .r tv1 |
|---|
| 31 | .r st2 |
|---|
| 32 | .r center |
|---|
| 33 | ;this is a flag for when I, like an idiot, try to run my code like a script, |
|---|
| 34 | ;instead of compiling. |
|---|
| 35 | AtTheMainLine = 1 |
|---|
| 36 | |
|---|
| 37 | |
|---|
| 38 | ;necessary for properly reading in files. |
|---|
| 39 | .r h5listfields ;lists fields in dataset (to check for existance) |
|---|
| 40 | .r fields ;maps integer m to desired field. |
|---|
| 41 | .r gs2 ;reads the data from the hdf5 file. |
|---|
| 42 | .r gs0 ;calls getdata (reads data from file) (kind of redundant...) |
|---|
| 43 | .r gs1 ;gets derived data (reads from file w/ gs0, manipulates) |
|---|
| 44 | .r gs ;switches between gs0,gs1 (straight from file or derived.) |
|---|
| 45 | .r read_aake ;IO for KITP comparison. |
|---|
| 46 | ;manipulation, plotting |
|---|
| 47 | .r read_hierarchy_wrapper |
|---|
| 48 | .r convert ;manipulates selection indicies. |
|---|
| 49 | .r OpenPlotFile ;opens plot files. |
|---|
| 50 | .r ClosePlotFile ;Closes plot files. |
|---|
| 51 | .r grab ;takes slices, subsets of full cube, sets grid members. |
|---|
| 52 | .r grab2 ;calls grab, returns the slice as a function. |
|---|
| 53 | .r p2 ;calls grab, makes plot. |
|---|
| 54 | .r advance ;advances timestep & slice position. |
|---|
| 55 | .r gsh ;Assembles the hierarchy slice. |
|---|
| 56 | .r extract ;From slices, assembles the whole hierarchy. (May be the slow way to do things...) |
|---|
| 57 | |
|---|
| 58 | ;various plot routines |
|---|
| 59 | .r p2_boundarylines |
|---|
| 60 | .r p2_range |
|---|
| 61 | .r p2_user |
|---|
| 62 | .r p2_context |
|---|
| 63 | .r p2_color |
|---|
| 64 | .r p2_grids |
|---|
| 65 | |
|---|
| 66 | ;Other methods |
|---|
| 67 | .r read_default_file |
|---|
| 68 | .r write_default_file |
|---|
| 69 | |
|---|
| 70 | ;gui and widgets. |
|---|
| 71 | .r gui |
|---|
| 72 | |
|---|
| 73 | ;the object |
|---|
| 74 | .r slide__define |
|---|
| 75 | .r return_file_loc |
|---|
| 76 | .r return_pos_in_volume |
|---|
| 77 | |
|---|
| 78 | ;auto meta data |
|---|
| 79 | .r auto_meta |
|---|
| 80 | .r make_html.pro |
|---|
| 81 | .r pre_fill_structures.pro |
|---|
| 82 | |
|---|
| 83 | ; |
|---|
| 84 | ; Startup stuff |
|---|
| 85 | ; |
|---|
| 86 | ; |
|---|
| 87 | |
|---|
| 88 | |
|---|
| 89 | bface = [54,55,56,62,63,64,70,71,72,79,79,80,86,87,88,94,95,96] |
|---|
| 90 | |
|---|
| 91 | iso_face = [49, 51, 52, 53, 54, 55, 56, $ |
|---|
| 92 | 57, 59, 60, 61, 62, 63, 64, $ |
|---|
| 93 | 65, 67 ,68 ,69, 70, 71, 72, $ |
|---|
| 94 | 73, 75, 76, 77, 78, 79, 80, $ |
|---|
| 95 | 81, 83, 84, 85, 86, 87, 88, $ |
|---|
| 96 | 89, 91, 92, 93, 94, 95, 96] |
|---|
| 97 | iso=[0,2,3,4,5,6,7] |
|---|
| 98 | iso_all = [iso, iso_face] |
|---|
| 99 | x_face = [49, 51, 52, 53, 54, 55, 56, $ |
|---|
| 100 | 57, 59, 60, 61, 62, 63, 64] |
|---|
| 101 | y_face = [65, 67 ,68 ,69, 70, 71, 72, $ |
|---|
| 102 | 73, 75, 76, 77, 78, 79, 80] |
|---|
| 103 | z_face = [81, 83, 84, 85, 86, 87, 88, $ |
|---|
| 104 | 89, 91, 92, 93, 94, 95, 96] |
|---|
| 105 | all_face = [49, 50, 51, 52, 53, 54, 55, 56, $ |
|---|
| 106 | 57, 58, 59, 60, 61, 62, 63, 64, $ |
|---|
| 107 | 65, 66 ,67 ,68 ,69, 70, 71, 72, $ |
|---|
| 108 | 73, 74, 75, 76, 77, 78, 79, 80, $ |
|---|
| 109 | 81, 82, 83, 84, 85, 86, 87, 88, $ |
|---|
| 110 | 89, 90, 91, 92, 93, 94, 95, 96] |
|---|
| 111 | |
|---|
| 112 | |
|---|
| 113 | |
|---|