home *** CD-ROM | disk | FTP | other *** search
- 1000 GOSUB 10000
- 1010 ?
- 1020 ?" ======== APAINT HINTS ======== "
- 1030 ?" Last Revision: 01/03/86 CJF "
- 1040 ?
- 1050 ?" This program gives some tips on using APaint and"
- 1060 ?" methods for displaying your pictures in your own basic"
- 1070 ?" programs. For advice on copying APaint, look under that"
- 1080 ?" program's 'Extras' menu."
- 1090 GOSUB 10100
- 1100 ?" ---- GENERAL HINTS ----"
- 1110 ?
- 1120 ?" APaint must be on the disk you use to boot up your"
- 1130 ?" Amiga, and should be left in the built-in disk drive at"
- 1140 ?" all times. This means if you only have one drive then"
- 1150 ?" you'll have to save the pictures you create on the same"
- 1160 ?" disk. If the disk is stripped down to just the files"
- 1170 ?" required by AmigaDOS there should be enough room to"
- 1180 ?" store five images. With two disk drives, you can save"
- 1190 ?" files on any disk inserted into the external drive."
- 1200 ?
- 1210 ?" I suggest that you use the Preferences Tool to change"
- 1220 ?" the cursor shape into a cross something like:"
- 1230 ?" Put the 'Hot Spot', the pixel used to actually"
- 1240 ?" pick something, right in the center. Make the"
- 1250 ?" middle of each arm of the cross transparent. Then you"
- 1260 ?" can see the pixel on the screen that you are drawing."
- 1270 ?" Adding a bit of shading as shown helps make the cursor"
- 1280 ?" visible when it's on a background of the same color."
- 1292 '
- 1294 ' DRAW SAMPLE CURSOR SHAPE
- 1296 '
- 1300 PENA 3:OUTLINE 0
- 1310 BOX(490,118;520,121),1:BOX(501,112;508,127),1
- 1320 PENA 4:BOX(490,118;518,120),1
- 1322 BOX(501,112;506,126),1
- 1330 PENA 0:DRAW(490,119 TO 520,119)
- 1340 BOX(503,112;504,127),1
- 1380 PENA 2:GOSUB 10100
- 1390 '
- 1400 ?
- 1410 ?" The menus in APaint drop down as soon as your cursor"
- 1420 ?" is on the menu title. You do not have to push either of"
- 1430 ?" the mouse buttons. The menu closes up again when the"
- 1440 ?" cursor goes outside of the menu or moves off its title."
- 1450 ?
- 1460 ?" Many of the tools in APaint will not carry out their"
- 1470 ?" action until you release the mouse button. While you"
- 1480 ?" keep the button depressed you can examine the interm"
- 1490 ?" results and change the pointer position until you are"
- 1500 ?" satisfied. Then release the button to make it permanent."
- 1510 ?" Take for example drawing lines. Pressing the button"
- 1520 ?" fixes the start of the line, and as you move the cursor"
- 1530 ?" a 'rubber-band' line is drawn from that point to the"
- 1540 ?" current position. Release the button to draw the final"
- 1550 ?" line. When pasting a clipping onto a picture, keep the"
- 1560 ?" button pressed and move it around until it is exactly"
- 1570 ?" where you want it, then let go to fix it in place."
- 1580 ?
- 1590 GOSUB 10100
- 1600 ?
- 1610 ?" ---- WORKING WITH PROJECTS ----"
- 1620 ?
- 1630 ?" Select 'OPEN' from the Project menu to see a list of"
- 1640 ?" pictures on disk. You can scroll through the list or"
- 1650 ?" simply click on the title you want to see. If you want to"
- 1660 ?" switch disks (2-drive users only) click on 'Disk:' and"
- 1670 ?" choose one from the list of those available. After a"
- 1680 ?" few seconds that disk's file titles will be displayed."
- 1690 ?
- 1700 ?" If you have already specified a name for a project,"
- 1710 ?" e.g. through loading or saving it previously, the Save"
- 1720 ?" command will use the same name again. Otherwise you'll"
- 1730 ?" have to type in a name for the picture.
- 1740 ?
- 1750 ?" Clearing a project lets you start over but keeps the"
- 1760 ?" same project name. The New command erases the name too."
- 1770 ?
- 1780 ?
- 1790 GOSUB 10100
- 1798 ?
- 1800 ?" ---- DRAWING TOOLS ----"
- 1810 ?
- 1820 ?" APaint has a pretty standard assortment of drawing"
- 1830 ?" tools: freehand brush, lines & connected lines, text"
- 1840 ?" entry, painting enclosed areas, plus open and filled"
- 1850 ?" boxes, ovals, and irregular polygons. The brush shape"
- 1860 ?" you select is used with all tools except text, painting"
- 1870 ?" and the filled versions of the shapes."
- 1880 ?
- 1890 ?" When drawing connected lines you can end the sequence"
- 1900 ?" of lines by moving the cursor to the top of the screen."
- 1920 ?" The circle is drawn by clicking where you want the"
- 1930 ?" center, then keeping the button pressed and moving the"
- 1940 ?" cursor to specify the radius of the circle."
- 1960 ?" The irregular polygon tool works something like the"
- 1970 ?" connected lines tool, but it stops when you put the"
- 1980 ?" endpoint of the last line segment within two pixels of"
- 1990 ?" the start of the first segment, closing the shape."
- 1992 GOSUB 10100
- 2000 ?
- 2010 ?" ----EDITING TOOLS ----"
- 2020 ?
- 2030 ?" Most of the editing tools work by first marking the"
- 2040 ?" area you want to affect, then carrying out the desired"
- 2050 ?" action. Push the mouse button and move the cursor to"
- 2060 ?" stretch out a dashed editing frame. When you release"
- 2070 ?" the button the tool performs its function on that area."
- 2080 ?
- 2090 ?" Three editing tools; Copy area, Cut area, and Load"
- 2100 ?" clipping from disk, end by putting an image in the edit"
- 2110 ?" buffer, or clipboard. Other tools will paste this image"
- 2120 ?" on the screen, use it as a brush, or save it to disk."
- 2130 ?" These tools only work if something is in the clipboard."
- 2140 ?
- 2142 GOSUB 10100
- 2144 ?
- 2150 ?" To use the Stretch tool first draw an edit frame"
- 2160 ?" around the area to be stretched. Then press the mouse"
- 2170 ?" button and move the cursor to draw a second frame. The"
- 2180 ?" initial area is stretched and/or squeezed so it fits"
- 2190 ?" within the second frame. This transformation can be"
- 2200 ?" very slow, especially if you are 'transforming' areas"
- 2210 ?" of background color and nothing appears to be happening."
- 2212 ?" Put the cursor on a menu title and when the menu drops"
- 2214 ?" you'll know the stretching has finished."
- 2220 GOSUB 10100
- 2230 ?
- 2240 ?" ---- COLORS AND PATTERNS ----"
- 2250 ?
- 2260 ?" The type of 'paint' you draw with is determined by"
- 2270 ?" three things: foreground color, background color and"
- 2280 ?" pattern. The foreground color is used for all the 'set'"
- 2290 ?" pixels of the pattern and text characters. Of course,"
- 2300 ?" if the pattern is solid then all you'll see is this"
- 2310 ?" color. The background color is used for all the 'unset'"
- 2320 ?" pixels and the space around text characters. A special"
- 2330 ?" background color is 'transparent'. When you use this,"
- 2340 ?" anything that is already on the screen will show right"
- 2350 ?" through instead of being painted over."
- 2370 ?
- 2380 ?" To copy a color from one place in the palette to"
- 2390 ?" another click on 'Copy', the color to be copied and the"
- 2400 ?" spot where you want it to end up. This is often done to"
- 2410 ?" prepare for creating a color range. To produce a range"
- 2420 ?" of colors, click on 'Range' then on the starting and"
- 2430 ?" ending colors. The ones in between will be modified."
- 2440 GOSUB 10100
- 2450 ?
- 2460 ?" You can modify the color you've selected by changing"
- 2470 ?" the amount of red, green, and blue primaries contained."
- 2480 ?" Click on the RGB bars to adjust the level of each."
- 2490 ?
- 2500 ?" The first three and last three colors in the palette"
- 2510 ?" are reset every time you use a menu. You can modify"
- 2520 ?" them if you wish, but they'll revert back to normal so"
- 2530 ?" the menus are always readable. Also note that three"
- 2540 ?" colors may be used with the cursor shape. Changing"
- 2550 ?" these could make it difficult to see."
- 2560 ?
- 2570 ?" It can be handy to save a color palette for future"
- 2580 ?" use. For example, having a palette of flesh tones on"
- 2590 ?" disk will save you the trouble of setting them every"
- 2600 ?" time you do a portrait."
- 2610 GOSUB 10100
- 2620 ?
- 2630 ?" ---- IMAGE FORMAT ----"
- 2640 ?
- 2650 ?" At present APaint saves its pictures in its own format."
- 2660 ?" When more information on the I.F.F. standard for Amiga"
- 2670 ?" file interchange becomes available, APaint will support"
- 2680 ?" that format too. Then you will be able to use APaint"
- 2690 ?" pictures with many other Amiga programs. For the meantime"
- 2700 ?" you can use your pictures with your own basic programs"
- 2710 ?" by following the information given below."
- 2720 ?
- 2730 ?" Pictures are saved as binary files. Both the actual"
- 2740 ?" image and the color register settings are stored. Only"
- 2750 ?" the visible area of the screen is saved: 0-303 pixels"
- 2760 ?" across by 0-188 lines vertically. This takes 35918 bytes."
- 2770 ?" The color data uses another 384 bytes."
- 2772 GOSUB 10100
- 2780 ?
- 2790 ?" Normally the picture is held in an integer array, for"
- 2800 ?" example TPIC%(). Elements 0 to 8980 contain the image,"
- 2810 ?" TPIC%(8981) is a version number which may be used with"
- 2820 ?" future releases of APaint, TPIC%(8982) - TPIC%(8984)"
- 2830 ?" hold the R,G,B values for color register 0, TPIC%(8985)"
- 2840 ?" to TPIC%(8987) are the values for color register 1, etc."
- 2850 ?
- 2860 ?" To load a picture from disk and display it in your"
- 2870 ?" own program, you must first 1) dimension an array large"
- 2880 ?" enough to hold it, 2) load the image from disk, 3) use"
- 2890 ?" the color data to reset the RGB registers, and finally"
- 2900 ?" 4) display the image. For example:
- 2910 ?
- 2920 ?" 1) DIM TPIC%(9100)"
- 2930 ?" 2) BLOAD filename,VARPTR(TPIC%(0))"
- 2940 ?" 3) FOR N=0 TO 31"
- 2950 ?" RGB N,TPIC%(8982+N*3),TPIC%(8983+N*3),TPIC%(8984+N*3)"
- 2960 ?" NEXT"
- 2970 ?" 4) GSHAPE(0,0),TPIC%()
- 2972 GOSUB 10100
- 2980 ?
- 2990 ?" There is a bit of unused space in the array at present."
- 3000 ?" This may be used in future versions of APaint to hold"
- 3010 ?" color cycling information, etc."
- 3020 GOSUB 10100
- 3030 PRINT AT(24,10);"Have Fun!"
- 3040 GOSUB 10100
- 9999 END
- 10000 '
- 10010 ' SET UP 60 COLUMN SCREEN
- 10020 '
- 10030 SCREEN 1,4:FONT 2:GRAPHIC 0
- 10040 RGB 0,1,3,9
- 10050 RGB 1,14,14,14
- 10060 RGB 2,10,10,10
- 10070 RGB 3,0,0,0
- 10080 RGB 4,11,0,0
- 10090 RETURN
- 10100 '
- 10110 ' PROMPT TO CONTINUE
- 10120 '
- 10122 GRAPHIC 1
- 10130 PRINT AT(58,184);"(Press <SPACE> to continue, or <ESC> to quit) ";
- 10132 GRAPHIC 0
- 10140 ASK MOUSE X%,Y%,B%:IF B%<>0 THEN PRINT:SCNCLR:RETURN
- 10150 GET Z$:IF Z$="" THEN 10140
- 10160 IF Z$=CHR$(27) THEN SCNCLR:END
- 10170 IF Z$=" " OR Z$=CHR$(13) THEN PRINT:SCNCLR:RETURN
- 10180 GOTO 10140
-