[cig-commits] r16116 - seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res

dkomati1 at geodynamics.org dkomati1 at geodynamics.org
Tue Dec 29 09:32:33 PST 2009


Author: dkomati1
Date: 2009-12-29 09:32:32 -0800 (Tue, 29 Dec 2009)
New Revision: 16116

Added:
   seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/check_block_openDX_MR.f90
   seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block_MR.cfg
   seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block_MR.net
Removed:
   seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/check_block_openDX.f90
   seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block.cfg
   seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block.net
Log:
added "_MR" to the file names in order to use the same convention as for "_HR"


Deleted: seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/check_block_openDX.f90
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/check_block_openDX.f90	2009-12-29 17:29:59 UTC (rev 16115)
+++ seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/check_block_openDX.f90	2009-12-29 17:32:32 UTC (rev 16116)
@@ -1,226 +0,0 @@
-
-  program read_gocad_block_extract
-
-  implicit none
-
-  include "../../../constants.h"
-
-!
-! new Voxet Peter July 29, 2002
-!
-
-  double precision vp_block_gocad(0:NX_GOCAD_MR-1,0:NY_GOCAD_MR-1,0:NZ_GOCAD_MR-1)
-  logical iflag_point(0:NX_GOCAD_MR-1,0:NY_GOCAD_MR-1,0:NZ_GOCAD_MR-1)
-  integer ipoin_store(0:NX_GOCAD_MR-1,0:NY_GOCAD_MR-1,0:NZ_GOCAD_MR-1)
-
-! use integer array to store topography values
-  integer iclosestlong,iclosestlat
-  double precision elevation,max_error
-  double precision lat,long
-
-  integer ix,iy,iz,iz_found,ipoin,ispec,npoin,nspec
-  integer icount_undefined
-
-  double precision vpmin,vpmax
-  double precision xcoord,ycoord,zcoord
-  double precision zsedim_found
-  integer irecord,nrecord,i_vp
-
-  print *
-  print *,'reading velocity block from Gocad voxet'
-  print *
-
-  print *
-  print *,'number of points in block NX_GOCAD_MR,NY_GOCAD_MR,NZ_GOCAD_MR = ',NX_GOCAD_MR,NY_GOCAD_MR,NZ_GOCAD_MR
-  print *,'total points in block NX_GOCAD_MR*NY_GOCAD_MR*NZ_GOCAD_MR = ',NX_GOCAD_MR*NY_GOCAD_MR*NZ_GOCAD_MR
-  print *
-
-! initialize array to undefined values everywhere
-  vp_block_gocad(:,:,:) = -1.
-
-! read Vp from extracted text file
-  open(unit=27,file='LA_MR_voxet_extracted.txt',status='old')
-  read(27,*) nrecord
-  do irecord = 1,nrecord
-    read(27,*) ix,iy,iz,i_vp
-    if(ix<0 .or. ix>NX_GOCAD_MR-1 .or. iy<0 .or. iy>NY_GOCAD_MR-1 .or. iz<0 .or. iz>NZ_GOCAD_MR-1) &
-      stop 'wrong array index read in Gocad medium-resolution file'
-    vp_block_gocad(ix,iy,iz) = dble(i_vp)
-  enddo
-  close(27)
-
-!---
-
-  icount_undefined = 0
-  vpmin = + 100000000.
-  vpmax = - 100000000.
-  ipoin = 0
-
-! count total number of points kept
-  do ix = 0,NX_GOCAD_MR-1
-    do iy = 0,NY_GOCAD_MR-1
-      do iz = 0,NZ_GOCAD_MR-1
-
-! exclude points that are undefined
-! a negative P velocity has been used to flag these points
-        if(vp_block_gocad(ix,iy,iz) < 1.) then
-          icount_undefined = icount_undefined + 1
-          iflag_point(ix,iy,iz) = .false.
-
-        else
-          ipoin = ipoin + 1
-          ipoin_store(ix,iy,iz) = ipoin
-          iflag_point(ix,iy,iz) = .true.
-
-          vpmin = dmin1(vpmin,vp_block_gocad(ix,iy,iz))
-          vpmax = dmax1(vpmax,vp_block_gocad(ix,iy,iz))
-
-        endif
-
-      enddo
-    enddo
-  enddo
-
-  npoin = ipoin
-
-! count total number of elements
-  ispec = 0
-  do ix = 0,NX_GOCAD_MR-2
-    do iy = 0,NY_GOCAD_MR-2
-      do iz = 0,NZ_GOCAD_MR-2
-
-! suppress elements that are undefined
-   if(iflag_point(ix,iy,iz) .and. &
-      iflag_point(ix+1,iy,iz) .and. &
-      iflag_point(ix+1,iy+1,iz) .and. &
-      iflag_point(ix,iy+1,iz) .and. &
-      iflag_point(ix,iy,iz+1) .and. &
-      iflag_point(ix+1,iy,iz+1) .and. &
-      iflag_point(ix+1,iy+1,iz+1) .and. &
-      iflag_point(ix,iy+1,iz+1)) ispec = ispec + 1
-
-      enddo
-    enddo
-  enddo
-
-  nspec = ispec
-
-  print *
-  print *,'found ',icount_undefined,' undefined points'
-  print *,'which is ',100.*icount_undefined/dble(NX_GOCAD_MR*NY_GOCAD_MR*NZ_GOCAD_MR),' %'
-  print *
-
-  print *,'minval maxval Vp in region kept = ',vpmin,vpmax
-
-! create DX file with velocity block
-! only save elements that are not fictitious
-
-  print *
-  print *,'creating DX file'
-  print *,'points = ',npoin
-  print *,'elements = ',nspec
-  print *
-
-  open(unit=11,file='DX_Pvelocity_block_MR.dx',status='unknown')
-
-  write(11,*) 'object 1 class array type float rank 1 shape 3  items ',npoin,' data follows'
-
-! output global DX points
-! loop on all the points
-  ipoin = 0
-  do ix = 0,NX_GOCAD_MR-1
-    do iy = 0,NY_GOCAD_MR-1
-      do iz = 0,NZ_GOCAD_MR-1
-
-    if(iflag_point(ix,iy,iz)) then
-        ipoin = ipoin + 1
-
-! define Gocad grid, shift of Voxet is taken into account
-        xcoord = ORIG_X_GOCAD_MR + ix*SPACING_X_GOCAD_MR
-        ycoord = ORIG_Y_GOCAD_MR + iy*SPACING_Y_GOCAD_MR
-        zcoord = ORIG_Z_GOCAD_MR + iz*SPACING_Z_GOCAD_MR
-        write(11,*) sngl(xcoord),' ',sngl(ycoord),' ',sngl(zcoord)
-     endif
-
-      enddo
-    enddo
-  enddo
-
-  write(11,*) 'object 2 class array type int rank 1 shape 8 items ',nspec,' data follows'
-
-! output global DX elements
-! loop on all the elements
-  ispec = 0
-  do ix = 0,NX_GOCAD_MR-2
-    do iy = 0,NY_GOCAD_MR-2
-      do iz = 0,NZ_GOCAD_MR-2
-
-! suppress elements that are undefined
-   if(iflag_point(ix,iy,iz) .and. &
-      iflag_point(ix+1,iy,iz) .and. &
-      iflag_point(ix+1,iy+1,iz) .and. &
-      iflag_point(ix,iy+1,iz) .and. &
-      iflag_point(ix,iy,iz+1) .and. &
-      iflag_point(ix+1,iy,iz+1) .and. &
-      iflag_point(ix+1,iy+1,iz+1) .and. &
-      iflag_point(ix,iy+1,iz+1)) then
-
-        ispec = ispec + 1
-
-! use Z > 0 and Z < 0 to define material flag
-        zcoord = ORIG_Z_GOCAD_MR + iz*SPACING_Z_GOCAD_MR
-
-! point order in OpenDX is 4,1,8,5,3,2,7,6, *not* 1,2,3,4,5,6,7,8 as in AVS
-        write(11,200) ipoin_store(ix,iy+1,iz)-1,ipoin_store(ix,iy,iz)-1, &
-                      ipoin_store(ix,iy+1,iz+1)-1,ipoin_store(ix,iy,iz+1)-1, &
-                      ipoin_store(ix+1,iy+1,iz)-1,ipoin_store(ix+1,iy,iz)-1, &
-                      ipoin_store(ix+1,iy+1,iz+1)-1,ipoin_store(ix+1,iy,iz+1)-1
-
-     endif
-
-      enddo
-    enddo
-  enddo
-
- 200 format(i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6)
-
-! output DX header for data
-  write(11,*) 'attribute "element type" string "cubes"'
-  write(11,*) 'attribute "ref" string "positions"'
-  write(11,*) 'object 3 class array type float rank 0  items ',npoin,' data follows'
-
-! output data values (P-velocity at points)
-  ipoin = 0
-  do ix = 0,NX_GOCAD_MR-1
-    do iy = 0,NY_GOCAD_MR-1
-      do iz = 0,NZ_GOCAD_MR-1
-      if(iflag_point(ix,iy,iz)) then
-        ipoin = ipoin + 1
-
-! use Vp to color the model
-!        write(11,*) sngl(vp_block_gocad(ix,iy,iz))
-
-! or use Z > 0 and Z < 0 to color the model
-        zcoord = ORIG_Z_GOCAD_MR + iz*SPACING_Z_GOCAD_MR
-        if(zcoord <= 0.) then
-          write(11,*) '0'
-        else
-          write(11,*) '255'
-        endif
-
-      endif
-      enddo
-    enddo
-  enddo
-
-  write(11,*) 'attribute "dep" string "positions"'
-  write(11,*) 'object "irregular connections  irregular positions" class field'
-  write(11,*) 'component "positions" value 1'
-  write(11,*) 'component "connections" value 2'
-  write(11,*) 'component "data" value 3'
-  write(11,*) 'end'
-
-  close(11)
-
-  end program read_gocad_block_extract
-

