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 100
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 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 0010100011111001011100110010110101001110111101000111010100111101011111111000111111111001110110000111100100001101111111011000101000111011111111110011101000001110011001000100011001101100011010010100101010011010111101101011111001011111011111111100001001111001111100110110010010000010111011111011011011100010111001010110010111001111010100110010000001000011100111101001001010111111010000101001010111111101111010011001001110001111011011100101010001011111001100000100000101011101110111000101111001110000011000100011010001111100010110111000010100011000001100001011001100000010101010011111110111100001111111000010001001101100011111001001100101000001011001010011000101010110010000111000001010100010111010101000100010101100101101011010111000100100100011001110101110010100000101110110101110110100101110100111001111010101010100110000100111000101001100100010001110111111101100100110000010101100010000010010000111100001001101010000011001101100010110000011100000101011010010100110000010010110001101111111000111110101100111110110000100100010001111000110000111111111100101111010011000100100101101010110100101000110011101011101110011111010110110011011100000111010001101011011001110001110110011110101100111000011100110111100101011100000011000000101100111101110010011001011110100100010110111001001111000011011010011011110011011110101100101011111110011011101100001011011010100111111010010110111111101100110000001010111111010010101101101101111011011100000110011001101001001010100010101000010110110111010001100000010011000100100110111011110001010000001000110010000100010101100010000011011001011010111110001010100001101011101010100000011010110010110101101110010001101010111101000000011010110010011101110101100011100011011000111100111010011011111110010111000010010010111111010001111101011110110001011001001100100001001101100001000110001001111111011101101011101000010101001110100010111010110111100100111100011011100010011110011111011000100111101110111110010010100111110011001010010000100101010111100100011000010101101101011101000000001110110001011111101010110011000111011110011101000100011110000111100001110000100111111111100111010001001101100110110001011101000011111011111101001011111100101011101110001001000100010000011110101011111001110101110101100100000100000100111100011101001000001111101101001111110010100001100000010110111010100111111101000000001011011100001001110000001010010000111100000000110111010101101101001110100110000011011001110001010010100000110001011111010000100011101001110001000000011000010000011001100001010
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