Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Moved the tcl vtk particle output to its own file.

  • Loading branch information...
commit 52c3abfaace79d56f2b69e74543ff31b0acb4d9d 1 parent 07a9bb9
Georg Rempfer rempferg authored
Showing with 54 additions and 26 deletions.
  1. +1 −0  scripts/init.tcl
  2. +0 −26 scripts/vtf.tcl
  3. +53 −0 scripts/vtk.tcl
1  scripts/init.tcl
View
@@ -104,6 +104,7 @@ source polymer.tcl
source statistics.tcl
source ABHmath.tcl
source vtf.tcl
+source vtk.tcl
source dielectrics.tcl
# make available readline if Espresso is interactive
26 scripts/vtf.tcl
View
@@ -287,32 +287,6 @@ proc writevcf { file args } {
if { ! $short } then { puts $file "" }
}
-#dumps particle positions into a file so that paraview can visualize them
-proc writevtk {filename {type "all"}} {
- set max_pid [setmd max_part]
- set n 0
- set fp [open $filename "w"]
-
- for { set pid 0 } { $pid <= $max_pid } { incr pid } {
- if {[part $pid print type] == $type || ([part $pid print type] != "na" && $type == "all")} then {
- incr n
- }
- }
-
- puts $fp "# vtk DataFile Version 2.0\nparticles\nASCII\nDATASET UNSTRUCTURED_GRID\nPOINTS $n floats"
-
- for { set pid 0 } { $pid <= $max_pid } { incr pid } {
- if {[part $pid print type] == $type || ([part $pid print type] != "na" && $type == "all")} then {
- set xpos [expr [lindex [part $pid print folded_pos] 0]]
- set ypos [expr [lindex [part $pid print folded_pos] 1]]
- set zpos [expr [lindex [part $pid print folded_pos] 2]]
- puts $fp "$xpos $ypos $zpos"
- }
- }
-
- close $fp
-}
-
# get the VMD pid of a given ESPResSo-PID
proc vtfpid { pid } {
global vtf_pid
53 scripts/vtk.tcl
View
@@ -0,0 +1,53 @@
+#
+# Copyright (C) 2012 The ESPResSo project
+# Copyright (C) 2006,2007,2008,2009,2010,2011 Olaf Lenz
+#
+# This file is part of ESPResSo.
+#
+# ESPResSo is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# ESPResSo is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+#
+#############################################################
+# #
+# vtk.tcl #
+# ======= #
+# #
+# Functions that allow writing VTK files. #
+# #
+#############################################################
+
+#dumps particle positions into a file so that paraview can visualize them
+proc writevtk {filename {type "all"}} {
+ set max_pid [setmd max_part]
+ set n 0
+ set fp [open $filename "w"]
+
+ for { set pid 0 } { $pid <= $max_pid } { incr pid } {
+ if {[part $pid print type] == $type || ([part $pid print type] != "na" && $type == "all")} then {
+ incr n
+ }
+ }
+
+ puts $fp "# vtk DataFile Version 2.0\nparticles\nASCII\nDATASET UNSTRUCTURED_GRID\nPOINTS $n floats"
+
+ for { set pid 0 } { $pid <= $max_pid } { incr pid } {
+ if {[part $pid print type] == $type || ([part $pid print type] != "na" && $type == "all")} then {
+ set xpos [expr [lindex [part $pid print folded_pos] 0]]
+ set ypos [expr [lindex [part $pid print folded_pos] 1]]
+ set zpos [expr [lindex [part $pid print folded_pos] 2]]
+ puts $fp "$xpos $ypos $zpos"
+ }
+ }
+
+ close $fp
+}
Please sign in to comment.
Something went wrong with that request. Please try again.