Commit ab406623 authored by bp's avatar bp

compileable with VFX again

git-svn-id: https://forth-ev.de/repos/bigforth@2499 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent b770aedb
This diff is collapsed.
......@@ -96,7 +96,7 @@ FVariable rho 0e rho f!
THEN
LOOP ;
: phis ( n m -- )
: phis ( n m -- ) \ print mm/s
dup negate 1+ ?DO
pi I I' 1- fm*/ phi0 f!
dup integrate phi0 f@ pi f/ 180e f* f.
......
\ helper words for VFX Forth
s" /usr/share/doc/VfxForth/Lib" s" Lib" replaces
\ =============
\ *! vfxharness
\ *T Portability layer for VFX Forth
......@@ -58,7 +60,7 @@ ans-float
\ *G Convert a floating point number to ASCII text. This
\ ** still needs furthr processing according to the required
\ ** presentation mode to insert a decimal point and so on.
pad dup f>ascii ;
precision (f.) ;
Code f>r \ F: f -- ; R: -- f
\ *G Transfer a float to the return stack.
......
......@@ -220,8 +220,8 @@ how:
1 and IF swap-id THEN
w id @ dup XftFont ascent @ swap XftFont descent @ + ;
: draw ( addr u x y dpy -- ) { addr u x y dpy }
x -$8000 $7FFF within
y -$8000 $7FFF within and IF
x $-8000 $7FFF within
y $-8000 $7FFF within and IF
color @ $FF and dpy set-color
dpy displays with
xft-draw @ 0= IF
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment