changes!

andrescodas · Feb 1, 2010 · 21a90f7 · 21a90f7
1 parent 361eb42
commit 21a90f7
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/positionToFile.tcl b/positionToFile.tcl
@@ -14,6 +14,19 @@ proc position2File { index fileToWrite position } {
 
 }
 
+proc tagPosition2File { index fileToWrite position } {
+
+	upvar $position pos
+
+	set filePointer [open $fileToWrite a]
+
+	puts $filePointer "$index $pos(x) $pos(y)"
+
+	close $filePointer
+
+}
+
+
 proc covariance2File { index fileToWrite covariance } {
 
 	upvar $covariance cov