forthvector
Forth vocabulary for vector graphics
- raw LICENSE
- raw ReadMe.md
- raw demo1.fs
- raw demo2.fs
- raw demo3.fs
- raw demo4.fs
- raw graphprim.fs
- raw package.4th
- raw sincos.fs
- raw tek.fs
- raw turtle.fs
\ graphics primitives : line ( x2 y2 x1 y1 -- ) GS at at US ; : rectangle ( x y xw yw -- ) GS 2 pick + swap 3 pick + swap 2over 2over swap drop 2 pick swap line 2over 2over drop over line 2over swap drop 2 pick swap 2over line rot drop swap over line US ; : square ( x y w -- ) dup rectangle ; : filled-rectangle ( x y xw yw -- ) GS 2 pick + swap 3 pick + swap dup 3 pick do 3 pick i 3 pick i line loop 2drop 2drop US ;