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 111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111011111110111111111111111111111111111111110111111111111111111011000010110000100001111111111011011110110110101101111111111011000010110110101101111111111011111010110110101101111111111001000010010110100001111111111111111111111111111101111111111111111111111111100001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
LASSPselection_set .graphtype "magnetization"
LASSPselection_set .init_cond "T=inf"
LASSPscale2_configure .t -scrollinc .1
LASSPscale2_configure .t -scrollmin 0
LASSPscale2_configure .t -scrollmax 10
LASSPscale2_configure .t -scrolltype linear
LASSPscale2_set -nocommand .t 6.0
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.0
LASSPscale2_configure .n -scrollinc 1
LASSPscale2_configure .n -scrollmin 1
LASSPscale2_configure .n -scrollmax 10000
LASSPscale2_configure .n -scrolltype log
LASSPscale2_set -nocommand .n 2.06e+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 30 -ny 30
ising_configure -nx 30 -ny 30
set lattice 100000011110000100010000000111100100111110011000000101000011010000110110011111000001000101111111110110011110000010000000111110010101011110110000100011100001010111101110111110000100111011111100111110111100110111110100011111001100000001010011000010111000100000010100011000000000000110111111100011111000001011100100101111111011110000100001000110001110011001110010101100110110000111011001100000001000010110011110011110110100110100001111111111101111010110111111111110000010111001000100111100111000011111110000100101001111111100001100001100100100000111000110001011111000100010100001100010111001111111100011010111011010010011111001101011111110010001110010011101001111000001110110100001111100010111000011100110111000010011110011010010000111011100010010110000011100101111011111001010000001010101111010010000000111001101010100101000010011000110111000011110110000110011100001100000000010111001110100111001001100
set nx 30
set ny 30

	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