Copied: seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/check_block_openDX_MR.f90 (from rev 16114, seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/check_block_openDX.f90)
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/check_block_openDX_MR.f90	                        (rev 0)
+++ seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/check_block_openDX_MR.f90	2009-12-29 17:32:32 UTC (rev 16116)
@@ -0,0 +1,226 @@
+
+  program read_gocad_block_extract
+
+  implicit none
+
+  include "../../../constants.h"
+
+!
+! new Voxet Peter July 29, 2002
+!
+
+  double precision vp_block_gocad(0:NX_GOCAD_MR-1,0:NY_GOCAD_MR-1,0:NZ_GOCAD_MR-1)
+  logical iflag_point(0:NX_GOCAD_MR-1,0:NY_GOCAD_MR-1,0:NZ_GOCAD_MR-1)
+  integer ipoin_store(0:NX_GOCAD_MR-1,0:NY_GOCAD_MR-1,0:NZ_GOCAD_MR-1)
+
+! use integer array to store topography values
+  integer iclosestlong,iclosestlat
+  double precision elevation,max_error
+  double precision lat,long
+
+  integer ix,iy,iz,iz_found,ipoin,ispec,npoin,nspec
+  integer icount_undefined
+
+  double precision vpmin,vpmax
+  double precision xcoord,ycoord,zcoord
+  double precision zsedim_found
+  integer irecord,nrecord,i_vp
+
+  print *
+  print *,'reading velocity block from Gocad voxet'
+  print *
+
+  print *
+  print *,'number of points in block NX_GOCAD_MR,NY_GOCAD_MR,NZ_GOCAD_MR = ',NX_GOCAD_MR,NY_GOCAD_MR,NZ_GOCAD_MR
+  print *,'total points in block NX_GOCAD_MR*NY_GOCAD_MR*NZ_GOCAD_MR = ',NX_GOCAD_MR*NY_GOCAD_MR*NZ_GOCAD_MR
+  print *
+
+! initialize array to undefined values everywhere
+  vp_block_gocad(:,:,:) = -1.
+
+! read Vp from extracted text file
+  open(unit=27,file='LA_MR_voxet_extracted.txt',status='old')
+  read(27,*) nrecord
+  do irecord = 1,nrecord
+    read(27,*) ix,iy,iz,i_vp
+    if(ix<0 .or. ix>NX_GOCAD_MR-1 .or. iy<0 .or. iy>NY_GOCAD_MR-1 .or. iz<0 .or. iz>NZ_GOCAD_MR-1) &
+      stop 'wrong array index read in Gocad medium-resolution file'
+    vp_block_gocad(ix,iy,iz) = dble(i_vp)
+  enddo
+  close(27)
+
+!---
+
+  icount_undefined = 0
+  vpmin = + 100000000.
+  vpmax = - 100000000.
+  ipoin = 0
+
+! count total number of points kept
+  do ix = 0,NX_GOCAD_MR-1
+    do iy = 0,NY_GOCAD_MR-1
+      do iz = 0,NZ_GOCAD_MR-1
+
+! exclude points that are undefined
+! a negative P velocity has been used to flag these points
+        if(vp_block_gocad(ix,iy,iz) < 1.) then
+          icount_undefined = icount_undefined + 1
+          iflag_point(ix,iy,iz) = .false.
+
+        else
+          ipoin = ipoin + 1
+          ipoin_store(ix,iy,iz) = ipoin
+          iflag_point(ix,iy,iz) = .true.
+
+          vpmin = dmin1(vpmin,vp_block_gocad(ix,iy,iz))
+          vpmax = dmax1(vpmax,vp_block_gocad(ix,iy,iz))
+
+        endif
+
+      enddo
+    enddo
+  enddo
+
+  npoin = ipoin
+
+! count total number of elements
+  ispec = 0
+  do ix = 0,NX_GOCAD_MR-2
+    do iy = 0,NY_GOCAD_MR-2
+      do iz = 0,NZ_GOCAD_MR-2
+
+! suppress elements that are undefined
+   if(iflag_point(ix,iy,iz) .and. &
+      iflag_point(ix+1,iy,iz) .and. &
+      iflag_point(ix+1,iy+1,iz) .and. &
+      iflag_point(ix,iy+1,iz) .and. &
+      iflag_point(ix,iy,iz+1) .and. &
+      iflag_point(ix+1,iy,iz+1) .and. &
+      iflag_point(ix+1,iy+1,iz+1) .and. &
+      iflag_point(ix,iy+1,iz+1)) ispec = ispec + 1
+
+      enddo
+    enddo
+  enddo
+
+  nspec = ispec
+
+  print *
+  print *,'found ',icount_undefined,' undefined points'
+  print *,'which is ',100.*icount_undefined/dble(NX_GOCAD_MR*NY_GOCAD_MR*NZ_GOCAD_MR),' %'
+  print *
+
+  print *,'minval maxval Vp in region kept = ',vpmin,vpmax
+
+! create DX file with velocity block
+! only save elements that are not fictitious
+
+  print *
+  print *,'creating DX file'
+  print *,'points = ',npoin
+  print *,'elements = ',nspec
+  print *
+
+  open(unit=11,file='DX_Pvelocity_block_MR.dx',status='unknown')
+
+  write(11,*) 'object 1 class array type float rank 1 shape 3  items ',npoin,' data follows'
+
+! output global DX points
+! loop on all the points
+  ipoin = 0
+  do ix = 0,NX_GOCAD_MR-1
+    do iy = 0,NY_GOCAD_MR-1
+      do iz = 0,NZ_GOCAD_MR-1
+
+    if(iflag_point(ix,iy,iz)) then
+        ipoin = ipoin + 1
+
+! define Gocad grid, shift of Voxet is taken into account
+        xcoord = ORIG_X_GOCAD_MR + ix*SPACING_X_GOCAD_MR
+        ycoord = ORIG_Y_GOCAD_MR + iy*SPACING_Y_GOCAD_MR
+        zcoord = ORIG_Z_GOCAD_MR + iz*SPACING_Z_GOCAD_MR
+        write(11,*) sngl(xcoord),' ',sngl(ycoord),' ',sngl(zcoord)
+     endif
+
+      enddo
+    enddo
+  enddo
+
+  write(11,*) 'object 2 class array type int rank 1 shape 8 items ',nspec,' data follows'
+
+! output global DX elements
+! loop on all the elements
+  ispec = 0
+  do ix = 0,NX_GOCAD_MR-2
+    do iy = 0,NY_GOCAD_MR-2
+      do iz = 0,NZ_GOCAD_MR-2
+
+! suppress elements that are undefined
+   if(iflag_point(ix,iy,iz) .and. &
+      iflag_point(ix+1,iy,iz) .and. &
+      iflag_point(ix+1,iy+1,iz) .and. &
+      iflag_point(ix,iy+1,iz) .and. &
+      iflag_point(ix,iy,iz+1) .and. &
+      iflag_point(ix+1,iy,iz+1) .and. &
+      iflag_point(ix+1,iy+1,iz+1) .and. &
+      iflag_point(ix,iy+1,iz+1)) then
+
+        ispec = ispec + 1
+
+! use Z > 0 and Z < 0 to define material flag
+        zcoord = ORIG_Z_GOCAD_MR + iz*SPACING_Z_GOCAD_MR
+
+! point order in OpenDX is 4,1,8,5,3,2,7,6, *not* 1,2,3,4,5,6,7,8 as in AVS
+        write(11,200) ipoin_store(ix,iy+1,iz)-1,ipoin_store(ix,iy,iz)-1, &
+                      ipoin_store(ix,iy+1,iz+1)-1,ipoin_store(ix,iy,iz+1)-1, &
+                      ipoin_store(ix+1,iy+1,iz)-1,ipoin_store(ix+1,iy,iz)-1, &
+                      ipoin_store(ix+1,iy+1,iz+1)-1,ipoin_store(ix+1,iy,iz+1)-1
+
+     endif
+
+      enddo
+    enddo
+  enddo
+
+ 200 format(i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6)
+
+! output DX header for data
+  write(11,*) 'attribute "element type" string "cubes"'
+  write(11,*) 'attribute "ref" string "positions"'
+  write(11,*) 'object 3 class array type float rank 0  items ',npoin,' data follows'
+
+! output data values (P-velocity at points)
+  ipoin = 0
+  do ix = 0,NX_GOCAD_MR-1
+    do iy = 0,NY_GOCAD_MR-1
+      do iz = 0,NZ_GOCAD_MR-1
+      if(iflag_point(ix,iy,iz)) then
+        ipoin = ipoin + 1
+
+! use Vp to color the model
+!        write(11,*) sngl(vp_block_gocad(ix,iy,iz))
+
+! or use Z > 0 and Z < 0 to color the model
+        zcoord = ORIG_Z_GOCAD_MR + iz*SPACING_Z_GOCAD_MR
+        if(zcoord <= 0.) then
+          write(11,*) '0'
+        else
+          write(11,*) '255'
+        endif
+
+      endif
+      enddo
+    enddo
+  enddo
+
+  write(11,*) 'attribute "dep" string "positions"'
+  write(11,*) 'object "irregular connections  irregular positions" class field'
+  write(11,*) 'component "positions" value 1'
+  write(11,*) 'component "connections" value 2'
+  write(11,*) 'component "data" value 3'
+  write(11,*) 'end'
+
+  close(11)
+
+  end program read_gocad_block_extract
+

