File: isowat.tcl

package info (click to toggle)
vis5d 4.3-5
  • links: PTS
  • area: main
  • in suites: slink
  • size: 16,856 kB
  • ctags: 6,127
  • sloc: ansic: 66,158; fortran: 4,470; makefile: 1,683; tcl: 414; sh: 69
file content (14 lines) | stat: -rw-r--r-- 575 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
# isowat.tcl
# Generates CWAT and RWAT isosurfaces from LAMPS.v5d
 
vis5d_set_isosurface $ctx "CWAT" 0.2
vis5d_make_isosurface $ctx VIS5D_ALL_TIMES "CWAT" 0
vis5d_set_isosurface $ctx "RWAT" 1.0
vis5d_make_isosurface $ctx VIS5D_ALL_TIMES "RWAT" 0
vis5d_set_color $ctx VIS5D_ISORURF "CWAT" 0.0 0.0 1.0 1.0
vis5d_set_color $ctx VIS5D_ISORURF "RWAT" 1.0 0.0 0.0 1.0
vis5d_graphics_mode $ctx VIS5D_MAP VIS5D_ON
vis5d_enable_graphics $ctx VIS5D_ISOSURF "CWAT" VIS5D_ON
vis5d_enable_graphics $ctx VIS5D_ISOSURF "RWAT" VIS5D_ON
vis5d_set_topo_color_var $ctx -1
vis5d_draw_frame $ctx