Rename grf -> graphics.
Full names are better.
This commit is contained in:
@ -453,7 +453,7 @@ e: check-opcodes
|
||||
;e
|
||||
|
||||
e: check-desktop
|
||||
out: grf
|
||||
out: graphics
|
||||
check-args
|
||||
check-ansi
|
||||
;e
|
||||
@ -474,7 +474,7 @@ DEFINED? windows [IF]
|
||||
e: test-windows-forth-namespace
|
||||
internals voclist
|
||||
out: internals
|
||||
out: grf
|
||||
out: graphics
|
||||
out: ansi
|
||||
out: editor
|
||||
out: streams
|
||||
@ -513,7 +513,7 @@ e: test-posix-forth-namespace
|
||||
internals voclist
|
||||
out: sockets
|
||||
out: internals
|
||||
out: grf
|
||||
out: graphics
|
||||
out: ansi
|
||||
out: editor
|
||||
out: streams
|
||||
|
||||
@ -36,7 +36,7 @@
|
||||
\ Key/Button constants:
|
||||
\ LEFT-BUTTON MIDDLE-BUTTON RIGHT-BUTTON
|
||||
|
||||
vocabulary grf grf definitions
|
||||
vocabulary graphics graphics definitions
|
||||
vocabulary internals
|
||||
|
||||
0 constant IDLE
|
||||
@ -70,7 +70,7 @@ key-state key-count erase
|
||||
|
||||
: key-state! ( f k ) key-count mod key-state + c! ;
|
||||
|
||||
grf definitions also internals
|
||||
graphics definitions also internals
|
||||
|
||||
: pixel ( w h -- a ) width * + 4* backbuffer + ;
|
||||
|
||||
@ -28,7 +28,7 @@
|
||||
\ screen>g ( x y -- x' y' ) Transform screen to viewport
|
||||
|
||||
also internals
|
||||
grf definitions
|
||||
graphics definitions
|
||||
|
||||
0 value color
|
||||
|
||||
@ -62,7 +62,7 @@ gstack value gp
|
||||
top h 1- for left over w hline 1+ next drop
|
||||
;
|
||||
|
||||
grf definitions also internals
|
||||
graphics definitions also internals
|
||||
|
||||
: box { left top w h }
|
||||
left sx * tx + 16 rshift
|
||||
@ -13,7 +13,7 @@
|
||||
\ See the License for the specific language governing permissions and
|
||||
\ limitations under the License.
|
||||
|
||||
grf
|
||||
graphics
|
||||
|
||||
-1 -1 window
|
||||
|
||||
|
||||
@ -16,7 +16,7 @@
|
||||
\ Drawing:
|
||||
\ heart ( x y h -- )
|
||||
|
||||
grf internals definitions
|
||||
graphics internals definitions
|
||||
|
||||
\ For t = 0 to 2pi
|
||||
\ x = -16 to 16
|
||||
@ -79,7 +79,7 @@ heart-end heart-size 0 fill
|
||||
loop
|
||||
;
|
||||
|
||||
grf definitions also internals
|
||||
graphics definitions also internals
|
||||
|
||||
: heart 0 { x y s r }
|
||||
x sx * tx + 16 rshift
|
||||
|
||||
Reference in New Issue
Block a user