home *** CD-ROM | disk | FTP | other *** search
- *******************************************************************************
- * Turbo Pattern Maker *
- * (c) 1985 *
- * by C. A. Rinehart *
- * 18C University Houses *
- * Madison, Wi 53705 *
- *******************************************************************************
-
-
- This program is designed to assist in creation of patterns used in the
- FILLPATTERN routine of Turbo Pascal 3.0 by Borland International. It allows
- the simultaneous display of three individual patterns and their union. Each
- of the patterns has a separate color which can be changed by redefining the
- color table. Each pattern is defined by an 8 x 8 grid. The grid is filled
- by entering a hyphen (pixel off) or a zero (pixel on). The decimal
- representation of each line of the grid is displayed for use in programming.
- example:
- 7 0------- = 1
- line 6 -0------ = 2
- number 5 -00----- = 6 decimal
- 4 ---0---- = 8 equivalent
- 3 -------0 = 128 of binary
- 2 00000000 = 255 line pattern
- 1 -------- = 0
- 0 -------- = 0
-
- bit 01234567
- This pattern would be used in a call such as Pattern(P) where P is an array
- of byte equal to (0, 0, 255, 128, 8, 6, 2, 1).
-
- To compile Pattern Maker the files of Graph.P and Graph.Bin
- need to be available for inclusion. The Graph files are on the Turbo
- distribution disk.
-
- To use Pattern Maker enter one of the choices from the menu line:
-
- 1Pat, 2Pat, 3Pat, Palette, CT, Quit
-
- The first three choices merely select the one of three possible patterns.
- The Palette selection allows the choice of one of four palettes (0-3).
- CT allows the color table to be redefined, thus changing the colors of the
- patterns. Quit ends the program. When selecting choices from the menu
- only the first letter needs to be entered and then the rest of the word
- will be printed. If the choice is acceptable press return if not then
- press backspace and enter another choice. (This is a charactistic of the
- response processing procedure ANSWER.)
-
- Questions and user response will be welcome.
- C.A.R