home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 March / PCWELT_3_2006.ISO / base / 05_common.mo / usr / share / elvis-2.2_0 / scripts / ellipse.ex < prev    next >
Encoding:
Text File  |  2004-02-22  |  834 b   |  27 lines
  1. "This script defines an :ellipse alias.  If invoked with two arguments,
  2. "they are assumed to be width & height.  If invoked with one argument,
  3. "it is assumed to be width, and the height is computed as half the width
  4. "(since in most fonts, characters are twice as high as they are wide).
  5. "With no arguments, it uses either textwidth or columns as the width.
  6. alias ellipse {
  7.   " draw an ellipse using * characters, of a given width and height.
  8.   local h w x y r s
  9.   let w = !(textwidth ? textwidth : columns)1
  10.   let h = !(w / 2)2
  11.   let y = h / 2
  12.   let r = (h * h * w * w) / 4
  13.   let x = 0
  14.   while y > 0
  15.   do {
  16.     while x * x * h * h + y * y * w * w <= r
  17.     do let x = x + 1
  18.     let s = (" " * (w/2 - x)); ("*" * (x * 2))
  19.     "let s = "i\n";s;"\n";s;"\n.\n"
  20.     "eval (s)
  21.     eval a ,(s)
  22.     eval i ,(s)
  23.     let y = y - 1
  24.   }
  25.   %s/^,
  26. }
  27.