diff options
Diffstat (limited to 'tests/examplefiles/example.icon')
| -rw-r--r-- | tests/examplefiles/example.icon | 381 |
1 files changed, 0 insertions, 381 deletions
diff --git a/tests/examplefiles/example.icon b/tests/examplefiles/example.icon deleted file mode 100644 index 29bc548b..00000000 --- a/tests/examplefiles/example.icon +++ /dev/null @@ -1,381 +0,0 @@ -############################################################################ -# -# File: kaleid.icn -# -# Subject: Program to produce kaleidoscope -# -# Author: Stephen B. Wampler -# -# Date: May 2, 2001 -# -############################################################################ -# -# This file is in the public domain. -# -############################################################################ -# -# Lots of options, most easily set by with the interface after -# startup. The only one that isn't set that way is -wn where 'n' is -# the size of the kaleidoscope window (default is 600 square). -# -# Terminology (and options): -# -# Window_size (-wN): How big of a display window to use. -# At the current time, this can only be set via a -# command line argument. -# -# Density (-dN): How many circles per octant to keep on display -# at any one time. There is NO LIMIT to the density. -# -# Duration (-lN): How long to keep drawing circles (measured in -# in circles) once the density is reached. There is NO LIMIT -# to the duration. -# -# MaxRadius (-MN): Maximum radius of any circle. -# -# MinRadius (-mN): Preferred minimum radius. Circles with centers -# near the edge have their radii forced down to fit entirely -# on the display -# -# MaxOffset (-XN): Maximum offset from center of display (may wrap). -# -# MinOffset (-xN): Minimum offset -# -# Skew (-sN): Shift probability of placing a circle at a 'typical' -# offset. -# -# Fill (-F): Turns off filling the circles. -# -# Clear (-C): After the duration, reduces density back to 0 before -# quitting. -# -# Random Seed: (-rN): Sets the random number seed. -# -# Thanks to Jon Lipp for help on using vidgets, and to Mary Camaron -# for her Interface Builder. -# -############################################################################ -# -# Requires: Version 9 graphics -# -############################################################################ -# -# Links: vidgets, vslider, vtext, vbuttons, vradio, wopen, xcompat -# -############################################################################ - -link vidgets -link vslider -link vtext -link vbuttons -link vradio -link wopen -link xcompat - -global Clear, fill, duration, density, maxoff, minoff -global maxradius, minradius, r_seed, skew, win_size, mid_win -global root, check1, mainwin, use_dialog -global draw_circle - -global du_v, de_v, rs_v, sk_v - -procedure main (args) - - draw_circle := DrawCircle - - init_globs() - process_args(args) - - if \use_dialog then { # have vidgets, so use them for args. - mainwin := WOpen("label=Kaleidoscope", "width=404", "height=313", - "font=6x12") | - stop ("bad mainwin") - root := ui (mainwin) - GetEvents (root, quit) - } - else { # just rely on command line arguments - kaleidoscope(r_seed) - } - -end - -procedure init_globs() - - duration := 500 # set default characteristics - density := 30 - win_size := 600 - minoff := 1 - maxradius := 150 - minradius := 1 - skew := 1 - fill := "On" - draw_circle := FillCircle - Clear := "Off" - r_seed := map("HhMmYy", "Hh:Mm:Yy", &clock) - # See if the Vidget library is available or not - if \VSet then use_dialog := "yes" - else use_dialog := &null - -end - -procedure process_args(args) - local arg - - # really only needed if you don't use the dialog box - every arg := !args do case arg[1+:2] of { - "-w" : win_size := integer(arg[3:0]) # window size - "-d" : density := integer(arg[3:0]) # density of circles - "-l" : duration := integer(arg[3:0]) # duration - "-M" : maxradius := integer(arg[3:0]) # maximum radius - "-m" : minradius := integer(arg[3:0]) # minimum radius - "-X" : maxoff := integer(arg[3:0]) # maximum offset - "-x" : minoff := integer(arg[3:0]) # minimum offset - "-s" : skew := numeric(arg[3:0]) # set skewedness - "-F" : fill := &null # turn off fill - "-C" : Clear := "yes" # turn on clear mode - "-r" : r_seed := integer(arg[3:0]) # random seed - "-h" : stop("usage: kal [-wn] [-dn] [-ln] [-Mn] [-mn] [-Xn] [-xn] _ - [-sn] [-F] [-C] [-rn]") - } - # adjust parameters that depend on the window size... - mid_win := win_size/2 - maxoff := win_size-1 -end - -# Lorraine Callahan's kaleidoscope program, translated into icon. -# (some of the things she did were too sophisticated for me -# to spend time to figure out, so the output is square instead of -# round), and I use 'xor' to draw instead of writing to separate -# bit planes. - -global putcircle, clrcircle - -procedure kaleidoscope(r) - local colors - - # What colors to use? This can be changed to whatever! - colors := ["red","green","blue","cyan","magenta","yellow"] - - &window := WOpen("label=Kaleidoscope: 'q' quits", "width="||win_size, - "height="||win_size, "bg=black") - WAttrib("drawop=xor") - - # Create two *indentical* sequences of circles, one to use when - # when drawing, one for erasing. (Since 'xor' is used to - # place them, these both just draw the circles!) - - putcircle := create { # draws sequence of circles - &random :=: r - |{ - Fg(?colors) - outcircle() - &random <-> r - } - } - - clrcircle := create { # erases sequence of circles - &random :=: r - |{ - Fg(?colors) - outcircle() - &random <-> r - } - } - - every 1 to density do @putcircle # fill screen to density - - every 1 to duration do { # maintain steady state - @putcircle - @clrcircle - if *Pending(&window) > 0 then break - } - - every (Clear == "On") & 1 to density do @clrcircle - - close(&window) -end - - -procedure outcircle() # select a circle at random, -local radius, xoff, yoff # draw it in kaleidoscopic form - - # get a random center point and radius - xoff := (?(maxoff - minoff) + minoff) % mid_win - yoff := (?(maxoff - minoff) + minoff) % mid_win - radius := ?0 ^ skew - # force radius to 'fit' - radius := ((maxradius-minradius) * radius + minradius) % - (mid_win - ((xoff < yoff)|xoff)) - - # put into all 8 octants - draw_circle(mid_win+xoff, mid_win+yoff, radius) - draw_circle(mid_win+xoff, mid_win-yoff, radius) - draw_circle(mid_win-xoff, mid_win+yoff, radius) - draw_circle(mid_win-xoff, mid_win-yoff, radius) - - draw_circle(mid_win+yoff, mid_win+xoff, radius) - draw_circle(mid_win+yoff, mid_win-xoff, radius) - draw_circle(mid_win-yoff, mid_win+xoff, radius) - draw_circle(mid_win-yoff, mid_win-xoff, radius) - - return -end - - -############################################################################ -# -# Vidget-based user interface -- developed originally using Mary -# Camaron's XIB program. Don't expect this to be very readable - -# you should have to play with it! -# -############################################################################ -procedure ui (win) - local cv1, cv2, cv3, cv4 - local - radio_button2, - radio_button1, - text_input6, - text_input5, - slider4, - slider3, - text_input4, - text_input3, - slider2, - slider1 - - /win := WOpen("label=ui", "width=404", "height=313", "font=6x12") | - stop ("bad win") - root := Vroot_frame (win) - - VInsert (root, Vmessage(win, win_size/2), 168, 98) - VInsert (root, Vmessage(win, "1"), 108, 97) - - VInsert (root, sk_v := Vtext(win,"Skew:\\=1",get_skew,,6), 280, 39) - - VInsert (root, du_v := Vtext(win, "Duration:\\="||duration, get_duration,,9), - 237, 15) - - VInsert (root, Vmessage(win, "Clear at end?"), 232, 145) - VInsert (root, Vmessage(win, "Fill?"), 105, 142) - VInsert (root, Vmessage(win,"Quit?"), 267, 259) - VInsert (root, Vmessage(win,"Display it?"), 26, 260) - - VInsert (root, Vcheckbox(win, do_quit, "check2",20), 305, 255, 20, 20) - - VInsert (root, check1:=Vcheckbox(win, do_display, "check1",20), - 106, 258, 20, 20) - - radio_button2 := Vradio_buttons (win, ["On", "Off"], get_clear, , V_CIRCLE) - VSet(radio_button2,Clear) - VInsert (root, radio_button2, 253, 165) - - radio_button1 := Vradio_buttons (win, ["On", "Off"], get_fill, , V_CIRCLE) - VSet(radio_button1,fill) - VInsert (root, radio_button1, 99, 165) - - cv1 := Vcoupler() - VAddClient(cv1, get_max_offset) - text_input6 := Vtext (win, "Max Offset:\\="||(win_size-1), cv1, , 3) - VAddClient(cv1, text_input6) - slider4 := Vhoriz_slider (win, cv1, "slider4", 70, 12, 0, - win_size-1, win_size-1, ) - VAddClient(cv1, slider4) - VInsert (root, text_input6, 196, 103) - VInsert (root, slider4, 306, 106) - - cv2 := Vcoupler() - VAddClient(cv2, get_min_offset) - text_input5 := Vtext (win, "Min Offset\\=1", cv2, , 3) - VAddClient(cv2, text_input5) - slider3 := Vhoriz_slider (win, cv2, "slider3", 70, 12, 1, win_size-1, 1, ) - VAddClient(cv2, slider3) - VInsert (root, text_input5, 201, 80) - VInsert (root, slider3, 307, 82) - - cv3 := Vcoupler() - VAddClient(cv3, get_max_radius) - text_input4 := Vtext (win, "Max Radius\\="||(win_size/4), cv3, , 3) - VAddClient(cv3, text_input4) - slider2 := Vhoriz_slider (win, cv3, "slider2", 70, 12, 1, win_size/2, - win_size/4, ) - VAddClient(cv3, slider2) - VInsert (root, text_input4, 10, 104) - VInsert (root, slider2, 110, 108) - - cv4 := Vcoupler() - VAddClient(cv4, get_min_radius) - text_input3 := Vtext (win, "Min Radius\\=1", cv4, , 3) - VAddClient(cv4, text_input3) - slider1 := Vhoriz_slider (win, cv4, "slider1", 70, 12, 1, win_size/2, 1, ) - VAddClient(cv4, slider1) - VInsert (root, text_input3, 10, 81) - VInsert (root, slider1, 110, 84) - - VInsert (root, rs_v := Vtext(win,"Random Seed:\\="||r_seed, get_random,, 11), - 30, 41) - VInsert (root, de_v := Vtext(win,"Density:\\="||density, get_density,,8), - 71, 16) - - VResize (root) - return root -end - -procedure get_skew (wit, value) - skew := value -end - -procedure get_duration (wit, value) - duration := value -end - -procedure do_quit (wit, value) - stop() -end - -procedure do_display (wit, value) - r_seed := numeric(rs_v.data) - duration := integer(du_v.data) - density := integer(de_v.data) - skew := integer(sk_v.data) - kaleidoscope(r_seed) - wit.callback.value := &null - VDraw(check1) -end - -procedure get_clear (wit, value) - Clear := value -end - -procedure get_fill (wit, value) - fill := value - if fill == "Off" then draw_circle := DrawCircle - else draw_circle := FillCircle -end - -procedure get_max_offset (wit, value) - maxoff := value -end - -procedure get_min_offset (wit, value) - minoff := value -end - -procedure get_max_radius (wit, value) - maxradius := value -end - -procedure get_min_radius (wit, value) - minradius := value -end - -procedure get_random (wit, value) - r_seed := integer(value) -end - -procedure get_density (wit, value) - density := integer(value) -end - -procedure quit(e) - if e === "q" then stop ("Exiting Kaleidoscope") -end |