-----------------------------------

zylum

Wed Mar 10, 2004 10:41 pm


program keeps crashing

-----------------------------------

whenever i try running this, "the environment crashes"


var clr : int
var pic : int := Pic.FileNew ("flamebw.jpg")
pic := Pic.Scale (pic, 100, 100)
Pic.Draw (pic, 0, 0, picCopy)
var dots : array 1 .. 100, 1 .. 100 of int

for x : 1 .. 100
    for y : 1 .. 100
        clr := whatdotcolor (x, y)
        if (clr < (16 + 31) div 2 and clr not= 7) or clr = 0 then
            dots (x, y) := 0
        else
            dots (x, y) := 1
        end if
    end for
end for

var file : int

open : file, "picture.txt", put
for x : 1 .. 100
    for y : 1 .. 100
        if x < 100 then
            put dots (x, y) ..
        else
            put dots (x, y)
        end if
    end for
end for



does this happen to anyone else? how can i fix this?

-zylum


-----------------------------------

Catalyst

Wed Mar 10, 2004 10:44 pm



-----------------------------------

works fine for me
might be the image itself?


-----------------------------------

jonos

Wed Mar 10, 2004 11:16 pm



-----------------------------------

does there a prompt that pops up saying something about turing environment error, because if there is, thats something wrong with turing, and you should contact holtsoft (unless your copy is illegal).


-----------------------------------

Catalyst

Wed Mar 10, 2004 11:23 pm



-----------------------------------

those are usually caused by some unfinished command, but none of those are present here


-----------------------------------

zylum

Wed Mar 10, 2004 11:27 pm



-----------------------------------

catalyst was right... for some reason there was something wrong with my picture file.. i tried it on a different one and it works fine! :)