Deleted: seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block.cfg
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block.cfg	2009-12-29 17:29:59 UTC (rev 16115)
+++ seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block.cfg	2009-12-29 17:32:32 UTC (rev 16116)
@@ -1,45 +0,0 @@
-//
-// time: Mon Nov 25 23:39:03 2002
-//
-// version: 3.1.2 (format), 4.2.0 (DX)
-//
-//
-// panel[0]: position = (0.0752,0.6979), size = 0.2783x0.1615, startup = 1, devstyle = 1
-// title: value = Control Panel
-//
-// workspace: width = 500, height = 500
-// layout: snap = 0, width = 50, height = 50, align = NN
-//
-// panel[2]: position = (0.3613,0.6979), size = 0.2773x0.1615, startup = 1, devstyle = 1
-// title: value = Control Panel
-//
-// workspace: width = 500, height = 500
-// layout: snap = 0, width = 50, height = 50, align = NN
-//
-// node Image[2]:
-// depth: value = 16
-// window: position = (0.0000,0.1380), size = 0.5664x0.6341
-// input[1]: defaulting = 0, value = "Image_2"
-// input[4]: defaulting = 0, value = 1
-// input[5]: defaulting = 0, value = [435138 3.85099e+06 -5600]
-// input[6]: defaulting = 0, value = [435138 3.85099e+06 1.89496e+06]
-// input[7]: defaulting = 0, value = 716196.0
-// input[8]: defaulting = 0, value = 566
-// input[9]: defaulting = 0, value = 0.783569
-// input[10]: defaulting = 0, value = [0 1 0]
-// input[11]: defaulting = 1, value = 21.3408
-// input[12]: defaulting = 0, value = 0
-// input[14]: defaulting = 0, value = 1
-// input[15]: defaulting = 0, value = "none"
-// input[16]: defaulting = 0, value = "none"
-// input[17]: defaulting = 0, value = 1
-// input[18]: defaulting = 0, value = 1
-// input[19]: defaulting = 0, value = 1
-// input[22]: defaulting = 0, value = "black"
-// input[25]: defaulting = 0, value = "gocad_MR.tif"
-// input[26]: defaulting = 0, value = "tiff"
-// input[29]: defaulting = 0, value = 0
-// input[33]: defaulting = 0, value = 1
-// input[36]: defaulting = 0, value = 1
-// input[41]: defaulting = 0, value = "panzoom"
-// internal caching: 1

