MAXIMA/mycolorlerp1.mac (htmlized)

Warning: this is an htmlized version!
The original is here, and
the conversion rules are here.

/*
 * This file:
 *   http://anggtwu.net/MAXIMA/mycolorlerp1.mac.html
 *   http://anggtwu.net/MAXIMA/mycolorlerp1.mac
 *          (find-angg "MAXIMA/mycolorlerp1.mac")
 * Author: Eduardo Ochs <eduardoochs@gmail.com>
 *
 * (defun e () (interactive) (find-angg "MAXIMA/mycolorlerp1.mac"))
*/

/* (find-angg "MAXIMA/mycolorlerp1.lisp")
*/
load       ("~/MAXIMA/mycolorlerp1.lisp");

fromwhite1(color1, t)  := my_color_lerp("#ffffff", color1, t);
fromwhite (color1, ts) := makelist(fromwhite1(color1, t), t, ts);

/*
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
** (find-angg "MAXIMA/mycolorlerp1.mac")
load       ("~/MAXIMA/mycolorlerp1.mac");

** light pink, pink, red:
fromwhite ("#ff0000", [0.1, 0.5, 1]);

*/