%scout string intro; string DFfont; integer l1length; integer l2length; integer l3length; integer l4length; integer l5length; %eden DFfont="{courier 10}"; intro is line1; line1="~ T:U-V is a linear map where dim(U)=4 and dim(V)=3. ~"; %scout window introduction = { type:TEXT frame:([{10,10},{10+strlen(intro).c,10+1.r}]) border:1 string:intro font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window basisu={ type:TEXT frame:([{10,150},{50,190}]) border:1 string:"basis for U" font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window basisv={ type:TEXT frame:([{510,150},{560,190}]) border:1 string:"basis for V" font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; string e_1=""; string e_2=""; string e_3=""; string e_4=""; string vectu=""; window e1win={ type:TEXT frame:([{100,50},{130,70}]) border:1 string:"e1: " font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window e2win={ type:TEXT frame:([{100,120},{130,140}]) border:1 string:"e2: " font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window e3win={ type:TEXT frame:([{100,190},{130,210}]) border:1 string:"e3: " font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window e4win={ type:TEXT frame:([{100,260},{130,280}]) border:1 string:"e4 :" font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window e1Win={ type:TEXT frame:([{150,50},{180,110}]) border:1 string:e_1 font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window e2Win={ type:TEXT frame:([{150,120},{180,180}]) border:1 string:e_2 font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window e3Win={ type:TEXT frame:([{150,190},{180,250}]) border:1 string:e_3 font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window e4Win={ type:TEXT frame:([{150,260},{180,320}]) border:1 string:e_4 font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; string f_1=""; string f_2=""; string f_3=""; window f1win={ type:TEXT frame:([{590,50},{620,70}]) border:1 string:"f1: " font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window f2win={ type:TEXT frame:([{590,110},{620,130}]) border:1 string:"f2: " font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window f3win={ type:TEXT frame:([{590,170},{620,190}]) border:1 string:"f3: " font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window f1Win={ type:TEXT frame:([{640,50},{670,100}]) border:1 string:f_1 font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window f2Win={ type:TEXT frame:([{640,110},{670,160}]) border:1 string:f_2 font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window f3Win={ type:TEXT frame:([{640,170},{670,220}]) border:1 string:f_3 font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; string a_11="a11"; string a_12="a12"; string a_13="a13"; string a_14="a14"; string a_21="a21"; string a_22="a22"; string a_23="a23"; string a_24="a24"; string a_31="a31"; string a_32="a32"; string a_33="a33"; string a_34="a34"; %eden func intger{ para coe,i,j; if (type(coe)=="int") return str(coe); else return "a"//str(i)//str(j); } a_11 is intger(a11,1,1); a_12 is intger(a12,1,2); a_13 is intger(a13,1,3); a_14 is intger(a14,1,4); a_21 is intger(a21,2,1); a_22 is intger(a22,2,2); a_23 is intger(a23,2,3); a_24 is intger(a24,2,4); a_31 is intger(a31,3,1); a_32 is intger(a32,3,2); a_33 is intger(a33,3,3); a_34 is intger(a34,3,4); %scout string te1; string te2; string te3; string te4; %eden te1 is " T(e1)= "//a_11//"f1 + "//a_21//"f2 + "//a_31//"f3"; te2 is " T(e2)= "//a_12//"f1 + "//a_22//"f2 + "//a_32//"f3"; te3 is " T(e3)= "//a_13//"f1 + "//a_23//"f2 + "//a_33//"f3"; te4 is " T(e4)= "//a_14//"f1 + "//a_24//"f2 + "//a_34//"f3"; %scout window transe1={ type:TEXT frame:([{20,330},{20+strlen(te1).c,330+1.r}]) string:te1 font: DFfont bgcolour:"white" fgcolour:"black" border:1 sensitive:ON }; window matrixtran ={ type:TEXT frame:([{520,325},{520+strlen("~ The Matrix of the Linear Map ~ ").c,325+1.r}]) string:"~ The Matrix of the Linear Map ~" font: DFfont bgcolour:"white" fgcolour:"black" border:1 sensitive:ON }; window transe2={ type:TEXT frame:([{20,360},{20+strlen(te2).c,360+1.r}]) string:te2 font: DFfont bgcolour:"white" fgcolour:"black" border:1 sensitive:ON }; window transe3={ type:TEXT frame:([{20,390},{20+strlen(te3).c,390+1.r}]) string:te3 font: DFfont bgcolour:"white" fgcolour:"black" border:1 sensitive:ON }; window transe4={ type:TEXT frame:([{20,420},{20+strlen(te4).c,420+1.r}]) string:te4 font: DFfont bgcolour:"white" fgcolour:"black" border:1 sensitive:ON }; string SD_fixed_font="{courier 12 bold}"; string SD_bgcolour="white"; string SD_fgcolour="black"; string SD_bdcolour="black"; string SD_focus_colour="blue"; string SD_fixed_fgcolour="red"; string SD_relief="flat"; string SD_font=SD_fixed_font; ## on linux integer spacer_x=15; integer spacer_y=8; %scout ##have to be adapted to the interface later. integer grid_startAx=540; integer grid_startAy=360; integer gridsquare_width=4; integer gridsquare_height=1; string A1a_font=SD_font; string A2a_font=SD_font; string A3a_font=SD_font; string A4a_font=SD_font; string B1a_font=SD_font; string B2a_font=SD_font; string B3a_font=SD_font; string B4a_font=SD_font; string C1a_font=SD_font; string C2a_font=SD_font; string C3a_font=SD_font; string C4a_font=SD_font; string D1a_font=SD_font; string D2a_font=SD_font; string D3a_font=SD_font; string D4a_font=SD_font; ##GRID MATRIX As window A1a; integer A1a_X1=grid_startAx; integer A1a_Y1=grid_startAy; string A1a_bdcolour=SD_bdcolour; string A1a_bgcolour=SD_bgcolour; integer A1a_border=1; string A1a_fgcolour=SD_fgcolour; string A1a_relief=SD_relief; window A2a; integer A2a_X1=grid_startAx; integer A2a_Y1=grid_startAy+1.r+spacer_y; string A2a_bdcolour=SD_bdcolour; string A2a_bgcolour=SD_bgcolour; integer A2a_border=1; string A2a_fgcolour=SD_fgcolour; string A2a_relief=SD_relief; window A3a; integer A3a_X1=grid_startAx; integer A3a_Y1=grid_startAy+2.r+(2*spacer_y); string A3a_bdcolour=SD_bdcolour; string A3a_bgcolour=SD_bgcolour; integer A3a_border=1; string A3a_fgcolour=SD_fgcolour; string A3a_relief=SD_relief; window B1a; integer B1a_X1=grid_startAx+3.c+spacer_x; integer B1a_Y1=grid_startAy; string B1a_bdcolour=SD_bdcolour; string B1a_bgcolour=SD_bgcolour; integer B1a_border=1; string B1a_fgcolour=SD_fgcolour; string B1a_relief=SD_relief; window B2a; integer B2a_X1=grid_startAx+3.c+spacer_x; integer B2a_Y1=grid_startAy+1.r+spacer_y; string B2a_bdcolour=SD_bdcolour; string B2a_bgcolour=SD_bgcolour; integer B2a_border=1; string B2a_fgcolour=SD_fgcolour; string B2a_relief=SD_relief; window B3a; integer B3a_X1=grid_startAx+3.c+spacer_x; integer B3a_Y1=grid_startAy+2.r+(2*spacer_y); string B3a_bdcolour=SD_bdcolour; string B3a_bgcolour=SD_bgcolour; integer B3a_border=1; string B3a_fgcolour=SD_fgcolour; string B3a_relief=SD_relief; window C1a; integer C1a_X1=grid_startAx+6.c+(2*spacer_x); integer C1a_Y1=grid_startAy; string C1a_bdcolour=SD_bdcolour; string C1a_bgcolour=SD_bgcolour; integer C1a_border=1; string C1a_fgcolour=SD_fgcolour; string C1a_relief=SD_relief; window C2a; integer C2a_X1=grid_startAx+6.c+(2*spacer_x); integer C2a_Y1=grid_startAy+1.r+spacer_y; string C2a_bdcolour=SD_bdcolour; string C2a_bgcolour=SD_bgcolour; integer C2a_border=1; string C2a_fgcolour=SD_fgcolour; string C2a_relief=SD_relief; window C3a; integer C3a_X1=grid_startAx+6.c+(2*spacer_x); integer C3a_Y1=grid_startAy+2.r+(2*spacer_y); string C3a_bdcolour=SD_bdcolour; string C3a_bgcolour=SD_bgcolour; integer C3a_border=1; string C3a_fgcolour=SD_fgcolour; string C3a_relief=SD_relief; window D1a; integer D1a_X1=grid_startAx+9.c+(3*spacer_x); integer D1a_Y1=grid_startAy; string D1a_bdcolour=SD_bdcolour; string D1a_bgcolour=SD_bgcolour; integer D1a_border=1; string D1a_fgcolour=SD_fgcolour; string D1a_relief=SD_relief; window D2a; integer D2a_X1=grid_startAx+9.c+(3*spacer_x); integer D2a_Y1=grid_startAy+1.r+spacer_y; string D2a_bdcolour=SD_bdcolour; string D2a_bgcolour=SD_bgcolour; integer D2a_border=1; string D2a_fgcolour=SD_fgcolour; string D2a_relief=SD_relief; window D3a; integer D3a_X1=grid_startAx+9.c+(3*spacer_x); integer D3a_Y1=grid_startAy+2.r+(2*spacer_y); string D3a_bdcolour=SD_bdcolour; string D3a_bgcolour=SD_bgcolour; integer D3a_border=1; string D3a_fgcolour=SD_fgcolour; string D3a_relief=SD_relief; window A1a = { type: TEXT frame: ([{A1a_X1, A1a_Y1}, {A1a_X1+gridsquare_width.c,A1a_Y1+gridsquare_height.r}]) font: A1a_font bgcolor: A1a_bgcolour fgcolor: A1a_fgcolour bdcolor: A1a_bdcolour border: A1a_border relief: A1a_relief alignment: CENTRE sensitive: ON string: a_11 }; window A2a = { type: TEXT frame: ([{A2a_X1, A2a_Y1}, {A2a_X1+gridsquare_width.c,A2a_Y1+gridsquare_height.r}]) font: A1a_font bgcolor: A2a_bgcolour fgcolor: A2a_fgcolour bdcolor: A2a_bdcolour border: A2a_border relief: A2a_relief alignment: CENTRE sensitive: ON string: a_21 }; window A3a = { type: TEXT frame: ([{A3a_X1, A3a_Y1}, {A3a_X1+gridsquare_width.c,A3a_Y1+gridsquare_height.r}]) font: A3a_font bgcolor: A3a_bgcolour fgcolor: A3a_fgcolour bdcolor: A3a_bdcolour border: A3a_border relief: A3a_relief alignment: CENTRE sensitive: ON string: a_31 }; window B1a = { type: TEXT frame: ([{B1a_X1, B1a_Y1}, {B1a_X1+gridsquare_width.c,B1a_Y1+gridsquare_height.r}]) font: B1a_font bgcolor: B1a_bgcolour fgcolor: B1a_fgcolour bdcolor: B1a_bdcolour border: B1a_border relief: B1a_relief alignment: CENTRE sensitive: ON string: a_12 }; window B2a = { type: TEXT frame: ([{B2a_X1, B2a_Y1}, {B2a_X1+gridsquare_width.c,B2a_Y1+gridsquare_height.r}]) font: B2a_font bgcolor: B2a_bgcolour fgcolor: B2a_fgcolour bdcolor: B2a_bdcolour border: B2a_border relief: B2a_relief alignment: CENTRE sensitive: ON string: a_22 }; window B3a = { type: TEXT frame: ([{B3a_X1, B3a_Y1}, {B3a_X1+gridsquare_width.c,B3a_Y1+gridsquare_height.r}]) font: B3a_font bgcolor: B3a_bgcolour fgcolor: B3a_fgcolour bdcolor: B3a_bdcolour border: B3a_border relief: B3a_relief alignment: CENTRE sensitive: ON string: a_32 }; window C1a = { type: TEXT frame: ([{C1a_X1, C1a_Y1}, {C1a_X1+gridsquare_width.c,C1a_Y1+gridsquare_height.r}]) font: C1a_font bgcolor: C1a_bgcolour fgcolor: C1a_fgcolour bdcolor: C1a_bdcolour border: C1a_border relief: C1a_relief alignment: CENTRE sensitive: ON string: a_13 }; window C2a = { type: TEXT frame: ([{C2a_X1, C2a_Y1}, {C2a_X1+gridsquare_width.c,C2a_Y1+gridsquare_height.r}]) font: C2a_font bgcolor: C2a_bgcolour fgcolor: C2a_fgcolour bdcolor: C2a_bdcolour border: C2a_border relief: C2a_relief alignment: CENTRE sensitive: ON string: a_23 }; window C3a = { type: TEXT frame: ([{C3a_X1, C3a_Y1}, {C3a_X1+gridsquare_width.c,C3a_Y1+gridsquare_height.r}]) font: C3a_font bgcolor: C3a_bgcolour fgcolor: C3a_fgcolour bdcolor: C3a_bdcolour border: C3a_border relief: C3a_relief alignment: CENTRE sensitive: ON string: a_33 }; window D1a = { type: TEXT frame: ([{D1a_X1, D1a_Y1}, {D1a_X1+gridsquare_width.c,D1a_Y1+gridsquare_height.r}]) font: D1a_font bgcolor: D1a_bgcolour fgcolor: D1a_fgcolour bdcolor: D1a_bdcolour border: D1a_border relief: D1a_relief alignment: CENTRE sensitive: ON string: a_14 }; window D2a = { type: TEXT frame: ([{D2a_X1, D2a_Y1}, {D2a_X1+gridsquare_width.c,D2a_Y1+gridsquare_height.r}]) font: D2a_font bgcolor: D2a_bgcolour fgcolor: D2a_fgcolour bdcolor: D2a_bdcolour border: D2a_border relief: D2a_relief alignment: CENTRE sensitive: ON string: a_24 }; window D3a = { type: TEXT frame: ([{D3a_X1, D3a_Y1}, {D3a_X1+gridsquare_width.c,D3a_Y1+gridsquare_height.r}]) font: D3a_font bgcolor: D3a_bgcolour fgcolor: D3a_fgcolour bdcolor: D3a_bdcolour border: D3a_border relief: D3a_relief alignment: CENTRE sensitive: ON string: a_34 }; window vectoru = { type:TEXT frame:([{20,460},{100,460+1.r}]) border:1 string:"vector u: " font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window vectorU = { type:TEXT frame:([{120,460},{150,460+4.r}]) border:1 string:vectu font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; string line2; integer linelength; window equalsign1 = { type:TEXT frame:([{180,460},{180+(linelength+5).c,460+1.r}]) border:1 string:line2 font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; string line3; window equalsign2 = { type:TEXT frame:([{220,490},{220+linelength.c,490+1.r}]) border:1 string:line3 font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; string line4; window equalsign3 = { type:TEXT frame:([{220,520},{220+linelength.c,520+1.r}]) border:1 string:line4 font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; string line5; window equalsign4 = { type:TEXT frame:([{220,580},{220+linelength.c,580+1.r}]) border:1 string:line5 font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; window equalsign5 = { type:TEXT frame:([{220,640},{220+linelength.c,640+1.r}]) border:1 string:"= Matrix of transformation * u" font: DFfont bgcolour:"white" fgcolour:"black" sensitive:ON }; display region2 = ; display region1=; screen=region2®ion1 &; %eden aa is str(u[1]); bb is str((u[2]-5*u[4]/6)/2); cc is str(u[3]); dd is str(u[4]/6); line2 is "T(u) = T("//aa//"e1 + "//bb//"e2 + "//cc//"e3 + "//dd//"e4)"; line3 is "= "//aa//"T(e1) + "//bb//"T(e2) + "//cc//"T(e3) + "//dd//"T(e4)"; line4 is "= "//aa//"("//a_11//"f1 + "//a_21//"f2 + "//a_31//"f3) + "//bb//"("//a_12//"f1 + "//a_22//"f2 + "//a_32//"f3) + "//cc//"("//a_13//"f1 + "//a_23//"f2 + "//a_33//"f3) + "//dd//"("//a_14//"f1 + "//a_24//"f2 + "//a_34//"f3)"; line5 is "= ("//aa//"*"//a_11//"+"//bb//"*"//a_12//"+"//cc//"*"//a_13//"+"//dd//"*"//a_14//") f1 + ("//aa//"*"//a_21//"+"//bb//"*"//a_22//"+"//cc//"*"//a_23//"+"//dd//"*"//a_24//") f2 +("//aa//"*"//a_31//"+"//bb//"*"//a_32//"+"//cc//"*"//a_33//"+"//dd//"*"//a_34//") f3 "; linelength is max(line2#,line3#,line4#,line5#); e1=[1,0,0,0]; e2=[0,2,0,0]; e3=[0,0,1,0]; e4=[0,5,0,6]; u=[3,4,5,6]; f1=[1,0,0]; f2=[0,1,0]; f3=[0,0,1]; func transvect{ para v; auto l1,l2,l3,l4; l1=" "//str(v[1]); l2=" "//str(v[2]); l3=" "//str(v[3]); l4=" "//str(v[4]); return l1//"\n"//l2//"\n"//l3//"\n"//l4; } func transvect2{ para v; auto l1,l2,l3,l4; l1=" "//str(v[1]); l2=" "//str(v[2]); l3=" "//str(v[3]); return l1//"\n"//l2//"\n"//l3; } e_1 is transvect(e1); e_2 is transvect(e2); e_3 is transvect(e3); e_4 is transvect(e4); f_1 is transvect2(f1); f_2 is transvect2(f2); f_3 is transvect2(f3); vectu is transvect(u); proc writemat11: a11{ if(type(a11)=="int") { A1a_bgcolour="red"; A2a_bgcolour=SD_bgcolour; A3a_bgcolour=SD_bgcolour; B1a_bgcolour=SD_bgcolour; B2a_bgcolour=SD_bgcolour; B3a_bgcolour=SD_bgcolour; C1a_bgcolour=SD_bgcolour; C2a_bgcolour=SD_bgcolour; C3a_bgcolour=SD_bgcolour; D1a_bgcolour=SD_bgcolour; D2a_bgcolour=SD_bgcolour; D3a_bgcolour=SD_bgcolour; } } proc writemat12: a12{ if(type(a12)=="int") { B1a_bgcolour="red"; A1a_bgcolour=SD_bgcolour; A3a_bgcolour=SD_bgcolour; A2a_bgcolour=SD_bgcolour; B2a_bgcolour=SD_bgcolour; B3a_bgcolour=SD_bgcolour; C1a_bgcolour=SD_bgcolour; C2a_bgcolour=SD_bgcolour; C3a_bgcolour=SD_bgcolour; D1a_bgcolour=SD_bgcolour; D2a_bgcolour=SD_bgcolour; D3a_bgcolour=SD_bgcolour; } } proc writemat13: a13{ if(type(a11)=="int") { C1a_bgcolour="red"; A2a_bgcolour=SD_bgcolour; A1a_bgcolour=SD_bgcolour; B1a_bgcolour=SD_bgcolour; B2a_bgcolour=SD_bgcolour; B3a_bgcolour=SD_bgcolour; A3a_bgcolour=SD_bgcolour; C2a_bgcolour=SD_bgcolour; C3a_bgcolour=SD_bgcolour; D1a_bgcolour=SD_bgcolour; D2a_bgcolour=SD_bgcolour; D3a_bgcolour=SD_bgcolour; } } proc writemat14: a14{ if(type(a14)=="int") { D1a_bgcolour="red"; A2a_bgcolour=SD_bgcolour; A3a_bgcolour=SD_bgcolour; B1a_bgcolour=SD_bgcolour; B2a_bgcolour=SD_bgcolour; B3a_bgcolour=SD_bgcolour; C1a_bgcolour=SD_bgcolour; C2a_bgcolour=SD_bgcolour; C3a_bgcolour=SD_bgcolour; A1a_bgcolour=SD_bgcolour; D2a_bgcolour=SD_bgcolour; D3a_bgcolour=SD_bgcolour; } } proc writemat21: a21{ if(type(a11)=="int") { A2a_bgcolour="red"; A1a_bgcolour=SD_bgcolour; A3a_bgcolour=SD_bgcolour; B1a_bgcolour=SD_bgcolour; B2a_bgcolour=SD_bgcolour; B3a_bgcolour=SD_bgcolour; C1a_bgcolour=SD_bgcolour; C2a_bgcolour=SD_bgcolour; C3a_bgcolour=SD_bgcolour; D1a_bgcolour=SD_bgcolour; D2a_bgcolour=SD_bgcolour; D3a_bgcolour=SD_bgcolour; } } proc writemat22: a22{ if(type(a11)=="int") { B2a_bgcolour="red"; A2a_bgcolour=SD_bgcolour; A3a_bgcolour=SD_bgcolour; B1a_bgcolour=SD_bgcolour; A1a_bgcolour=SD_bgcolour; B3a_bgcolour=SD_bgcolour; C1a_bgcolour=SD_bgcolour; C2a_bgcolour=SD_bgcolour; C3a_bgcolour=SD_bgcolour; D1a_bgcolour=SD_bgcolour; D2a_bgcolour=SD_bgcolour; D3a_bgcolour=SD_bgcolour; } } proc writemat23: a23{ if(type(a11)=="int") { C2a_bgcolour="red"; A2a_bgcolour=SD_bgcolour; A3a_bgcolour=SD_bgcolour; B1a_bgcolour=SD_bgcolour; B2a_bgcolour=SD_bgcolour; B3a_bgcolour=SD_bgcolour; C1a_bgcolour=SD_bgcolour; A1a_bgcolour=SD_bgcolour; C3a_bgcolour=SD_bgcolour; D1a_bgcolour=SD_bgcolour; D2a_bgcolour=SD_bgcolour; D3a_bgcolour=SD_bgcolour; } } proc writemat24: a24{ if(type(a11)=="int") { D2a_bgcolour="red"; A2a_bgcolour=SD_bgcolour; A3a_bgcolour=SD_bgcolour; B1a_bgcolour=SD_bgcolour; B2a_bgcolour=SD_bgcolour; B3a_bgcolour=SD_bgcolour; C1a_bgcolour=SD_bgcolour; C2a_bgcolour=SD_bgcolour; C3a_bgcolour=SD_bgcolour; D1a_bgcolour=SD_bgcolour; A1a_bgcolour=SD_bgcolour; D3a_bgcolour=SD_bgcolour; } } proc writemat31: a31{ if(type(a11)=="int") { A3a_bgcolour="red"; A2a_bgcolour=SD_bgcolour; A1a_bgcolour=SD_bgcolour; B1a_bgcolour=SD_bgcolour; B2a_bgcolour=SD_bgcolour; B3a_bgcolour=SD_bgcolour; C1a_bgcolour=SD_bgcolour; C2a_bgcolour=SD_bgcolour; C3a_bgcolour=SD_bgcolour; D1a_bgcolour=SD_bgcolour; D2a_bgcolour=SD_bgcolour; D3a_bgcolour=SD_bgcolour; } } proc writemat32: a32{ if(type(a11)=="int") { B3a_bgcolour="red"; A2a_bgcolour=SD_bgcolour; A3a_bgcolour=SD_bgcolour; B1a_bgcolour=SD_bgcolour; B2a_bgcolour=SD_bgcolour; A1a_bgcolour=SD_bgcolour; C1a_bgcolour=SD_bgcolour; C2a_bgcolour=SD_bgcolour; C3a_bgcolour=SD_bgcolour; D1a_bgcolour=SD_bgcolour; D2a_bgcolour=SD_bgcolour; D3a_bgcolour=SD_bgcolour; } } proc writemat33: a33{ if(type(a11)=="int") { C3a_bgcolour="red"; A2a_bgcolour=SD_bgcolour; A3a_bgcolour=SD_bgcolour; B1a_bgcolour=SD_bgcolour; B2a_bgcolour=SD_bgcolour; B3a_bgcolour=SD_bgcolour; C1a_bgcolour=SD_bgcolour; C2a_bgcolour=SD_bgcolour; A1a_bgcolour=SD_bgcolour; D1a_bgcolour=SD_bgcolour; D2a_bgcolour=SD_bgcolour; D3a_bgcolour=SD_bgcolour; } } proc writemat34: a34{ if(type(a11)=="int") { D3a_bgcolour="red"; A2a_bgcolour=SD_bgcolour; A3a_bgcolour=SD_bgcolour; B1a_bgcolour=SD_bgcolour; B2a_bgcolour=SD_bgcolour; B3a_bgcolour=SD_bgcolour; C1a_bgcolour=SD_bgcolour; C2a_bgcolour=SD_bgcolour; C3a_bgcolour=SD_bgcolour; D1a_bgcolour=SD_bgcolour; D2a_bgcolour=SD_bgcolour; A1a_bgcolour=SD_bgcolour; } } %eden writeln(screen);