Weaver

by R. A. Swetman

Weaver is a short Basic program that creates random multi-coloured symmetrical patterns. You could use it to give you inspiration for your own designs, or just to sit and watch the patterns unfold when you want a break from your work.

When you run the program, the screen will clear and the first pattern will be displayed. New patterns will appear every couple of seconds; you can alter this time delay by changing line 430 to the number of centiseconds required. The patterns will be built up quickly at first, but if you press the <T> key you can toggle the speed of the process between fast and slow.

Pressing the space bar at any point will freeze the display, and while it is frozen you can save the current design as a sprite by pressing <S>. Press <Space> again to unfreeze the program. Sprites will be saved in the currently selected directory as Weave1, Weave2 and so on. If you want to specify a pathname for the saved images, just alter line 520.

If your monitor is not capable of displaying MODE 13, or displays it in a squashed 'letterbox' shape, you can alter line 80 of the !RunImage file to read:
	MODE 21:OFF:ORIGIN 640,512
in order to use mode 21 instead. (Mode 21 is double the resolution of mode 13 in both X and Y directions.)

Unfortunately, Risc PCs are not equipped as standard with a mode 21-equivalent screen resolution, so you should use mode 28 in line 80 instead:
	MODE 28:OFF:ORIGIN 640,480
(Note the difference in the ORIGIN command.) This will, however, result in the topmost and bottommost sections of the pattern being clipped.

Happy weaving!

 Copyright RISC User 1995