mplisp

miniPicoLisp with FFI and modules for Buddy BDD library, OpenGL, Gtk and GMP
git clone https://logand.com/git/mplisp.git/
Log | Files | Refs

rgb.l (735B)

      1 # 02sep99abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (de rgb (R G B . S)
      5    (def S (+ B (* G 256) (* R 65536))) )
      6 
      7 # Color Constant Definitions from "/usr/lib/X11/rgb.txt"
      8 (rgb 0     0   0 . Black)
      9 (rgb 0     0 255 . Blue)
     10 (rgb 165  42  42 . Brown)
     11 (rgb 0   100   0 . DarkGreen)
     12 (rgb 169 169 169 . DarkGrey)
     13 (rgb 190 190 190 . Grey)
     14 (rgb 173 216 230 . LightBlue)
     15 (rgb 211 211 211 . LightGrey)
     16 (rgb 255   0   0 . Red)
     17 (rgb 46  139  87 . SeaGreen)
     18 (rgb 255 255   0 . Yellow)
     19 
     20 (rgb 255 193 193 . RosyBrown1)
     21 (rgb 238 180 180 . RosyBrown2)
     22 (rgb 205 155 155 . RosyBrown3)
     23 (rgb 139 105 105 . RosyBrown4)
     24 
     25 (rgb 221 160 221 . Plum)
     26 (rgb 135 206 250 . LightSkyBlue)
     27 (rgb 245 222 179 . Wheat)
     28 (rgb 255 255 255 . White)
     29 (rgb 139   0   0 . DarkRed)