Action

Create a filled box on a graphical display.

 

 

Syntax

BOX (x1,y1) - (x2,y2) , color

 

 

Remarks

 

On COLOR displays, the box will be filled with the specified color.

On B&W displays, the box will not be filled. Only the box is drawn in the specified color.

On B&W displays you can use the BOXFILL statement to create a solid box.

 

 

See also

LINE, CIRCLE , BOXFILL

 

 

ASM

NONE

 

 

Example

' ----------------------------------------------------------------------------------------

' The support for this display has been made possible by Peter Küsters from (c) Display3000

' You can buy the displays from Display3000 or MCS Electronics

' ----------------------------------------------------------------------------------------'

'

$lib "lcd-pcf8833.lbx"                                     'special color display support

 

$regfile = "m88def.dat"                                   'ATMega 8, change if using different processors

$crystal = 8000000                                         '8 MHz

 

'First we define that we use a graphic LCD

Config Graphlcd = Color , Controlport = Portc , Cs = 1 , Rs = 0 , Scl = 3 , Sda = 2

 

'here we define the colors

 

Const Blue = &B00000011                                     ''predefined contants are making programming easier

Const Yellow = &B11111100

Const Red = &B11100000

Const Green = &B00011100

Const Black = &B00000000

Const White = &B11111111

Const Brightgreen = &B00111110

Const Darkgreen = &B00010100

Const Darkred = &B10100000

Const Darkblue = &B00000010

Const Brightblue = &B00011111

Const Orange = &B11111000

 

 

'clear the display

Cls

 

'create a cross

Line(0 , 0) -(130 , 130) , Blue

Line(130 , 0) -(0 , 130) , Red

 

Waitms 1000

 

'show an RLE encoded picture

Showpic 0 , 0 , Plaatje

Showpic 40 , 40 , Plaatje

 

Waitms 1000

 

'select a font

Setfont Color16x16

'and show some text

Lcdat 100 , 0 , "12345678" , Blue , Yellow

 

 

Waitms 1000

Circle(30 , 30) , 10 , Blue

 

Waitms 1000

'make a box

Box(10 , 30) -(60 , 100) , Red

 

'set some pixels

Pset 32 , 110 , Black

Pset 38 , 110 , Black

Pset 35 , 112 , Black

 

End

 

 

Plaatje:

$bgf "a.bgc"

 

$include "color.font"

$include "color16x16.font"