Deleted: seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block.net
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block.net	2009-12-29 17:29:59 UTC (rev 16115)
+++ seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block.net	2009-12-29 17:32:32 UTC (rev 16116)
@@ -1,625 +0,0 @@
-//
-// time: Mon Nov 25 23:39:03 2002
-//
-// version: 3.1.2 (format), 4.2.0 (DX)
-//
-//
-// MODULE main
-// workspace: width = 549, height = 602
-// layout: snap = 0, width = 50, height = 50, align = NN
-//
-macro main(
-) -> (
-) {
-    // 
-    // node AmbientLight[1]: x = 200, y = 235, inputs = 1, label = AmbientLight
-    //
-main_AmbientLight_1_out_1 = 
-    AmbientLight(
-    main_AmbientLight_1_in_1
-    ) [instance: 1, cache: 1];
-    // 
-    // node Import[2]: x = 193, y = 42, inputs = 6, label = Import
-    // input[1]: defaulting = 0, visible = 1, type = 32, value = "DX_Pvelocity_block_MR.dx"
-    // input[3]: defaulting = 0, visible = 1, type = 32, value = "dx"
-    //
-main_Import_2_out_1 = 
-    Import(
-    main_Import_2_in_1,
-    main_Import_2_in_2,
-    main_Import_2_in_3,
-    main_Import_2_in_4,
-    main_Import_2_in_5,
-    main_Import_2_in_6
-    ) [instance: 2, cache: 1];
-    // 
-    // node AutoColor[1]: x = 76, y = 209, inputs = 10, label = AutoColor
-    //
-main_AutoColor_1_out_1,
-main_AutoColor_1_out_2 = 
-    AutoColor(
-    main_Import_2_out_1,
-    main_AutoColor_1_in_2,
-    main_AutoColor_1_in_3,
-    main_AutoColor_1_in_4,
-    main_AutoColor_1_in_5,
-    main_AutoColor_1_in_6,
-    main_AutoColor_1_in_7,
-    main_AutoColor_1_in_8,
-    main_AutoColor_1_in_9,
-    main_AutoColor_1_in_10
-    ) [instance: 1, cache: 1];
-    // 
-    // node Import[4]: x = 477, y = 79, inputs = 6, label = Import
-    // input[1]: defaulting = 0, visible = 1, type = 32, value = "DX_highwayscoast_papers.dx"
-    // input[3]: defaulting = 0, visible = 1, type = 32, value = "dx"
-    //
-main_Import_4_out_1 = 
-    Import(
-    main_Import_4_in_1,
-    main_Import_4_in_2,
-    main_Import_4_in_3,
-    main_Import_4_in_4,
-    main_Import_4_in_5,
-    main_Import_4_in_6
-    ) [instance: 4, cache: 1];
-    // 
-    // node AutoColor[3]: x = 428, y = 202, inputs = 10, label = AutoColor
-    //
-main_AutoColor_3_out_1,
-main_AutoColor_3_out_2 = 
-    AutoColor(
-    main_Import_4_out_1,
-    main_AutoColor_3_in_2,
-    main_AutoColor_3_in_3,
-    main_AutoColor_3_in_4,
-    main_AutoColor_3_in_5,
-    main_AutoColor_3_in_6,
-    main_AutoColor_3_in_7,
-    main_AutoColor_3_in_8,
-    main_AutoColor_3_in_9,
-    main_AutoColor_3_in_10
-    ) [instance: 3, cache: 1];
-    // 
-    // node Import[6]: x = 327, y = 97, inputs = 6, label = Import
-    // input[1]: defaulting = 0, visible = 1, type = 32, value = "gocad_MR_grid_edges.dx"
-    // input[3]: defaulting = 0, visible = 1, type = 32, value = "dx"
-    //
-main_Import_6_out_1 = 
-    Import(
-    main_Import_6_in_1,
-    main_Import_6_in_2,
-    main_Import_6_in_3,
-    main_Import_6_in_4,
-    main_Import_6_in_5,
-    main_Import_6_in_6
-    ) [instance: 6, cache: 1];
-    // 
-    // node AutoColor[5]: x = 344, y = 275, inputs = 10, label = AutoColor
-    //
-main_AutoColor_5_out_1,
-main_AutoColor_5_out_2 = 
-    AutoColor(
-    main_Import_6_out_1,
-    main_AutoColor_5_in_2,
-    main_AutoColor_5_in_3,
-    main_AutoColor_5_in_4,
-    main_AutoColor_5_in_5,
-    main_AutoColor_5_in_6,
-    main_AutoColor_5_in_7,
-    main_AutoColor_5_in_8,
-    main_AutoColor_5_in_9,
-    main_AutoColor_5_in_10
-    ) [instance: 5, cache: 1];
-    // 
-    // node Collect[1]: x = 167, y = 429, inputs = 4, label = Collect
-    //
-main_Collect_1_out_1 = 
-    Collect(
-    main_AutoColor_1_out_1,
-    main_Collect_1_in_2,
-    main_AmbientLight_1_out_1,
-    main_AutoColor_3_out_1
-    ) [instance: 1, cache: 1];
-    // 
-    // node Image[2]: x = 192, y = 540, inputs = 49, label = Image
-    // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_2"
-    // input[4]: defaulting = 0, visible = 0, type = 1, value = 1
-    // input[5]: defaulting = 0, visible = 0, type = 8, value = [435138 3.85099e+06 -5600]
-    // input[6]: defaulting = 0, visible = 0, type = 8, value = [435138 3.85099e+06 1.89496e+06]
-    // input[7]: defaulting = 0, visible = 0, type = 5, value = 716196.0
-    // input[8]: defaulting = 0, visible = 0, type = 1, value = 566
-    // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.783569
-    // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0]
-    // input[11]: defaulting = 1, visible = 0, type = 5, value = 21.3408
-    // input[12]: defaulting = 0, visible = 0, type = 1, value = 0
-    // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
-    // input[15]: defaulting = 0, visible = 0, type = 32, value = "none"
-    // input[16]: defaulting = 0, visible = 0, type = 32, value = "none"
-    // input[17]: defaulting = 0, visible = 0, type = 1, value = 1
-    // input[18]: defaulting = 0, visible = 0, type = 1, value = 1
-    // input[19]: defaulting = 0, visible = 0, type = 1, value = 1
-    // input[22]: defaulting = 0, visible = 0, type = 32, value = "black"
-    // input[25]: defaulting = 0, visible = 0, type = 32, value = "gocad_MR.tif"
-    // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff"
-    // input[29]: defaulting = 0, visible = 0, type = 3, value = 0
-    // input[33]: defaulting = 0, visible = 0, type = 3, value = 1
-    // input[36]: defaulting = 0, visible = 0, type = 3, value = 1
-    // input[41]: defaulting = 0, visible = 0, type = 32, value = "panzoom"
-    // depth: value = 16
-    // window: position = (0.0000,0.1380), size = 0.5664x0.6341
-    // internal caching: 1
-    //
-main_Image_2_out_1,
-main_Image_2_out_2,
-main_Image_2_out_3 = 
-    Image(
-    main_Image_2_in_1,
-    main_Collect_1_out_1,
-    main_Image_2_in_3,
-    main_Image_2_in_4,
-    main_Image_2_in_5,
-    main_Image_2_in_6,
-    main_Image_2_in_7,
-    main_Image_2_in_8,
-    main_Image_2_in_9,
-    main_Image_2_in_10,
-    main_Image_2_in_11,
-    main_Image_2_in_12,
-    main_Image_2_in_13,
-    main_Image_2_in_14,
-    main_Image_2_in_15,
-    main_Image_2_in_16,
-    main_Image_2_in_17,
-    main_Image_2_in_18,
-    main_Image_2_in_19,
-    main_Image_2_in_20,
-    main_Image_2_in_21,
-    main_Image_2_in_22,
-    main_Image_2_in_23,
-    main_Image_2_in_24,
-    main_Image_2_in_25,
-    main_Image_2_in_26,
-    main_Image_2_in_27,
-    main_Image_2_in_28,
-    main_Image_2_in_29,
-    main_Image_2_in_30,
-    main_Image_2_in_31,
-    main_Image_2_in_32,
-    main_Image_2_in_33,
-    main_Image_2_in_34,
-    main_Image_2_in_35,
-    main_Image_2_in_36,
-    main_Image_2_in_37,
-    main_Image_2_in_38,
-    main_Image_2_in_39,
-    main_Image_2_in_40,
-    main_Image_2_in_41,
-    main_Image_2_in_42,
-    main_Image_2_in_43,
-    main_Image_2_in_44,
-    main_Image_2_in_45,
-    main_Image_2_in_46,
-    main_Image_2_in_47,
-    main_Image_2_in_48,
-    main_Image_2_in_49
-    ) [instance: 2, cache: 1];
-// network: end of macro body
-CacheScene(main_Image_2_in_1, main_Image_2_out_1, main_Image_2_out_2);
-}
-main_AmbientLight_1_in_1 = NULL;
-main_AmbientLight_1_out_1 = NULL;
-main_Import_2_in_1 = "DX_Pvelocity_block_MR.dx";
-main_Import_2_in_2 = NULL;
-main_Import_2_in_3 = "dx";
-main_Import_2_in_4 = NULL;
-main_Import_2_in_5 = NULL;
-main_Import_2_in_6 = NULL;
-main_Import_2_out_1 = NULL;
-main_AutoColor_1_in_2 = NULL;
-main_AutoColor_1_in_3 = NULL;
-main_AutoColor_1_in_4 = NULL;
-main_AutoColor_1_in_5 = NULL;
-main_AutoColor_1_in_6 = NULL;
-main_AutoColor_1_in_7 = NULL;
-main_AutoColor_1_in_8 = NULL;
-main_AutoColor_1_in_9 = NULL;
-main_AutoColor_1_in_10 = NULL;
-main_AutoColor_1_out_1 = NULL;
-main_Import_4_in_1 = "DX_highwayscoast_papers.dx";
-main_Import_4_in_2 = NULL;
-main_Import_4_in_3 = "dx";
-main_Import_4_in_4 = NULL;
-main_Import_4_in_5 = NULL;
-main_Import_4_in_6 = NULL;
-main_Import_4_out_1 = NULL;
-main_AutoColor_3_in_2 = NULL;
-main_AutoColor_3_in_3 = NULL;
-main_AutoColor_3_in_4 = NULL;
-main_AutoColor_3_in_5 = NULL;
-main_AutoColor_3_in_6 = NULL;
-main_AutoColor_3_in_7 = NULL;
-main_AutoColor_3_in_8 = NULL;
-main_AutoColor_3_in_9 = NULL;
-main_AutoColor_3_in_10 = NULL;
-main_AutoColor_3_out_1 = NULL;
-main_Import_6_in_1 = "gocad_MR_grid_edges.dx";
-main_Import_6_in_2 = NULL;
-main_Import_6_in_3 = "dx";
-main_Import_6_in_4 = NULL;
-main_Import_6_in_5 = NULL;
-main_Import_6_in_6 = NULL;
-main_Import_6_out_1 = NULL;
-main_AutoColor_5_in_2 = NULL;
-main_AutoColor_5_in_3 = NULL;
-main_AutoColor_5_in_4 = NULL;
-main_AutoColor_5_in_5 = NULL;
-main_AutoColor_5_in_6 = NULL;
-main_AutoColor_5_in_7 = NULL;
-main_AutoColor_5_in_8 = NULL;
-main_AutoColor_5_in_9 = NULL;
-main_AutoColor_5_in_10 = NULL;
-main_Collect_1_in_2 = NULL;
-main_Collect_1_out_1 = NULL;
-macro Image(
-        id,
-        object,
-        where,
-        useVector,
-        to,
-        from,
-        width,
-        resolution,
-        aspect,
-        up,
-        viewAngle,
-        perspective,
-        options,
-        buttonState = 1,
-        buttonUpApprox = "none",
-        buttonDownApprox = "none",
-        buttonUpDensity = 1,
-        buttonDownDensity = 1,
-        renderMode = 0,
-        defaultCamera,
-        reset,
-        backgroundColor,
-        throttle,
-        RECenable = 0,
-        RECfile,
-        RECformat,
-        RECresolution,
-        RECaspect,
-        AAenable = 0,
-        AAlabels,
-        AAticks,
-        AAcorners,
-        AAframe,
-        AAadjust,
-        AAcursor,
-        AAgrid,
-        AAcolors,
-        AAannotation,
-        AAlabelscale,
-        AAfont,
-        interactionMode,
-        title,
-        AAxTickLocs,
-        AAyTickLocs,
-        AAzTickLocs,
-        AAxTickLabels,
-        AAyTickLabels,
-        AAzTickLabels,
-        webOptions) -> (
-        object,
-        camera,
-        where)
-{
-    ImageMessage(
-        id,
-        backgroundColor,
-        throttle,
-        RECenable,
-        RECfile,
-        RECformat,
-        RECresolution,
-        RECaspect,
-        AAenable,
-        AAlabels,
-        AAticks,
-        AAcorners,
-        AAframe,
-        AAadjust,
-        AAcursor,
-        AAgrid,
-        AAcolors,
-        AAannotation,
-        AAlabelscale,
-        AAfont,
-        AAxTickLocs,
-        AAyTickLocs,
-        AAzTickLocs,
-        AAxTickLabels,
-        AAyTickLabels,
-        AAzTickLabels,
-        interactionMode,
-        title,
-        renderMode,
-        buttonUpApprox,
-        buttonDownApprox,
-        buttonUpDensity,
-        buttonDownDensity) [instance: 1, cache: 1];
-    autoCamera =
-        AutoCamera(
-            object,
-            "front",
-            object,
-            resolution,
-            aspect,
-            [0,1,0],
-            perspective,
-            viewAngle,
-            backgroundColor) [instance: 1, cache: 1];
-    realCamera =
-        Camera(
-            to,
-            from,
-            width,
-            resolution,
-            aspect,
-            up,
-            perspective,
-            viewAngle,
-            backgroundColor) [instance: 1, cache: 1];
-    coloredDefaultCamera = 
-	 UpdateCamera(defaultCamera,
-            background=backgroundColor) [instance: 1, cache: 1];
-    nullDefaultCamera =
-        Inquire(defaultCamera,
-            "is null + 1") [instance: 1, cache: 1];
-    resetCamera =
-        Switch(
-            nullDefaultCamera,
-            coloredDefaultCamera,
-            autoCamera) [instance: 1, cache: 1];
-    resetNull = 
-        Inquire(
-            reset,
-            "is null + 1") [instance: 2, cache: 1];
-    reset =
-        Switch(
-            resetNull,
-            reset,
-            0) [instance: 2, cache: 1];
-    whichCamera =
-        Compute(
-            "($0 != 0 || $1 == 0) ? 1 : 2",
-            reset,
-            useVector) [instance: 1, cache: 1];
-    camera = Switch(
-            whichCamera,
-            resetCamera,
-            realCamera) [instance: 3, cache: 1];
-    AAobject =
-        AutoAxes(
-            object,
-            camera,
-            AAlabels,
-            AAticks,
-            AAcorners,
-            AAframe,
-            AAadjust,
-            AAcursor,
-            AAgrid,
-            AAcolors,
-            AAannotation,
-            AAlabelscale,
-            AAfont,
-            AAxTickLocs,
-            AAyTickLocs,
-            AAzTickLocs,
-            AAxTickLabels,
-            AAyTickLabels,
-            AAzTickLabels) [instance: 1, cache: 1];
-    switchAAenable = Compute("$0+1",
-	     AAenable) [instance: 2, cache: 1];
-    object = Switch(
-	     switchAAenable,
-	     object,
-	     AAobject) [instance:4, cache: 1];
-    SWapproximation_options =
-        Switch(
-            buttonState,
-            buttonUpApprox,
-            buttonDownApprox) [instance: 5, cache: 1];
-    SWdensity_options =
-        Switch(
-            buttonState,
-            buttonUpDensity,
-            buttonDownDensity) [instance: 6, cache: 1];
-    HWapproximation_options =
-        Format(
-            "%s,%s",
-            buttonDownApprox,
-            buttonUpApprox) [instance: 1, cache: 1];
-    HWdensity_options =
-        Format(
-            "%d,%d",
-            buttonDownDensity,
-            buttonUpDensity) [instance: 2, cache: 1];
-    switchRenderMode = Compute(
-	     "$0+1",
-	     renderMode) [instance: 3, cache: 1];
-    approximation_options = Switch(
-	     switchRenderMode,
-            SWapproximation_options,
-	     HWapproximation_options) [instance: 7, cache: 1];
-    density_options = Switch(
-	     switchRenderMode,
-            SWdensity_options,
-            HWdensity_options) [instance: 8, cache: 1];
-    renderModeString = Switch(
-            switchRenderMode,
-            "software",
-            "hardware")[instance: 9, cache: 1];
-    object_tag = Inquire(
-            object,
-            "object tag")[instance: 3, cache: 1];
-    annoted_object =
-        Options(
-            object,
-            "send boxes",
-            0,
-            "cache",
-            1,
-            "object tag",
-            object_tag,
-            "ddcamera",
-            whichCamera,
-            "rendering approximation",
-            approximation_options,
-            "render every",
-            density_options,
-            "button state",
-            buttonState,
-            "rendering mode",
-            renderModeString) [instance: 1, cache: 1];
-    RECresNull =
-        Inquire(
-            RECresolution,
-            "is null + 1") [instance: 4, cache: 1];
-    ImageResolution =
-        Inquire(
-            camera,
-            "camera resolution") [instance: 5, cache: 1];
-    RECresolution =
-        Switch(
-            RECresNull,
-            RECresolution,
-            ImageResolution) [instance: 10, cache: 1];
-    RECaspectNull =
-        Inquire(
-            RECaspect,
-            "is null + 1") [instance: 6, cache: 1];
-    ImageAspect =
-        Inquire(
-            camera,
-            "camera aspect") [instance: 7, cache: 1];
-    RECaspect =
-        Switch(
-            RECaspectNull,
-            RECaspect,
-            ImageAspect) [instance: 11, cache: 1];
-    switchRECenable = Compute(
-          "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
-            RECenable,
-            switchRenderMode,
-            RECresolution,
-            ImageResolution,
-            RECaspect,
-	     ImageAspect) [instance: 4, cache: 1];
-    NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
-    Display(
-        NoRECobject,
-        camera,
-        where,
-        throttle) [instance: 1, cache: 1];
-    image =
-        Render(
-            RECNoRerenderObject,
-            camera) [instance: 1, cache: 1];
-    Display(
-        image,
-        NULL,
-        where,
-        throttle) [instance: 2, cache: 1];
-    WriteImage(
-        image,
-        RECfile,
-        RECformat) [instance: 1, cache: 1];
-    rec_where = Display(
-        RECNoRerHW,
-        camera,
-        where,
-        throttle) [instance: 1, cache: 0];
-    rec_image = ReadImageWindow(
-        rec_where) [instance: 1, cache: 1];
-    WriteImage(
-        rec_image,
-        RECfile,
-        RECformat) [instance: 1, cache: 1];
-    RECupdateCamera =
-	UpdateCamera(
-	    camera,
-	    resolution=RECresolution,
-	    aspect=RECaspect) [instance: 2, cache: 1];
-    Display(
-        RECRerenderObject,
-        camera,
-        where,
-        throttle) [instance: 1, cache: 1];
-    RECRerenderObject =
-	ScaleScreen(
-	    RECRerenderObject,
-	    NULL,
-	    RECresolution,
-	    camera) [instance: 1, cache: 1];
-    image =
-        Render(
-            RECRerenderObject,
-            RECupdateCamera) [instance: 2, cache: 1];
-    WriteImage(
-        image,
-        RECfile,
-        RECformat) [instance: 2, cache: 1];
-}
-main_Image_2_in_1 = "Image_2";
-main_Image_2_in_3 = "X16,,";
-main_Image_2_in_4 = 1;
-main_Image_2_in_5 = [435138 3.85099e+06 -5600];
-main_Image_2_in_6 = [435138 3.85099e+06 1.89496e+06];
-main_Image_2_in_7 = 716196.0;
-main_Image_2_in_8 = 566;
-main_Image_2_in_9 = 0.783569;
-main_Image_2_in_10 = [0 1 0];
-main_Image_2_in_11 = NULL;
-main_Image_2_in_12 = 0;
-main_Image_2_in_13 = NULL;
-main_Image_2_in_14 = 1;
-main_Image_2_in_15 = "none";
-main_Image_2_in_16 = "none";
-main_Image_2_in_17 = 1;
-main_Image_2_in_18 = 1;
-main_Image_2_in_19 = 1;
-main_Image_2_in_20 = NULL;
-main_Image_2_in_21 = NULL;
-main_Image_2_in_22 = "black";
-main_Image_2_in_23 = NULL;
-main_Image_2_in_25 = "gocad_MR.tif";
-main_Image_2_in_26 = "tiff";
-main_Image_2_in_27 = NULL;
-main_Image_2_in_28 = NULL;
-main_Image_2_in_29 = 0;
-main_Image_2_in_30 = NULL;
-main_Image_2_in_31 = NULL;
-main_Image_2_in_32 = NULL;
-main_Image_2_in_33 = 1;
-main_Image_2_in_34 = NULL;
-main_Image_2_in_35 = NULL;
-main_Image_2_in_36 = 1;
-main_Image_2_in_37 = NULL;
-main_Image_2_in_38 = NULL;
-main_Image_2_in_39 = NULL;
-main_Image_2_in_40 = NULL;
-main_Image_2_in_41 = "panzoom";
-main_Image_2_in_42 = NULL;
-main_Image_2_in_43 = NULL;
-main_Image_2_in_44 = NULL;
-main_Image_2_in_45 = NULL;
-main_Image_2_in_46 = NULL;
-main_Image_2_in_47 = NULL;
-main_Image_2_in_48 = NULL;
-main_Image_2_in_49 = NULL;
-Executive("product version 4 2 0");
-$sync
-main();

