Cobra Forums

if .calc(x/40, y/40)  # error: here

# See <!-- m --><a class="postlink" href="http://www.timestretch.com/FractalBenchmark.html">http://www.timestretch.com/FractalBenchmark.html</a><!-- m -->
# 2009-01-13 Csaba Urbaniczky
# if .calc( x/40 , y/40) does not compile
class Program 
    const bailOut as int = 16  
    const maxIterations as int = 1000  
    
    def doIt as Boolean is shared
        return true
        
    def mandelbrot is shared
        try
            print 'Rendering'
            for y as int in -39 :39 : 1 
                print 
                for x as int in -39 :39 : 1
                    # if .doIt , print '*', stop  # give same kind of  error
                    if .calc(x/40, y/40)  # error: here
                        print '*', stop 
                    else 
                        print ' ' , stop
        catch ex as Exception
            print 'mandelbrot EXCEPTION: [ex]'

    def calc(ci as number,   y as number) as Boolean is shared
        try
            cr as decimal = y-0.5
            zr as decimal = 0.0
            zi as decimal = 0.0
            for i as int in  0 : .maxIterations :1
                zr2  = zr * zr
                zi2 = zi * zi
                if zi2 + zr2 > .bailOut, return false 
                temp = zr * zi 
                zr = zr2 - zi2 + cr 
                zi = temp + temp + ci
            return true
        catch ex as Exception
            print 'calc EXCEPTION: [ex]'
            return true

    def main is shared
        try
            print 'Cobra Mandelbrot Start [ DateTime.now]'
            startTime= DateTime.now
            .mandelbrot
            print
            print 'Cobra elepsed [DateTime.now.subtract(startTime)] seconds'
        catch ex as Exception
            print 'main EXCEPTION: [ex]'

use System.Diagnostics

...
        sw = Stopwatch()
        sw.start
...
        sw.stop
        print sw.elapsedMilliseconds

# See <!-- m --><a class="postlink" href="http://www.timestretch.com/FractalBenchmark.html">http://www.timestretch.com/FractalBenchmark.html</a><!-- m -->
# 2009-03-09 Csaba Urbaniczky
# 2009-03-09  Test in SciTE 
#       With  float:: 48-128 ms (in SciTE)
#       With  float & Try Catch  &:48-128 ms  = same!
#       With decimal & Try Catch  6.05 - 6.06 s = very much slower!
#      VB.NET 2005 version on the same computer: 175-180 ms
class Program 
    const bailOut as int = 16  
    const maxIterations as int = 1000  
            
    def mandelbrot is shared
        try
            print 'Rendering'
            for y as int in -39 :39 : 1 
                print 
                for x as int in -39 :39 : 1
                    if .calc(x/40f, y/40f)  # error: here
                        print '*', stop 
                    else 
                        print ' ' , stop
        catch ex as Exception
            print 'mandelbrot EXCEPTION: [ex]'

    def calc(ci as float,  y as float) as bool is shared
        try
            cr as float = y-0.5f
            zr as float = 0.0f
            zi as float= 0.0f
            for i as int in  0 : .maxIterations :1
                zr2  = zr * zr
                zi2 = zi * zi
                if zi2 + zr2 > .bailOut, return false 
                temp as float = zr * zi 
                zr = zr2 - zi2 + cr 
                zi = temp + temp + ci
            return true
        catch ex as Exception
            print 'calc EXCEPTION: [ex]'
            return true

    def main is shared
        try
            print 'Cobra Mandelbrot Start [DateTime.now]'
            sw = System.Diagnostics.Stopwatch() 
            sw.start        
            .mandelbrot
            sw.stop 
            print
            print 'Cobra elapsed: [sw.elapsedMilliseconds] ms'
        catch ex as Exception
            print 'main EXCEPTION: [ex]'