if {"$SSS_PROG"!="ising"} {tk_dialog .temp {} "This preset is meant for the program 'ising', and cannot be loaded by '$SSS_PROG'" {} 0 "Ok"; return}
set storedlattice 111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111011111111111111011110111111111001111111111111011110111111110001111111111111011110111101110011111111111111011100111111110011111111111111011101111111100011111111111111000001111011100011111111111110011101110011100111111111111110111101110111100111111111111100111011110111101111111111111101111011110111101111111111111111111111111111111111111111111111111111111111001111111111111111111111111111001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
LASSPselection_set .graphtype "magnetization"
LASSPselection_set .init_cond "M=1"
LASSPscale2_configure .t -scrollinc .1
LASSPscale2_configure .t -scrollmin 0
LASSPscale2_configure .t -scrollmax 10
LASSPscale2_configure .t -scrolltype linear
LASSPscale2_set -nocommand .t 1.9
LASSPscale2_configure .h -scrollinc .1
LASSPscale2_configure .h -scrollmin -5
LASSPscale2_configure .h -scrollmax 5
LASSPscale2_configure .h -scrolltype linear
LASSPscale2_set -nocommand .h -0.1
LASSPscale2_configure .n -scrollinc 1
LASSPscale2_configure .n -scrollmin 1
LASSPscale2_configure .n -scrollmax 10000
LASSPscale2_configure .n -scrolltype log
LASSPscale2_set -nocommand .n 1.00e+04
LASSPscale2_configure .speed -scrollinc 1
LASSPscale2_configure .speed -scrollmin 0
LASSPscale2_configure .speed -scrollmax 100
LASSPscale2_configure .speed -scrolltype linear
LASSPscale2_set -nocommand .speed 1
.lattice configure -upColor red
.lattice configure -downColor white
.lattice configure -nx 50 -ny 50
ising_configure -nx 50 -ny 50
set lattice 1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
set nx 50
set ny 50

	for {set j 0} {$j<$ny} {incr j} {
	    for {set i 0} {$i<$nx} {incr i} {
		ising_flipspin $i $j [string index $lattice [expr $i+$nx*$j]]
	    }
	}
    
ising_display lattice
.resetdata invoke