StoneDWG

;;--------------------------------------------------------------------------;;; FRACTAL ;;;--------------------------------------------------------------------------;;; Function Fractal by others, wish I could remember who did it to give;; them the credit.

Thank you, CAB, I have learned a lot from you~:)Thank you, Stonedwg, my friend. it seems that "AFRACT" is not defined, it cant be run.

Now I use the Julia algorithm in Fractal Theory to draw the pattern.The effect is as the picture.

But Now I find I get trouble in it.First, It seems that the calculation effect of the Lisp is not so good, compare to C or Fortran, it seems slow, is it the self disadvantige of Lisp, can it be improved?Second, I use (entmake_solid) to draw a square solid, it seems that I use the bitmap in vector software, somewhat strange, but when I use the point to draw, it is not so good.Nevertheless, I just feel release one thing, when start a work, if couldnt finish, it like burden. No matter it is beautiful or not, it can draw at least.

The algorithm is rather simple, but I learn to use true color in Acad again, thanks menzi for his getRGB function, thanks.

Can I ask a question, could it possible to read BMP picture's information and use cad point to draw the picture in ACAD with Lisp? I search, get find Reini Urban's standard library can do the binary file operation, but it is in arx or fas, I am not sure whether Lisp can do it, thank you~

A toy with a big inside gear, a series of small gear, there are some hole inside the small gear, then put one pen inside the small gear and let it rolling along the big one inside, then the pen draw beautiful pattern.

because I like it very much, so when my early learning on Lisp, I write the following code, though it is very simple, but it make some beautiful pattern:) , I hope you also like it.

;;; ========================================================================;;; The following code are writen by CHEN QING JUN ;;;; Civil engineering Department, South China University of Technology ;;;; Purpose: To draw some regular pattern, just for fun ;;;; something like one toy we play, put a pen in one hole that ;;;; inside a small gear, that moving the pen to let the small gear;;;; rolling along a big gear, then the pen draw beautiful pattern ;;;; I call this "kaleidoscope1" ;;;; The platform: Acad14 and after ;;;; Method: use the parameter to define the x y cordinate,just so ;;;; 2002.07.24 ;;;; Http://autolisper.googlepages.com ;;;; Http://qjchen.googlepages.com ;;;; Http://chenqj.blogspot.com ;;;; ========================================================================