Copied: seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block_MR.cfg (from rev 16114, seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block.cfg)
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block_MR.cfg	                        (rev 0)
+++ seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block_MR.cfg	2009-12-29 17:32:32 UTC (rev 16116)
@@ -0,0 +1,45 @@
+//
+// time: Mon Nov 25 23:39:03 2002
+//
+// version: 3.1.2 (format), 4.2.0 (DX)
+//
+//
+// panel[0]: position = (0.0752,0.6979), size = 0.2783x0.1615, startup = 1, devstyle = 1
+// title: value = Control Panel
+//
+// workspace: width = 500, height = 500
+// layout: snap = 0, width = 50, height = 50, align = NN
+//
+// panel[2]: position = (0.3613,0.6979), size = 0.2773x0.1615, startup = 1, devstyle = 1
+// title: value = Control Panel
+//
+// workspace: width = 500, height = 500
+// layout: snap = 0, width = 50, height = 50, align = NN
+//
+// node Image[2]:
+// depth: value = 16
+// window: position = (0.0000,0.1380), size = 0.5664x0.6341
+// input[1]: defaulting = 0, value = "Image_2"
+// input[4]: defaulting = 0, value = 1
+// input[5]: defaulting = 0, value = [435138 3.85099e+06 -5600]
+// input[6]: defaulting = 0, value = [435138 3.85099e+06 1.89496e+06]
+// input[7]: defaulting = 0, value = 716196.0
+// input[8]: defaulting = 0, value = 566
+// input[9]: defaulting = 0, value = 0.783569
+// input[10]: defaulting = 0, value = [0 1 0]
+// input[11]: defaulting = 1, value = 21.3408
+// input[12]: defaulting = 0, value = 0
+// input[14]: defaulting = 0, value = 1
+// input[15]: defaulting = 0, value = "none"
+// input[16]: defaulting = 0, value = "none"
+// input[17]: defaulting = 0, value = 1
+// input[18]: defaulting = 0, value = 1
+// input[19]: defaulting = 0, value = 1
+// input[22]: defaulting = 0, value = "black"
+// input[25]: defaulting = 0, value = "gocad_MR.tif"
+// input[26]: defaulting = 0, value = "tiff"
+// input[29]: defaulting = 0, value = 0
+// input[33]: defaulting = 0, value = 1
+// input[36]: defaulting = 0, value = 1
+// input[41]: defaulting = 0, value = "panzoom"
+// internal caching: 1

