Computer Science Canada

program keeps crashing
Author:  zylum [ Wed Mar 10, 2004 10:41 pm ]
Post subject:  program keeps crashing
whenever i try running this, "the environment crashes"

code:

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
Author:  Catalyst [ Wed Mar 10, 2004 10:44 pm ]
Post subject: 
works fine for me
might be the image itself?
Author:  jonos [ Wed Mar 10, 2004 11:16 pm ]
Post subject: 
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).
Author:  Catalyst [ Wed Mar 10, 2004 11:23 pm ]
Post subject: 
those are usually caused by some unfinished command, but none of those are present here
Author:  zylum [ Wed Mar 10, 2004 11:27 pm ]
Post subject: 
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! Smile

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy