home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 3
/
Merciful_Release_3.bin
/
software
/
f
/
finalwriter
/
finalwriterv5.03h.dms
/
finalwriterv5.03h.adf
/
FWMacros.lha
/
GfxCreateShapes
< prev
next >
Wrap
Text File
|
1994-09-29
|
2KB
|
51 lines
/* ====================================================== */
/* Final Writer 3 ARexx Macro. */
/* GfxCreateShapes - Create a few new shape graphics. */
/* $VER: GfxCreateShapes 1.0 (29.9.94) */
/* © 1994 SoftWood, Inc. */
/* Use of this macro is strictly at the user's risk. */
/* */
/* This macro demonstates how to use the new Final Writer */
/* path commands to create the new shape graphics. */
/* ====================================================== */
OPTIONS RESULTS
/* Points will be given in micropoints */
/* Remember: 720 micropoints per inch. */
SetMeasure MICROPOINTS
/* Create a triangle. */
StartPath 1 720 720 /* (1, 1) */
LineTo 1 1440 720 /* (2, 1) */
LineTo 1 1440 1440 /* (2, 2) */
LineTo 1 720 720 /* (1, 1) */
EndPath CLOSE
/* Create an open bezier curve */
StartPath 1 2160 720 /* (3, 1) */
CurveTo 1 2880 2160 3600 720 4320 1440 /* (4, 3) (5, 1) (6, 2) */
EndPath
SetObjectParams 0 FILL Transparent
/* Create another open bezier curve */
StartPath 1 720 2880 /* (1, 4) */
CurveTo 1 1080 2160 1080 3600 1620 2880 /* (1.5, 3) (1.5, 5) (2.25, 4) */
CurveTo 1 2160 3600 2160 2160 2520 2880 /* (3, 5) (3, 3) (3.5, 4) */
EndPath
SetObjectParams 0 FILL Transparent
/* Create a close curve */
StartPath 1 3420 3240 /* (4.75, 4.5) */
CurveTo 1 4320 1800 4860 2880 3780 3240 /* (6, 2.5) (6.75, 4) (5.25, 4.5) */
EndPath CLOSE
/* Create a 4 sided closed shape */
StartPath 1 720 4230 /* (1, 6) */
LineTo 1 1260 3780 /* (1.75, 5.25) */
LineTo 1 3060 3960 /* (4.25, 5.5) */
LineTo 1 2160 5040 /* (3, 7) */
EndPath CLOSE
Redraw
GraphicTool