home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_geomview.idb / usr / freeware / lib / geomview / doc / example4.tcl.z / example4.tcl
Encoding:
Tcl/Tk script  |  1999-01-26  |  3.5 KB  |  136 lines
  1. #! /usr/local/bin/wish4.0
  2.  
  3. proc readsomething {} {
  4.   if {[gets stdin line] < 0} {
  5.         puts stderr "EOF on input, exiting..."
  6.         exit
  7.   }
  8.   # Translate geomview's lisp-style ()'s into tcl-friendly {} braces.
  9.   regsub -all {\(} $line "\{" line
  10.   regsub -all {\)} $line "\}" line
  11.   # Strip outermost set of braces
  12.   set stuff [lindex $line 0]
  13.   # invoke handler for whichever command we got
  14.   switch [lindex $stuff 0] {
  15.         pick     {handlepick $stuff}
  16.         rawevent {handlekey $stuff}
  17.   }
  18. }
  19.  
  20. # Having asked for notification of these raw events, we report when
  21. # the user pressed these keys in the geomview graphics windows.
  22. proc handlekey {event} {
  23.   global lastincr
  24.   switch [lindex $event 1] {
  25.     32 {msg "Pressed space bar"}
  26.      8 {msg "Pressed backspace key"}    # Backspace: decrement it.
  27.   }
  28. }
  29.  
  30. # Fields of a "pick" response, from geomview manual:
  31. #     (pick COORDSYS GEOMID G V E F P VI EI FI)
  32. #          The pick command is executed internally in response to pick
  33. #          events (right mouse double click).
  34. #
  35. #          COORDSYS = coordinate system in which coordinates of the following
  36. #              arguments are specified.   This can be:
  37. #               world: world coord sys
  38. #               self:  coord sys of the picked geom (GEOMID)
  39. #               primitive: coord sys of the actual primitive within
  40. #                   the picked geom where the pick occurred.
  41. #          GEOMID = id of picked geom
  42. #          G = picked point (actual intersection of pick ray with object)
  43. #          V = picked vertex, if any
  44. #          E = picked edge, if any
  45. #          F = picked face
  46. #          P = path to picked primitive [0 or more]
  47. #          VI = index of picked vertex in primitive
  48. #          EI = list of indices of endpoints of picked edge, if any
  49. #          FI = index of picked face
  50.  
  51. # User picked something.
  52. # 
  53. proc handlepick {pick} {
  54.   global nameof selvert seledge order
  55.   set obj [lindex $pick 2]
  56.   set xyzw [lindex $pick 3]
  57.   set fv [lindex $pick 6]
  58.   set vi [lindex $pick 8] 
  59.   set ei [lindex $pick 9] 
  60.   set fi [lindex $pick 10]
  61.  
  62.   # Report result.
  63.   set w [lindex $xyzw 3]
  64.   set x [expr [lindex $xyzw 0]/$w]
  65.   set y [expr [lindex $xyzw 1]/$w]
  66.   set z [expr [lindex $xyzw 2]/$w]
  67.   set s "$x $y $z "
  68.   if {$vi >= 0} {
  69.         set s "$s  vertex #$vi"
  70.   }
  71.   if {$ei != {}} {
  72.         set s "$s  edge [lindex $ei 0]-[lindex $ei 1]"
  73.   }
  74.   if {$fi != -1} {
  75.         set s "$s  face #$fi ([expr [llength $fv]/4]-gon)"
  76.   }
  77.   msg $s
  78. }
  79.  
  80.  
  81. proc loadobject {fname} {
  82.   if {$fname != ""} {
  83.         puts "(geometry thing < $fname)"
  84.         # Be sure to flush output to ensure geomview receives this now!
  85.         flush stdout
  86.   }
  87. }
  88.  
  89. #
  90. # Display a message on the control panel
  91. #
  92. proc msg {str} {
  93.   global msgtext
  94.   puts stderr $str
  95.   set msgtext $str
  96.   update
  97. }
  98.  
  99.  
  100. # Build "user interface"
  101. # This doesn't need to be an entry box, but we want to be able to
  102. # use X selection to copy text from it.
  103. entry .msg -textvariable msgtext -width 30
  104. pack .msg -fill x -expand true
  105.  
  106. frame .f
  107. label .f.l -text "File to load:"
  108. pack .f.l -side left
  109. entry .f.ent -textvariable fname
  110. pack .f.ent -side left -expand true -fill x
  111. pack .f
  112.  
  113. bind .f.ent <Return> { loadobject $fname }
  114.  
  115. # End UI definition.
  116.  
  117.  
  118. # Call "readsomething" when data arrives from geomview.
  119.  
  120. fileevent stdin readable {readsomething}
  121.  
  122. # Geomview initialization
  123.  
  124. puts {
  125.         (interest (pick primitive))
  126.         (interest (rawevent 32))
  127.         (interest (rawevent 8))
  128.         (geometry thing < hdodec.off)
  129.         (normalization world none)
  130. }
  131. flush stdout
  132.  
  133. wm title . {Sample external module}
  134.  
  135. msg "Click right mouse in graphics window"
  136.