;Place a revision cloud.
;	Author:
;		Henry C. Francis
;		425 N. Ashe St.
;		Southern Pines, NC 28387
;	http://www.pinehurst.net/~pfrancis
;	e-mail hfrancis@pinehurst.net
;	All rights reserved.
(DEFUN C:CLOUD(/ FIRST SECOND THIRD S)
  (SETVAR "CMDECHO" 0)
  (IF C:SVLAYR NIL (LOAD"MKLAYR"))
  (C:SVLAYR)
  (SETQ COLR "2" MODF "CLOUD")
  (C:MKLAYR)
  (SETQ FIRST 1)
  (SETQ SECOND (GETPOINT "\nStarting point "))
  (SETQ THIRD (GETPOINT "\nNext point "))
  (WHILE (< FIRST 10)
    (COMMAND "ARC" SECOND "E" THIRD "A" 100)
    (SETQ SECOND THIRD)
    (SETQ THIRD NIL)
    (PROMPT "\nNext point ")
    (SETQ THIRD (GETPOINT))
    (SETQ FIRST 11)
    (IF (BOUNDP (quote THIRD))
      (SETQ FIRST 1)
    );IF
  );WHILE
  (IF
    (SETQ FOURTH (UPOINT 0 "" "\nSymbol insertion point " NIL NIL))
    (PROGN
      (SETQ S (GETSTRING "\nRevision number "))
      (SETQ COLR "6" MODF "NOTE")
      (C:MKLAYR)
      (SETQ SC (GETVAR "DIMSCALE"))
      (SETQ FIFTH (* 0.073835 SC))
      (SETQ SIXTH (* 0.125 SC))
      (COMMAND "osnap" "none")
      (COMMAND "INSERT" "TRIANGLE" FOURTH SC SC "0")
      (COMMAND "TEXT" "M" FOURTH SIXTH "0" S)
    );PROGN
  );IF
  (SETVAR "CMDECHO" 1)
  (C:RSLAYR)
  (PRINC)
);DEFUN