\ VP-patterns
\ Fill pattern definitions
\ 
\ $Id: VP-patterns.txt,v 1.1 2000/10/25 00:17:43 kris_johnson Exp $

\ Copyright 2000
\ Kristopher D. Johnson
\ 
\ See LICENSE-JacksOrBetter for the
\ conditions under which you may
\ use, redistribute, or modify this 
\ code, or create derived works.

docneeds VP-lib

.( VP-patterns... )

\ Quartus Forth 1.2.5R's built-in
\ WinSetPattern definition is
\ incorrect, so we'll fix it here
: WinSetPattern ( &CustomPatternType. -- )
  (hex) A224 systrap 2drop ;

create CardCustomPattern
binary
  10101010 c,
  01010101 c,
  10101010 c,
  01010101 c,
  10101010 c,
  01010101 c,
  10101010 c,
  01010101 c,
decimal

\ Set current window pattern to
\ card back pattern
: card-pattern ( -- )
  CardCustomPattern >abs
  WinSetPattern
;

