# Name :Iyad Abu Doush
# First Problem
#==================================================
procedure main()
    &window:=open("SH","g","fg=red","image=sh1.gif") #create window
    f := open("model.dat","rt") | stop("can't open model.dat")
    wpurple := Clone(&window,"fg=purple")

    #initializing list
    L:=[]
    X:=[]
    Z:=[]
    W:=[]
    Leng:=[]

    #Values to add for X and Z 
    onePixelFt := 45 / 78.0 
    onePixelMt := onePixelFt / 3.281
    ox := 45
    oz := 20

    #put file lines in list
    every put(L, !f)
    every i:=1 to *L do {
	s:=L[i]
	len_s:=*s
	# put values of X,Z,L,W in lists
	case s[1] of {
	    "x": put(X,s[2:len_s+1])
	    "z": put(Z,s[2:len_s+1])
	    "w": put(W,s[2:len_s+1])
	    "l": put(Leng,s[2:len_s+1])
	    }
        }
    every j:=1 to *Leng do {
	FillRectangle(wpurple, X[j]/onePixelMt+ox, Z[j]/onePixelMt+oz,
		      W[j]/onePixelMt, Leng[j]/onePixelMt)
	WFlush()
	delay(1000)
	FillRectangle(X[j]/onePixelMt+ox, Z[j]/onePixelMt+oz,
		      W[j]/onePixelMt, Leng[j]/onePixelMt)
	}

    repeat
	case Event() of {
	    &lpress : {
		every j:=1 to *Leng do {
		    FillRectangle(X[j]/onePixelMt+ox, Z[j]/onePixelMt+oz,
				  W[j]/onePixelMt,Leng[j]/onePixelMt)
		    }
		}
	    "q": exit()
	}
end