examples/sdlcircles.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

package require sdl

set xres 1024
set yres 768
set s [sdl.screen $xres $yres "Jim SDL Circles"]

proc drawlist {s list} {
    foreach item $list {
        $s {*}$item
    }
}

proc rand_circle {xres yres maxradius alpha} {
    list fcircle [rand $xres] [rand $yres] [rand $maxradius] [rand 256] [rand 256] [rand 256] $alpha
}

loop i 0 200 {
    set commands {}
    loop j 0 1000 {
        lappend commands [rand_circle $xres $yres 40 100]
        if {$j % 50 == 0} {
            #$s clear 200 200 200
            drawlist $s $commands
            $s flip
            sleep 0.1
        }
    }
}