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 "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 1.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 1.00e+00
LASSPscale2_configure .speed -scrollinc 1
LASSPscale2_configure .speed -scrollmin 0
LASSPscale2_configure .speed -scrollmax 100
LASSPscale2_configure .speed -scrolltype linear
LASSPscale2_set -nocommand .speed 100
.lattice configure -upColor red
.lattice configure -downColor white
.lattice configure -nx 50 -ny 50
ising_configure -nx 50 -ny 50
set lattice 1010001000000101011010110110000101001000101100101010101011001111101001001110111101001011010000001000100100011010000010111011000111111001110011101011010010000011110110101010100110110011000001010111010011100100000000000000000011100111101011110110101001101110100010101111101000010101101010100001110110111010011011001000100110101010111110011001111111001010100101100100000010001000111111001110000111010001001101101111011110010001000111001011111011011111111010110110011011110010000010000010000010100001010001101110111111110011111110011010100010001101000100010011011110100111101010110101100011101000011111011010100110111000110000111010101010011011000010111010111111100011100010001101001011110001100100110100111110101001111110001001000010001100011011010010010101110010000011000110000011110000011111100011111100100110101010000011101110101100001101101110100111011011001011110101001100000001000011001001000101101111110001011100001010010011111000001001011000101000001100011100001111100110000001000001001111001110000011110011000010111111111111101001000011110101110010111000100101011000111101111010000001111100101000110001101100110000010100010000101000010100011100101110000110110011110010010111110111101000111000010111000101111001110000110101010100101000110001100100001000101011101100001101110010111111111011010000001011110000100101000101100110100011111100100011010000100000000100100010000100110101110111100011000000001001001010101111110011100110100101111111100011010101100100000010110100001100101111110110100101100100110011110111111011100001111111101110001110011000101100111000100110001001101000111111110111110110001101101010000001001101011100011100100101111000111011010011101110100001100010111110110011111111001000101001111101100010101001000000111011110111101111010110111111000111111011000101000101001011111010110110001000110000100000101011001110001110011000100101110010001011000001101100100000001001010101110001000010100000110111010010001011110110100000111110011001011001111101011111110101101001100000110111100000001001001011001000100001000010111010101100000011011111011010110110110011010000000101111111000100100001000111100111010100001110111110100000101101110100010001001111001001100000100001011101100101000101001110100010001011101000000000101000001001010101101101001000001110010110111110000010010000100100110101101011001111110101001001011110000000010001000100110001001100010011110001100000001000000000101010110001000101110010110010010000011110010100110000011110001001101010001010010001001001011011001100110111
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