;<<<<< ACIS Journal   Copyright (c) by Spatial Corp. >>>>>
;      Generated on ACIS R20.0.3
;      Time Stamp: Mon Jun 07 23:22:15 2010

(option:set "match_paren" #f)

;(view:delete)
;(view:dl 0 0 500 500)
;(view:edges #t)
;(view:polygonoffset #t)
;(view:vertices #t)
;+-----------------  api_solid_block ---------------+
; -------------------------------------------------------------------------
; Options not set to default value
; P.S. Some other options may be already set in previous snapshots
(option:set "annotations" #f)
(define resabs 1.000000e-006)
(define resnor 1.000000e-010)
(define resfit 1.000000e-003)
(define resmch 1.000000e-011)
(env:set-tolerance resabs resnor resfit resmch)
; -------------------------------------------------------------------------
(part:clear)
(define pt1 (position 0.0 0.0 0.0 ))
(define pt2 (position 50.0 50.0 50.0 ))
(define block1 (solid:block pt1 pt2 ))
;(iso)
;(zoom-all)
;+-----------------  api_solid_block ---------------+
; -------------------------------------------------------------------------
; Options not set to default value
; P.S. Some other options may be already set in previous snapshots
(option:set "annotations" #f)
(define resabs 1.000000e-006)
(define resnor 1.000000e-010)
(define resfit 1.000000e-003)
(define resmch 1.000000e-011)
(env:set-tolerance resabs resnor resfit resmch)
; -------------------------------------------------------------------------
(part:clear)
(define pt1 (position 50.0 0.0 0.0 ))
(define pt2 (position 100.0 50.0 50.0 ))
(define block1 (solid:block pt1 pt2 ))
;(iso)
;(zoom-all)
;+-----------------  J_api_va_generate_tet_mesh ---------------+
; -------------------------------------------------------------------------
; Options not set to default value
; P.S. Some other options may be already set in previous snapshots
(option:set "annotations" #f)
(define resabs 1.000000e-006)
(define resnor 1.000000e-010)
(define resfit 1.000000e-003)
(define resmch 1.000000e-011)
(env:set-tolerance resabs resnor resfit resmch)
; -------------------------------------------------------------------------
(part:clear)
(part:load "ACISJour_0_2.sat")
(define e_list (list 
(list-ref (part:entities) 0)
(list-ref (part:entities) 1)
))
(define surface_mesh_options (eda:surface-mesh-options 'edgelength 20.000000 'minedgelength 0.500000 'growthrate 1.500000 'spanangle 30.000000 'order 2 'meshshape 'tri))
(define tet_mesh (eda:generate-tet-mesh e_list surface_mesh_options ))
;(iso)
;(zoom-all)
;<<<<< ACIS Journal Completed