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 111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111011111111011111111111111111111111111111111011111101111111111011100011011000100011111111111011101111011010101011111111111011100011011010101011111111111011111011011010101011111111111001100011001010100011111111111111111111111111111011111111111111111111111111111011111111111111111111111111100011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
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 2.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
LASSPscale2_configure .n -scrollinc 1
LASSPscale2_configure .n -scrollmin 1
LASSPscale2_configure .n -scrollmax 10000
LASSPscale2_configure .n -scrolltype log
LASSPscale2_set -nocommand .n 5.00e+02
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 000001001010101000001011100110111100000111101101110000111111000101010001001000010100001101000101001101111110000000000100011001111000000010111011100110001011011111100111100101000101010100111011000101010101111001010000111010010110100110010001001101100000000101111010111100110000111110100011000011011111111011110001000101000110000000000000111111001010111111101110000000100110100111101000110000010010110111101100001000101100001110111101010101110110011011011111001101010011000000010111001000010000110001001101000111110110000111001011010101111110101000000000011110000001101001111111001110110010010010011000110010110010111010011100111101110101101101111101101001101000011010111011010001100011011001100110110000100110001011010011010111100111101110110011100100111001101100011011110110010011111100011111010000111000100000111001001001011000011110100110010001010011010001011110000001001101011111101100010101100101
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