18 lines
392 B
Text
18 lines
392 B
Text
void local fn DoIt
|
|
long index, x = 0
|
|
CFArrayRef colors = @[fn ColorBlack,fn ColorRed,
|
|
fn ColorGreen,fn ColorBlue,fn ColorMagenta,
|
|
fn ColorCyan,fn ColorYellow,fn ColorWhite]
|
|
|
|
window 1, @"Color bars/Display", (0,0,480,270), NSWindowStyleMaskTitled
|
|
|
|
pen -1
|
|
for index = 0 to len(colors) - 1
|
|
rect fill (x,0,60,270), colors[index]
|
|
x += 60
|
|
next
|
|
end fn
|
|
|
|
fn DoIt
|
|
|
|
HandleEvents
|