aboutsummaryrefslogtreecommitdiff
path: root/vendor/x11iraf/obmsh/zz
diff options
context:
space:
mode:
Diffstat (limited to 'vendor/x11iraf/obmsh/zz')
-rwxr-xr-xvendor/x11iraf/obmsh/zz334
1 files changed, 334 insertions, 0 deletions
diff --git a/vendor/x11iraf/obmsh/zz b/vendor/x11iraf/obmsh/zz
new file mode 100755
index 00000000..9419c0c5
--- /dev/null
+++ b/vendor/x11iraf/obmsh/zz
@@ -0,0 +1,334 @@
+#!/usr/local/bin/obmsh
+
+# PUZZLE.GUI -- A simple number re-ordering puzzle, kinda like the one my
+# Dad would make me play on long car trips to shut me up....
+#
+# History: 4/23/94 - written (MJF)
+# 4/25/94 - Added timer and move counter labels
+
+reset-server
+appInitialize puzzle Puzzle {
+ Puzzle*objects:\
+ toplevel Paned puzzle\
+ puzzle Form tForm\
+ tForm Label timerLabel\
+ tForm Toggle pauseButton\
+ tForm Label movesLabel\
+\
+ puzzle Form pForm\
+ pForm Command pos11\
+ pForm Command pos12\
+ pForm Command pos13\
+ pForm Command pos14\
+ pForm Command pos15\
+ pForm Command pos21\
+ pForm Command pos22\
+ pForm Command pos23\
+ pForm Command pos24\
+ pForm Command pos25\
+ pForm Command pos31\
+ pForm Command pos32\
+ pForm Command pos33\
+ pForm Command pos34\
+ pForm Command pos35\
+ pForm Command pos41\
+ pForm Command pos42\
+ pForm Command pos43\
+ pForm Command pos44\
+ pForm Command pos45\
+ pForm Command pos51\
+ pForm Command pos52\
+ pForm Command pos53\
+ pForm Command pos54\
+ pForm Command pos55\
+\
+ puzzle Form pCmd\
+ pCmd Command newButton\
+ pCmd Command quitButton
+
+ *tForm*background: bisque3
+ *tForm*showGrip: false
+ *tForm*resizeable: false
+ *tForm*Label.background: black
+ *tForm*Label.foreground: red
+ *tForm*Label.shadowWidth: 0
+ *tForm*Label.borderWidth: 0
+ *tForm*Command.background: grey80
+ *tForm*Toggle.background: grey80
+ *pForm*background: bisque3
+ *pForm*showGrip: false
+ *pForm*resizeable: false
+ *pForm*Command.background: grey80
+ *pCmd*background: bisque3
+ *pCmd*Command.background: grey80
+ *pCmd*resizeable: false
+
+ *timerLabel.label: 0000
+ *timerLabel.height: 30
+ *timerLabel*font: *times-bold-r*24*
+ *pauseButton.label: Pause
+ *pauseButton.height: 30
+ *pauseButton.fromHoriz: timerLabel
+ *pauseButton.horizDistance: 10
+ *pauseButton*font: *times-bold-r*18*
+ *movesLabel.label: 0000
+ *movesLabel.height: 30
+ *movesLabel*font: *times-bold-r*24*
+ *movesLabel.fromHoriz: pauseButton
+ *movesLabel.horizDistance: 10
+
+ *pForm*width: 50
+ *pForm*height: 50
+ *pForm*horizDistance: 0
+ *pForm*vertDistance: 0
+ *pForm*Label.background: bisque3
+ *pForm*Label.shadowWidth: 0
+ *pForm*Label.borderWidth: 0
+ *pForm*font: *times-bold-r*24*
+
+ *pos12.fromHoriz: pos11
+ *pos13.fromHoriz: pos12
+ *pos14.fromHoriz: pos13
+ *pos15.fromHoriz: pos14
+
+ *pos11.vertDistance: 2
+ *pos12.vertDistance: 2
+ *pos13.vertDistance: 2
+ *pos14.vertDistance: 2
+ *pos15.vertDistance: 2
+
+ *pos21.fromVert: pos11
+ *pos21.horizDistance: 1
+ *pos22.fromVert: pos12
+ *pos22.fromHoriz: pos21
+ *pos23.fromVert: pos13
+ *pos23.fromHoriz: pos22
+ *pos24.fromVert: pos14
+ *pos24.fromHoriz: pos23
+ *pos25.fromVert: pos15
+ *pos25.fromHoriz: pos24
+
+ *pos31.fromVert: pos21
+ *pos31.horizDistance: 1
+ *pos32.fromHoriz: pos31
+ *pos32.fromVert: pos22
+ *pos33.fromVert: pos23
+ *pos33.fromHoriz: pos32
+ *pos34.fromVert: pos24
+ *pos34.fromHoriz: pos33
+ *pos35.fromVert: pos25
+ *pos35.fromHoriz: pos34
+
+ *pos41.fromVert: pos31
+ *pos41.horizDistance: 1
+ *pos42.fromHoriz: pos41
+ *pos42.fromVert: pos32
+ *pos43.fromVert: pos33
+ *pos43.fromHoriz: pos42
+ *pos44.fromVert: pos34
+ *pos44.fromHoriz: pos43
+ *pos45.fromVert: pos35
+ *pos45.fromHoriz: pos44
+
+ *pos51.fromVert: pos41
+ *pos51.horizDistance: 1
+ *pos52.fromHoriz: pos51
+ *pos52.fromVert: pos42
+ *pos53.fromVert: pos43
+ *pos53.fromHoriz: pos52
+ *pos54.fromVert: pos44
+ *pos54.fromHoriz: pos53
+ *pos55.fromVert: pos45
+ *pos55.fromHoriz: pos54
+
+ *pCmd*Command.height: 30
+ *pCmd*Command.width: 50
+ *pCmd*Command.vertDistance: 12
+ *pCmd*Command*font: *times-bold-r*18*
+ *newButton.label: New Game
+ *quitButton.fromHoriz: newButton
+ *quitButton.vertDistance: 5
+ *quitButton.label: Quit
+}
+
+
+# Crank 'er up...
+createObjects
+activate
+
+# Should be a better way to randomize the start.
+set space [ expr ( [pid] % 23 ) ]
+set random "17 8 13 19 22 21 12 18 15 9 23 5 3 20 6 4 1 7 24 10 14 16 2 11"
+
+print [format "test %05d" 123456]
+
+# Quit the game.
+proc Quit args {
+ global timerId
+
+ if {[send pauseButton get state] == 0} {
+ deleteTimedCallback $timerId
+ }
+ send client gkey q
+ deactivate unmap
+} ; send quitButton addCallback Quit
+
+
+# Initialize the game board.
+proc Init args {
+ global space random
+
+ set k $space
+ set ispace [ expr ($space / 5 + 1) ]
+ set jspace [ expr ($space % 5 + 1) ]
+
+ for { set i 1 } { $i<=5 } { incr i } {
+ for { set j 1 } { $j<=5 } { incr j } {
+ set val [lindex $random $k]
+ if {[expr [expr $i == $ispace] && [expr $j == $jspace]]} {
+ send pForm unmanage pos$i$j
+ } else {
+ send pos$i$j "set label $val"
+ set k [ expr ($k == 23) ? 0 : [expr $k+1] ]
+ }
+ }
+ }
+} ; Init
+
+
+# Define the game buttons and positions.
+set buttons { pos11 pos12 pos13 pos14 pos15
+ pos21 pos22 pos23 pos24 pos25
+ pos31 pos32 pos33 pos34 pos35
+ pos41 pos42 pos43 pos44 pos45
+ pos51 pos52 pos53 pos54 pos55
+}
+
+set indx 0
+for { set i 1 } { $i<=5 } { incr i } {
+ for { set j 1 } { $j<=5 } { incr j } {
+ set bpos(pos$i$j) "$i $j $indx"
+ incr indx
+ }
+}
+
+# Take action when hitting a button.
+proc Move { widget args } {
+ global space buttons bpos
+
+ # If we've paused the game then don't move anything.
+ if {[send pauseButton get state] == 1} {
+ return
+ }
+
+ # Get the position of the empty space.
+ set ispace [ expr ($space / 5 + 1) ]
+ set jspace [ expr ($space % 5 + 1) ]
+
+ # Get the position of the current widget.
+ set i [ lindex $bpos($widget) 0]
+ set j [ lindex $bpos($widget) 1]
+
+ # Now see if the current widget is next to the empty space, but not on
+ # a corner.
+ set xdiff [expr abs ([expr $ispace-$i])]
+ set ydiff [expr abs ([expr $jspace-$j])]
+ if { ! [expr [expr $xdiff == 1] && [expr $ydiff == 1]]} {
+ if {[expr [expr $xdiff < 2] && [expr $ydiff < 2]]} {
+
+ # Manage the empty space.
+ manage_space $space
+
+ # Set space label to current label.
+ set lab [send $widget get label]
+ send [lindex $buttons $space] "set label $lab"
+
+ # Unmanage current space.
+ unmanage_space [lindex $bpos($widget) 2]
+ set space [lindex $bpos($widget) 2]
+
+ # Update the number of times we've made a move.
+ update_nmoves
+ }
+ }
+
+} ; foreach item $buttons { send $item addCallback Move }
+
+
+# Start a new game.
+proc New_Game args {
+ global space time nmoves timerId
+
+ # If we've paused the game then don't do anything.
+ if {[send pauseButton get state] == 1} {
+ return
+ }
+ manage_space $space
+ new_space
+ Init
+ set nmoves -1 ; update_nmoves
+ set time 0
+ deleteTimedCallback $timerId
+ send timerLabel set label 0000
+ set timerId [postTimedCallback timer 1000]
+} ; send newButton addCallback New_Game
+
+
+# Get a new empty space.
+proc new_space args {
+ global space random
+ set space [lindex $random [ expr ($space >= 23) ? 0 : $space ] ]
+ if {$space == 24} { set space 5 }
+}
+
+
+# Show a puzzle piece.
+proc manage_space { space args } {
+ set ispace [ expr ($space / 5 + 1) ]
+ set jspace [ expr ($space % 5 + 1) ]
+ send pForm manage pos$ispace$jspace
+}
+
+
+# Remove a puzzle piece.
+proc unmanage_space { space args } {
+ set ispace [ expr ($space / 5 + 1) ]
+ set jspace [ expr ($space % 5 + 1) ]
+ send pForm unmanage pos$ispace$jspace
+}
+
+
+# Install a timer so we can keep score of our best times.
+set timerId 0
+set time 0
+proc timer args {
+ global timerId time
+
+ send timerLabel set label [ format "%04d" $time ]
+ incr time
+ set timerId [postTimedCallback timer 1000]
+}; set timerId [postTimedCallback timer 1000]
+
+
+# Count the number of times we move a piece.
+set nmoves 0
+proc update_nmoves args {
+ global nmoves
+
+ incr nmoves
+ send movesLabel set label [ format "%04d" $nmoves ]
+}
+
+
+# Define a 'pause' command in case the boss walks in...
+proc pause_toggle args {
+ global timerId
+
+ if {[send pauseButton get state] == 0} {
+ set timerId [postTimedCallback timer 1000]
+ } else {
+ deleteTimedCallback $timerId
+ }
+} ; send pauseButton addCallback pause_toggle
+
+
generated by cgit (git 2.34.1) at 2025-09-21 07:35:56 -0400