Gradient hatching a lake

[fredw]

I would like to gradian hatch a lake in a drawing. To do this the lake would be solid all the way round the outside to nothing in the middle. I cannot get the regular gradiant hatching to do this. Any ideas appreciated..

Fred

[Glenn Pope]

Gradient hatching, although very useful, are very limited. If you dealing with something other then a square or circle, it can get very tricky getting it to look good.

This will require more then one hatch to do this. The quickest way I can think of is to draw a inner circle or ellipse inside the like area. The outside area would be hatched with a solid color. Then in the circle or ellipse use the gradient hatch. The darkest color of the gradient will match the solid hatch and go to white.

If you need more of an example, post the outline of the like.

[richardtt33978]

On another forum (eng-tips) back in FEB 2003, CarlB wrote LISP for another guy.
It was called "spray" ......

Pretty much you load this LISP and move your cursor around as it drops points on the DWG.
I believe if you use this LISP it will produce the effect you want. (Only downfall is the file size... and maybe the spread control ... similar to a spray paint can ....)

Hope this helps.
Check it out.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

(princ "Type SPRAY to start")
(defun c:spray ()
   (setvar "cmdecho" 0)
   (setq CurRead T TimeTol 0.0000002)
   (setq OldTime (getvar "CDATE"))
   (while CurRead
       (setq ReadStuff (grread T 5 0)
             NewTime (getvar "CDATE")
             DeltaTime (- NewTime OldTime)
             SprayFlag (if (> DeltaTime TimeTol) T nil)
       );
       (if (/= (car ReadStuff) 5) (setq CurRead nil))
       (if SprayFlag
         (progn
           (setq Pt (cadr ReadStuff))
           (entmake (list '(0 . "POINT") (cons 10 Pt)))
           ;;(command "point" Pt)
           (setq OldTime NewTime)
         );progn
       );if
    );while
    (princ)
);defun