pdbourke@ccu1.aukuni.ac.nz (Paul David Bourke) (05/06/91)
Archive-name: graphics/fractals/l-system/1991-05-04 Archive-directory: ccu1.aukuni.ac.nz:mac/architec/ [130.216.1.5] Original-posting-by: pdbourke@ccu1.aukuni.ac.nz (Paul David Bourke) Original-subject: L System rules Reposted-by: emv@msen.com (Edward Vielmetti, MSEN) I am putting the "final" touches on my L System application, version 2.2 for the Mac II. The following list contains the rules currently implemented. Are there any others I've left out that others have found useful? Character Meaning ======== ======= F Move forward by line length drawing a line f Move forward by line length without drawing a line + Turn left by turning angle - Turn right by turning angle | Reverse direction (ie: turn by 180 degrees) [ Push current drawing state onto stack ] Pop current drawing state from the stack # Increment the line width by line width increment ! Decrement the line width by line width increment @ Draw a dot with lien width radius { Open a polygon } Close a polygon and fill it with fill colour > Multiple the line length by the line length scale factor < Divide the line length by the line length scale factor & Swap the meanin of + and - ( Decrement turning angle by turning angle increment ) Increment turning angle by turning angle increment I have intentionally left out colouring information since it is problematic between machine types, monitor capabilities, and because L Systems is primarily about structure. (My program does allow different colours for the lines, fill, and background) Although I do not seriously propose that these symbols and rules should become the standard, it would be nice if everyone tried to conform to some consistent set of basic symbols. This would make the swapping of production rules much easier. If anyone has lists of production rules for L Systems I would appreciate receiving a copy of them. My application at the moment has about 40 examples in its build in library but I would like even more before I release the next version. The new version will be available from anonymous FTP in about a weeks time from ccu1.aukuni.ac.nz (130.216.1.5) it will be located in the mac/architec directory. The manual is in MicroSoft Word format. -- comp.archives file verification ccu1.aukuni.ac.nz total 7466 -rwxr-xr-x 1 mac_ftp 992 216174 Apr 17 12:47 figure3 -rwxr-xr-x 1 mac_ftp 992 224296 Apr 17 12:47 figure2 -rwxr-xr-x 1 mac_ftp 992 61744 Apr 17 12:47 figure1 -rwxr-xr-x 1 mac_ftp 992 6568 Apr 17 12:47 Perstrans.Hqx -rwxr-xr-x 1 mac_ftp 992 2129 Apr 17 12:47 ReadMe -rwxr-xr-x 1 mac_ftp 992 106050 Apr 17 12:47 Gasket.doc.Hqx -rwxr-xr-x 1 mac_ftp 992 60424 Apr 17 12:47 CADformats.Hqx -rwxr-xr-x 1 mac_ftp 992 63933 Apr 8 18:29 Triangulate.Hqx -rwxr-xr-x 1 mac_ftp 992 275022 Mar 26 13:07 Vision3Dmisc.hqx -rwxr-xr-x 1 mac_ftp 992 757598 Mar 20 09:22 visionmanual.hqx -rwxr-xr-x 1 mac_ftp 992 855280 Mar 20 09:22 fractal.Hqx -rwxr-xr-x 1 mac_ftp 992 493906 Mar 20 09:22 Vision3D.Hqx -rwxr-xr-x 1 mac_ftp 992 78039 Mar 20 09:22 IFS.Hqx -rwxr-xr-x 1 mac_ftp 992 28648 Mar 14 15:45 Manual.Hqx -rwxr-xr-x 1 mac_ftp 992 115759 Mar 14 15:45 tn31.Hqx -rwxr-xr-x 1 mac_ftp 992 59267 Mar 14 15:45 PlotSpool.Hqx -rwxr-xr-x 1 mac_ftp 992 95204 Mar 14 15:45 LSystem.Hqx -rwxr-xr-x 1 mac_ftp 992 56836 Mar 14 15:45 MacPersp.Hqx -rwxr-xr-x 1 mac_ftp 992 81074 Mar 14 15:45 HyperSpace.Hqx -rwxr-xr-x 1 mac_ftp 992 179138 Mar 14 15:45 LManual.Hqx found l-system ok ccu1.aukuni.ac.nz:mac/architec/