Allegro Bindings for RetroForth                                                                                                 These bindings provide the basic drawing primitives for you to  use. You will need either the Generic+FFI or Windows ports to   use this. Also, you will need to modify line 0 of block 1 to    match the name of the dll or shared library for Allegro on your system.                                                                                                                         from alleg40.dll                                                 3 import install_allegro    5 import set_gfx_mode               1 import set_color_depth    1 import set_window_title           4 import putpixel           3 import getpixel                   6 import line                                                   5 import hline              5 import vline                      8 import triangle           4 import polygon                   n e                                                              6 import rect               6 import rectfill                   5 import circle             5 import circlefill                 6 import ellipse            6 import ellipsefill                7 import arc                4 import floodfill                  0 import screen             ' screen 5 + @ : canvas literal @ ;                                                                                                                                n e                                                             : initAllegro 0 pad 0 install_allegro ;                         : setColorDepth set_color_depth drop ;                          : setGfxMode 0 0 set_gfx_mode drop ;                            : title s" canvas" zt set_window_title drop ;                   : allegro initAllegro 8 setColorDepth 600 400 setGfxMode title ;                                                                                                                                                                                                