1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
using Tk
using ImageView
using Color
using FractalExplorer
iterations = 45
imgsize = (640, 480)
win = Toplevel("FractalExplorer", imgsize[1], imgsize[2], false)
frame = Frame(win)
pack(frame, expand=true, fill="both")
canvas = Canvas(frame, imgsize[1], imgsize[2])
pack(canvas, expand=true, fill="both")
set_visible(win, true)
view(canvas, [ 0.0 for y=1:imgsize[2], x=1:imgsize[1] ], interactive=false)
mandelbrot(canvas, iterations)
|