BOX

BOX

Top  Previous  Next

Action

Create a filled box on a graphical display.

 

 

Syntax

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

 

 

Remarks

x1

The left corner position of the box

y1

The top position of the box

x2

The right corner position of the box

y2

The bottom position of the box

color

The color to use to fill the box

 

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"