Copied: seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block_MR.net (from rev 16114, seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block.net)
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block_MR.net	                        (rev 0)
+++ seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/show_gocad_block_MR.net	2009-12-29 17:32:32 UTC (rev 16116)
@@ -0,0 +1,625 @@
+//
+// time: Mon Nov 25 23:39:03 2002
+//
+// version: 3.1.2 (format), 4.2.0 (DX)
+//
+//
+// MODULE main
+// workspace: width = 549, height = 602
+// layout: snap = 0, width = 50, height = 50, align = NN
+//
+macro main(
+) -> (
+) {
+    // 
+    // node AmbientLight[1]: x = 200, y = 235, inputs = 1, label = AmbientLight
+    //
+main_AmbientLight_1_out_1 = 
+    AmbientLight(
+    main_AmbientLight_1_in_1
+    ) [instance: 1, cache: 1];
+    // 
+    // node Import[2]: x = 193, y = 42, inputs = 6, label = Import
+    // input[1]: defaulting = 0, visible = 1, type = 32, value = "DX_Pvelocity_block_MR.dx"
+    // input[3]: defaulting = 0, visible = 1, type = 32, value = "dx"
+    //
+main_Import_2_out_1 = 
+    Import(
+    main_Import_2_in_1,
+    main_Import_2_in_2,
+    main_Import_2_in_3,
+    main_Import_2_in_4,
+    main_Import_2_in_5,
+    main_Import_2_in_6
+    ) [instance: 2, cache: 1];
+    // 
+    // node AutoColor[1]: x = 76, y = 209, inputs = 10, label = AutoColor
+    //
+main_AutoColor_1_out_1,
+main_AutoColor_1_out_2 = 
+    AutoColor(
+    main_Import_2_out_1,
+    main_AutoColor_1_in_2,
+    main_AutoColor_1_in_3,
+    main_AutoColor_1_in_4,
+    main_AutoColor_1_in_5,
+    main_AutoColor_1_in_6,
+    main_AutoColor_1_in_7,
+    main_AutoColor_1_in_8,
+    main_AutoColor_1_in_9,
+    main_AutoColor_1_in_10
+    ) [instance: 1, cache: 1];
+    // 
+    // node Import[4]: x = 477, y = 79, inputs = 6, label = Import
+    // input[1]: defaulting = 0, visible = 1, type = 32, value = "DX_highwayscoast_papers.dx"
+    // input[3]: defaulting = 0, visible = 1, type = 32, value = "dx"
+    //
+main_Import_4_out_1 = 
+    Import(
+    main_Import_4_in_1,
+    main_Import_4_in_2,
+    main_Import_4_in_3,
+    main_Import_4_in_4,
+    main_Import_4_in_5,
+    main_Import_4_in_6
+    ) [instance: 4, cache: 1];
+    // 
+    // node AutoColor[3]: x = 428, y = 202, inputs = 10, label = AutoColor
+    //
+main_AutoColor_3_out_1,
+main_AutoColor_3_out_2 = 
+    AutoColor(
+    main_Import_4_out_1,
+    main_AutoColor_3_in_2,
+    main_AutoColor_3_in_3,
+    main_AutoColor_3_in_4,
+    main_AutoColor_3_in_5,
+    main_AutoColor_3_in_6,
+    main_AutoColor_3_in_7,
+    main_AutoColor_3_in_8,
+    main_AutoColor_3_in_9,
+    main_AutoColor_3_in_10
+    ) [instance: 3, cache: 1];
+    // 
+    // node Import[6]: x = 327, y = 97, inputs = 6, label = Import
+    // input[1]: defaulting = 0, visible = 1, type = 32, value = "gocad_MR_grid_edges.dx"
+    // input[3]: defaulting = 0, visible = 1, type = 32, value = "dx"
+    //
+main_Import_6_out_1 = 
+    Import(
+    main_Import_6_in_1,
+    main_Import_6_in_2,
+    main_Import_6_in_3,
+    main_Import_6_in_4,
+    main_Import_6_in_5,
+    main_Import_6_in_6
+    ) [instance: 6, cache: 1];
+    // 
+    // node AutoColor[5]: x = 344, y = 275, inputs = 10, label = AutoColor
+    //
+main_AutoColor_5_out_1,
+main_AutoColor_5_out_2 = 
+    AutoColor(
+    main_Import_6_out_1,
+    main_AutoColor_5_in_2,
+    main_AutoColor_5_in_3,
+    main_AutoColor_5_in_4,
+    main_AutoColor_5_in_5,
+    main_AutoColor_5_in_6,
+    main_AutoColor_5_in_7,
+    main_AutoColor_5_in_8,
+    main_AutoColor_5_in_9,
+    main_AutoColor_5_in_10
+    ) [instance: 5, cache: 1];
+    // 
+    // node Collect[1]: x = 167, y = 429, inputs = 4, label = Collect
+    //
+main_Collect_1_out_1 = 
+    Collect(
+    main_AutoColor_1_out_1,
+    main_Collect_1_in_2,
+    main_AmbientLight_1_out_1,
+    main_AutoColor_3_out_1
+    ) [instance: 1, cache: 1];
+    // 
+    // node Image[2]: x = 192, y = 540, inputs = 49, label = Image
+    // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_2"
+    // input[4]: defaulting = 0, visible = 0, type = 1, value = 1
+    // input[5]: defaulting = 0, visible = 0, type = 8, value = [435138 3.85099e+06 -5600]
+    // input[6]: defaulting = 0, visible = 0, type = 8, value = [435138 3.85099e+06 1.89496e+06]
+    // input[7]: defaulting = 0, visible = 0, type = 5, value = 716196.0
+    // input[8]: defaulting = 0, visible = 0, type = 1, value = 566
+    // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.783569
+    // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0]
+    // input[11]: defaulting = 1, visible = 0, type = 5, value = 21.3408
+    // input[12]: defaulting = 0, visible = 0, type = 1, value = 0
+    // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
+    // input[15]: defaulting = 0, visible = 0, type = 32, value = "none"
+    // input[16]: defaulting = 0, visible = 0, type = 32, value = "none"
+    // input[17]: defaulting = 0, visible = 0, type = 1, value = 1
+    // input[18]: defaulting = 0, visible = 0, type = 1, value = 1
+    // input[19]: defaulting = 0, visible = 0, type = 1, value = 1
+    // input[22]: defaulting = 0, visible = 0, type = 32, value = "black"
+    // input[25]: defaulting = 0, visible = 0, type = 32, value = "gocad_MR.tif"
+    // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff"
+    // input[29]: defaulting = 0, visible = 0, type = 3, value = 0
+    // input[33]: defaulting = 0, visible = 0, type = 3, value = 1
+    // input[36]: defaulting = 0, visible = 0, type = 3, value = 1
+    // input[41]: defaulting = 0, visible = 0, type = 32, value = "panzoom"
+    // depth: value = 16
+    // window: position = (0.0000,0.1380), size = 0.5664x0.6341
+    // internal caching: 1
+    //
+main_Image_2_out_1,
+main_Image_2_out_2,
+main_Image_2_out_3 = 
+    Image(
+    main_Image_2_in_1,
+    main_Collect_1_out_1,
+    main_Image_2_in_3,
+    main_Image_2_in_4,
+    main_Image_2_in_5,
+    main_Image_2_in_6,
+    main_Image_2_in_7,
+    main_Image_2_in_8,
+    main_Image_2_in_9,
+    main_Image_2_in_10,
+    main_Image_2_in_11,
+    main_Image_2_in_12,
+    main_Image_2_in_13,
+    main_Image_2_in_14,
+    main_Image_2_in_15,
+    main_Image_2_in_16,
+    main_Image_2_in_17,
+    main_Image_2_in_18,
+    main_Image_2_in_19,
+    main_Image_2_in_20,
+    main_Image_2_in_21,
+    main_Image_2_in_22,
+    main_Image_2_in_23,
+    main_Image_2_in_24,
+    main_Image_2_in_25,
+    main_Image_2_in_26,
+    main_Image_2_in_27,
+    main_Image_2_in_28,
+    main_Image_2_in_29,
+    main_Image_2_in_30,
+    main_Image_2_in_31,
+    main_Image_2_in_32,
+    main_Image_2_in_33,
+    main_Image_2_in_34,
+    main_Image_2_in_35,
+    main_Image_2_in_36,
+    main_Image_2_in_37,
+    main_Image_2_in_38,
+    main_Image_2_in_39,
+    main_Image_2_in_40,
+    main_Image_2_in_41,
+    main_Image_2_in_42,
+    main_Image_2_in_43,
+    main_Image_2_in_44,
+    main_Image_2_in_45,
+    main_Image_2_in_46,
+    main_Image_2_in_47,
+    main_Image_2_in_48,
+    main_Image_2_in_49
+    ) [instance: 2, cache: 1];
+// network: end of macro body
+CacheScene(main_Image_2_in_1, main_Image_2_out_1, main_Image_2_out_2);
+}
+main_AmbientLight_1_in_1 = NULL;
+main_AmbientLight_1_out_1 = NULL;
+main_Import_2_in_1 = "DX_Pvelocity_block_MR.dx";
+main_Import_2_in_2 = NULL;
+main_Import_2_in_3 = "dx";
+main_Import_2_in_4 = NULL;
+main_Import_2_in_5 = NULL;
+main_Import_2_in_6 = NULL;
+main_Import_2_out_1 = NULL;
+main_AutoColor_1_in_2 = NULL;
+main_AutoColor_1_in_3 = NULL;
+main_AutoColor_1_in_4 = NULL;
+main_AutoColor_1_in_5 = NULL;
+main_AutoColor_1_in_6 = NULL;
+main_AutoColor_1_in_7 = NULL;
+main_AutoColor_1_in_8 = NULL;
+main_AutoColor_1_in_9 = NULL;
+main_AutoColor_1_in_10 = NULL;
+main_AutoColor_1_out_1 = NULL;
+main_Import_4_in_1 = "DX_highwayscoast_papers.dx";
+main_Import_4_in_2 = NULL;
+main_Import_4_in_3 = "dx";
+main_Import_4_in_4 = NULL;
+main_Import_4_in_5 = NULL;
+main_Import_4_in_6 = NULL;
+main_Import_4_out_1 = NULL;
+main_AutoColor_3_in_2 = NULL;
+main_AutoColor_3_in_3 = NULL;
+main_AutoColor_3_in_4 = NULL;
+main_AutoColor_3_in_5 = NULL;
+main_AutoColor_3_in_6 = NULL;
+main_AutoColor_3_in_7 = NULL;
+main_AutoColor_3_in_8 = NULL;
+main_AutoColor_3_in_9 = NULL;
+main_AutoColor_3_in_10 = NULL;
+main_AutoColor_3_out_1 = NULL;
+main_Import_6_in_1 = "gocad_MR_grid_edges.dx";
+main_Import_6_in_2 = NULL;
+main_Import_6_in_3 = "dx";
+main_Import_6_in_4 = NULL;
+main_Import_6_in_5 = NULL;
+main_Import_6_in_6 = NULL;
+main_Import_6_out_1 = NULL;
+main_AutoColor_5_in_2 = NULL;
+main_AutoColor_5_in_3 = NULL;
+main_AutoColor_5_in_4 = NULL;
+main_AutoColor_5_in_5 = NULL;
+main_AutoColor_5_in_6 = NULL;
+main_AutoColor_5_in_7 = NULL;
+main_AutoColor_5_in_8 = NULL;
+main_AutoColor_5_in_9 = NULL;
+main_AutoColor_5_in_10 = NULL;
+main_Collect_1_in_2 = NULL;
+main_Collect_1_out_1 = NULL;
+macro Image(
+        id,
+        object,
+        where,
+        useVector,
+        to,
+        from,
+        width,
+        resolution,
+        aspect,
+        up,
+        viewAngle,
+        perspective,
+        options,
+        buttonState = 1,
+        buttonUpApprox = "none",
+        buttonDownApprox = "none",
+        buttonUpDensity = 1,
+        buttonDownDensity = 1,
+        renderMode = 0,
+        defaultCamera,
+        reset,
+        backgroundColor,
+        throttle,
+        RECenable = 0,
+        RECfile,
+        RECformat,
+        RECresolution,
+        RECaspect,
+        AAenable = 0,
+        AAlabels,
+        AAticks,
+        AAcorners,
+        AAframe,
+        AAadjust,
+        AAcursor,
+        AAgrid,
+        AAcolors,
+        AAannotation,
+        AAlabelscale,
+        AAfont,
+        interactionMode,
+        title,
+        AAxTickLocs,
+        AAyTickLocs,
+        AAzTickLocs,
+        AAxTickLabels,
+        AAyTickLabels,
+        AAzTickLabels,
+        webOptions) -> (
+        object,
+        camera,
+        where)
+{
+    ImageMessage(
+        id,
+        backgroundColor,
+        throttle,
+        RECenable,
+        RECfile,
+        RECformat,
+        RECresolution,
+        RECaspect,
+        AAenable,
+        AAlabels,
+        AAticks,
+        AAcorners,
+        AAframe,
+        AAadjust,
+        AAcursor,
+        AAgrid,
+        AAcolors,
+        AAannotation,
+        AAlabelscale,
+        AAfont,
+        AAxTickLocs,
+        AAyTickLocs,
+        AAzTickLocs,
+        AAxTickLabels,
+        AAyTickLabels,
+        AAzTickLabels,
+        interactionMode,
+        title,
+        renderMode,
+        buttonUpApprox,
+        buttonDownApprox,
+        buttonUpDensity,
+        buttonDownDensity) [instance: 1, cache: 1];
+    autoCamera =
+        AutoCamera(
+            object,
+            "front",
+            object,
+            resolution,
+            aspect,
+            [0,1,0],
+            perspective,
+            viewAngle,
+            backgroundColor) [instance: 1, cache: 1];
+    realCamera =
+        Camera(
+            to,
+            from,
+            width,
+            resolution,
+            aspect,
+            up,
+            perspective,
+            viewAngle,
+            backgroundColor) [instance: 1, cache: 1];
+    coloredDefaultCamera = 
+	 UpdateCamera(defaultCamera,
+            background=backgroundColor) [instance: 1, cache: 1];
+    nullDefaultCamera =
+        Inquire(defaultCamera,
+            "is null + 1") [instance: 1, cache: 1];
+    resetCamera =
+        Switch(
+            nullDefaultCamera,
+            coloredDefaultCamera,
+            autoCamera) [instance: 1, cache: 1];
+    resetNull = 
+        Inquire(
+            reset,
+            "is null + 1") [instance: 2, cache: 1];
+    reset =
+        Switch(
+            resetNull,
+            reset,
+            0) [instance: 2, cache: 1];
+    whichCamera =
+        Compute(
+            "($0 != 0 || $1 == 0) ? 1 : 2",
+            reset,
+            useVector) [instance: 1, cache: 1];
+    camera = Switch(
+            whichCamera,
+            resetCamera,
+            realCamera) [instance: 3, cache: 1];
+    AAobject =
+        AutoAxes(
+            object,
+            camera,
+            AAlabels,
+            AAticks,
+            AAcorners,
+            AAframe,
+            AAadjust,
+            AAcursor,
+            AAgrid,
+            AAcolors,
+            AAannotation,
+            AAlabelscale,
+            AAfont,
+            AAxTickLocs,
+            AAyTickLocs,
+            AAzTickLocs,
+            AAxTickLabels,
+            AAyTickLabels,
+            AAzTickLabels) [instance: 1, cache: 1];
+    switchAAenable = Compute("$0+1",
+	     AAenable) [instance: 2, cache: 1];
+    object = Switch(
+	     switchAAenable,
+	     object,
+	     AAobject) [instance:4, cache: 1];
+    SWapproximation_options =
+        Switch(
+            buttonState,
+            buttonUpApprox,
+            buttonDownApprox) [instance: 5, cache: 1];
+    SWdensity_options =
+        Switch(
+            buttonState,
+            buttonUpDensity,
+            buttonDownDensity) [instance: 6, cache: 1];
+    HWapproximation_options =
+        Format(
+            "%s,%s",
+            buttonDownApprox,
+            buttonUpApprox) [instance: 1, cache: 1];
+    HWdensity_options =
+        Format(
+            "%d,%d",
+            buttonDownDensity,
+            buttonUpDensity) [instance: 2, cache: 1];
+    switchRenderMode = Compute(
+	     "$0+1",
+	     renderMode) [instance: 3, cache: 1];
+    approximation_options = Switch(
+	     switchRenderMode,
+            SWapproximation_options,
+	     HWapproximation_options) [instance: 7, cache: 1];
+    density_options = Switch(
+	     switchRenderMode,
+            SWdensity_options,
+            HWdensity_options) [instance: 8, cache: 1];
+    renderModeString = Switch(
+            switchRenderMode,
+            "software",
+            "hardware")[instance: 9, cache: 1];
+    object_tag = Inquire(
+            object,
+            "object tag")[instance: 3, cache: 1];
+    annoted_object =
+        Options(
+            object,
+            "send boxes",
+            0,
+            "cache",
+            1,
+            "object tag",
+            object_tag,
+            "ddcamera",
+            whichCamera,
+            "rendering approximation",
+            approximation_options,
+            "render every",
+            density_options,
+            "button state",
+            buttonState,
+            "rendering mode",
+            renderModeString) [instance: 1, cache: 1];
+    RECresNull =
+        Inquire(
+            RECresolution,
+            "is null + 1") [instance: 4, cache: 1];
+    ImageResolution =
+        Inquire(
+            camera,
+            "camera resolution") [instance: 5, cache: 1];
+    RECresolution =
+        Switch(
+            RECresNull,
+            RECresolution,
+            ImageResolution) [instance: 10, cache: 1];
+    RECaspectNull =
+        Inquire(
+            RECaspect,
+            "is null + 1") [instance: 6, cache: 1];
+    ImageAspect =
+        Inquire(
+            camera,
+            "camera aspect") [instance: 7, cache: 1];
+    RECaspect =
+        Switch(
+            RECaspectNull,
+            RECaspect,
+            ImageAspect) [instance: 11, cache: 1];
+    switchRECenable = Compute(
+          "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
+            RECenable,
+            switchRenderMode,
+            RECresolution,
+            ImageResolution,
+            RECaspect,
+	     ImageAspect) [instance: 4, cache: 1];
+    NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
+    Display(
+        NoRECobject,
+        camera,
+        where,
+        throttle) [instance: 1, cache: 1];
+    image =
+        Render(
+            RECNoRerenderObject,
+            camera) [instance: 1, cache: 1];
+    Display(
+        image,
+        NULL,
+        where,
+        throttle) [instance: 2, cache: 1];
+    WriteImage(
+        image,
+        RECfile,
+        RECformat) [instance: 1, cache: 1];
+    rec_where = Display(
+        RECNoRerHW,
+        camera,
+        where,
+        throttle) [instance: 1, cache: 0];
+    rec_image = ReadImageWindow(
+        rec_where) [instance: 1, cache: 1];
+    WriteImage(
+        rec_image,
+        RECfile,
+        RECformat) [instance: 1, cache: 1];
+    RECupdateCamera =
+	UpdateCamera(
+	    camera,
+	    resolution=RECresolution,
+	    aspect=RECaspect) [instance: 2, cache: 1];
+    Display(
+        RECRerenderObject,
+        camera,
+        where,
+        throttle) [instance: 1, cache: 1];
+    RECRerenderObject =
+	ScaleScreen(
+	    RECRerenderObject,
+	    NULL,
+	    RECresolution,
+	    camera) [instance: 1, cache: 1];
+    image =
+        Render(
+            RECRerenderObject,
+            RECupdateCamera) [instance: 2, cache: 1];
+    WriteImage(
+        image,
+        RECfile,
+        RECformat) [instance: 2, cache: 1];
+}
+main_Image_2_in_1 = "Image_2";
+main_Image_2_in_3 = "X16,,";
+main_Image_2_in_4 = 1;
+main_Image_2_in_5 = [435138 3.85099e+06 -5600];
+main_Image_2_in_6 = [435138 3.85099e+06 1.89496e+06];
+main_Image_2_in_7 = 716196.0;
+main_Image_2_in_8 = 566;
+main_Image_2_in_9 = 0.783569;
+main_Image_2_in_10 = [0 1 0];
+main_Image_2_in_11 = NULL;
+main_Image_2_in_12 = 0;
+main_Image_2_in_13 = NULL;
+main_Image_2_in_14 = 1;
+main_Image_2_in_15 = "none";
+main_Image_2_in_16 = "none";
+main_Image_2_in_17 = 1;
+main_Image_2_in_18 = 1;
+main_Image_2_in_19 = 1;
+main_Image_2_in_20 = NULL;
+main_Image_2_in_21 = NULL;
+main_Image_2_in_22 = "black";
+main_Image_2_in_23 = NULL;
+main_Image_2_in_25 = "gocad_MR.tif";
+main_Image_2_in_26 = "tiff";
+main_Image_2_in_27 = NULL;
+main_Image_2_in_28 = NULL;
+main_Image_2_in_29 = 0;
+main_Image_2_in_30 = NULL;
+main_Image_2_in_31 = NULL;
+main_Image_2_in_32 = NULL;
+main_Image_2_in_33 = 1;
+main_Image_2_in_34 = NULL;
+main_Image_2_in_35 = NULL;
+main_Image_2_in_36 = 1;
+main_Image_2_in_37 = NULL;
+main_Image_2_in_38 = NULL;
+main_Image_2_in_39 = NULL;
+main_Image_2_in_40 = NULL;
+main_Image_2_in_41 = "panzoom";
+main_Image_2_in_42 = NULL;
+main_Image_2_in_43 = NULL;
+main_Image_2_in_44 = NULL;
+main_Image_2_in_45 = NULL;
+main_Image_2_in_46 = NULL;
+main_Image_2_in_47 = NULL;
+main_Image_2_in_48 = NULL;
+main_Image_2_in_49 = NULL;
+Executive("product version 4 2 0");
+$sync
+main();



More information about the CIG-COMMITS mailing list