From a1fb215b39535805aa19608185d5e52c0f524b42 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Sun, 18 Oct 2009 19:53:53 +0000 Subject: bye gridflow 0.9.4 svn path=/trunk/; revision=12610 --- externals/gridflow/bin/pdnonegative | 66 ------------------------------------- 1 file changed, 66 deletions(-) delete mode 100755 externals/gridflow/bin/pdnonegative (limited to 'externals/gridflow/bin/pdnonegative') diff --git a/externals/gridflow/bin/pdnonegative b/externals/gridflow/bin/pdnonegative deleted file mode 100755 index d707f568..00000000 --- a/externals/gridflow/bin/pdnonegative +++ /dev/null @@ -1,66 +0,0 @@ -#!/usr/bin/tclsh - -set argh0 [file normalize [file join [pwd] $argv0]] -source [file dirname $argh0]/pd-tools.tcl - -set toplefts {} - -# for the recursion to work properly, restore should be checked before #N, and the check -# for #N shouldn't do "continue", as well as other tricky index stuff. -proc find_top_left {lines i} { - global filename toplefts - set toplefts_i [llength $toplefts] - lappend toplefts [list patate poil] ;# temporary dummy value so that subpatches are represented in the correct order - set j $i - set xmin +9999; set ymin +9999 - set xmax -9999; set ymax -9999 - while {$i < [llength $lines]} { - set list [split [lindex $lines $i] " "] - if {[string compare [lindex $list 1] "connect"]==0} {incr i; continue} - if {[string compare [lindex $list 1] "restore"]==0} {break} - if {[string compare [lindex $list 0] "#N"]==0} {set i [find_top_left $lines [expr $i+1]]} - set x [lindex $list 2]; if {$xmin > $x} {set xmin $x}; if {$xmax < $x} {set xmax $x} - set y [lindex $list 3]; if {$ymin > $y} {set ymin $y}; if {$ymax < $y} {set ymax $y} - incr i - } - puts [format "filename=%-32s patch at lines %4d thru %4d has xmin=%d ymin=%d xmax=%d ymax=%d" $filename $j $i $xmin $ymin $xmax $ymax] - lset toplefts $toplefts_i [list $xmin $ymin] - return $i -} - -# somewhat copy-pasted from the above, sorry. -proc move_objects {lines i} { - global toplefts fout - set xymin [lindex $toplefts 0] - set xmin [lindex $xymin 0]; if {$xmin > 0} {set xmin 0} - set ymin [lindex $xymin 1]; if {$ymin > 0} {set ymin 0} - set toplefts [lrange $toplefts 1 end] - while {$i < [llength $lines]} { - set list [split [lindex $lines $i] " "] - if {[string compare [lindex $list 1] "connect"]==0} {puts $fout [pd_pickle $list]; incr i; continue} - if {[string compare [lindex $list 1] "restore"]==0} {break} - if {[string compare [lindex $list 0] "#N"]==0} { - puts $fout [pd_pickle $list] - set i [move_objects $lines [expr $i+1]] - set list [split [lindex $lines $i] " "] - } - set x [expr [lindex $list 2]-$xmin] - set y [expr [lindex $list 3]-$ymin] - set list [lreplace $list 2 3 $x $y] - puts $fout [pd_pickle $list] - incr i - } - return $i -} - -foreach filename $argv { - set lines [pd_read_file $filename] - find_top_left $lines 1 - #continue - set fout [open $filename.new w] - puts $fout [pd_pickle [lindex $lines 0]] - move_objects $lines 1 - close $fout - exec mv $filename $filename.old - exec mv $filename.new $filename -} -- cgit v1.2.1