37 lines
758 B
Plaintext
37 lines
758 B
Plaintext
include "NSLog.incl"
|
|
|
|
void local fn BuildWindow
|
|
CGRect r = { 0, 0, 612, 791 } // U.S. Letter Portrait
|
|
long i, j, colorCount, bars = 612
|
|
CGFloat y = 0.0, w = 1
|
|
CFArrayRef colors = @[¬
|
|
fn ColorBlack,¬
|
|
fn ColorRed,¬
|
|
fn ColorGreen,¬
|
|
fn ColorBlue,¬
|
|
fn ColorMagenta,¬
|
|
fn ColorCyan,¬
|
|
fn ColorYellow,¬
|
|
fn ColorWhite]
|
|
|
|
window 1, @"Color Pinstripe Printer Page [U.S. Letter Portrait]", r
|
|
|
|
pen -1
|
|
for j = 1 to 4
|
|
r = fn CGRectMake( 0, y, w, 197.75 )
|
|
colorCount = 0
|
|
for i = 0 to bars - 1
|
|
rect fill r, colors[colorCount]
|
|
r.origin.x += w
|
|
colorCount++
|
|
if colorCount == 8 then colorCount = 0
|
|
next
|
|
bars = bars << 1
|
|
y += 197.75 : w++
|
|
next
|
|
end fn
|
|
|
|
fn BuildWindow
|
|
|
|
HandleEvents
|