StFramePZLdisplay.tcl

# a window to plot the nodal displacements versus load

if {$displayMode == "displayON"} {

recorder plot StFramePZL1.out Node4Xdisp 10 400 300 300 -columns 3 1

# a window showing the displaced shape

recorder display g3 10 10 300 300 -wipe

prp 288.0 150.0 100.0

vrp 288.0 150.0 0

vup 0 1 0

vpn 0 0 1

viewWindow -400 400 -400 400

plane 0 150

port -1 1 -1 1

projection 0

fill 1

display 2 0 10

}