File: clone.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-- 567 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
# this clones a variable and generates two isosurfaces

vis5d_make_clone_variable 0 "T'" "T"
vis5d_set_isosurface 0 "T" 283.0
vis5d_make_isosurface 0 VIS5D_ALL_TIMES "T" 0
vis5d_set_isosurface 0 "T'" 293.0
vis5d_make_isosurface 0 VIS5D_ALL_TIMES "T'" 0
vis5d_set_color 0 VIS5D_ISOSURF "T" 0.753 1.000 0.753 1.000
vis5d_set_color 0 VIS5D_ISOSURF "T'" 1.000 1.000 1.000 1.000
vis5d_graphics_mode 0 VIS5D_MAP VIS5D_ON
vis5d_enable_graphics 0 VIS5D_ISOSURF "T" VIS5D_ON
vis5d_enable_graphics 0 VIS5D_ISOSURF "T'" VIS5D_ON
vis5d_set_topo_color_var 0 -1
vis5d_draw_frame 0