Listing of gray.cgi



#! ../bin/wisp -ec
Content-type: text/html; charset=utf-8
|: (use strings) :|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head>
<title>Gray Scales (Sample eWisp run)</title>
<link type="text/css" href="../wisp.css" rel="stylesheet">
</head>
<body>
<h1>Gray Scales</h1>
<p>This is running on Wisp version [: wisp-version :] that was built at
about [: wisp-build :] by [: wisp-builder :] and
might or might not be the current version.</p>

<p>Look at the <a href='show.cgi?file=gray.cgi'>source code</a>.</p>

<p>Here's an automatically generated list of some gray tones:</p>
<table cellpadding=16 width='100%'>
|:
  (do ((row 0 (+ row 1)))
      ((>= row 8))
    (write-string "<tr>\n")
    (do ((col 0 (+ col 1)))
        ((>= col 8))
      (my i (+ (* col 32) (* row 4))
        (my hex-color (pad-left (integer->string i 16) 2 #\0)
          (set! hex-color (string-append hex-color hex-color hex-color))
          (print "<td style='background-color: #$,[hex-color]'><tt style='color: blue'>$,[hex-color]</tt></td>\n"))))
    (write-string "</tr>\n"))
:|
</table>
<hr>
<p>
  <a href='http://validator.w3.org/check/referer'><img
      src='/valid-html401.gif' alt='Valid HTML 4.01!'
      style='border: 0' width='88' height='31'></a>
  &nbsp;
  <a href="http://jigsaw.w3.org/css-validator/check/referer"><img
      src="/vcss.gif" alt="Valid CSS!"
      style='border: 0' width="88" height="31"></a>
</p>
</body>
</html>
|: ; vim: set ft=ewisp

This listing was generated by a Wisp script.
See the listing of the lister.
Validate this listing.