Lisaac prototype interface

Lisaac^TM Platform

AREA_MASK

Mask Window Clipping.

Inherit/Insert Summary
`parent_area`
`parent_video` No developed. ABSTRACT_BITMAP := ABSTRACT_BITMAP;
`parent_inbox` No developed.

Constructor Summary
`create size`

Slot Summary
`mask`
`clear_mask`
`height`
`width`
`clip_x0`
`clip_y0`
`clip_x1`
`clip_y1`
`spot_x`
`spot_y`
`parent` Englobe window.
`child` First children.
`prev` Previous window.
`next` Next window. +-parent---------------------+ \| +-self-----------\| \| +-next---\| \| \| \| \| +-child--+ \| \| \| \| \| \| \| \| \| \| +--------+ \| \| \| \| +-prev--------\| \| \| +--\| \| \| +-----------\| \| \| \| \| +----------------------------+
`plan`
`clip` Cash clip zone. Current window absolute position.
`x_window`
`y_window`
`debug_display`
`get_x_window`
`get_y_window`
`list_plan`
`list_x`
`list_y`
`display_list_x`
`last_clip`
`first_clip`
`top_clip`
`debug`
`margin_clip_x0`
`margin_clip_y0`
`margin_clip_x1`
`margin_clip_y1`
`redraw to`
`draw to`
`refresh`
`get_object`
`receive` Default.

Creation
`make from size`
`resize` Resize window.

Master display (Build mask)
`pixel_hard color`
`line_h_hard until color`
`line_h_hard until image offset`

Slave display (Use Mask)
`slave_pixel_hard color`
`slave_line_h_hard until color`
`slave_line_h_hard until image offset`
`mask_draw to color`

Redefine BITMAP. Size zone.
`x_min`
`y_min`
`x_max`
`y_max`

Window links.
`set_next`
`set_prev`
`set_child`

Delete window
`delete`

Moving window
`update from size`
`move`
`set_position`

First window
`first` put first plan window.
`get_window` Get object pointer by (X,Y).

list_plan={plan1,plan2} . plan1+---------------Y---------+ \| . \| \| plan2+----Y-----------------+ \| \| . : \| \| \| . : \| \| \| . : \| .....X..........X..............X.......X.....list_x \| \| . : \| \| \| . : \| \| +----Y-----------------+ \| . \| +---------------Y---------+ . list_y
`stack_plan`

\| \| \| top_clip \| \| \| +-----------+ +------------+ +-----------+ +-----------+ \| \| \| \| \| \| \| first_clip \| ... \| last_clip \| \| NEW \| \| \| \| \| \| \| +------------+ +-----------+ +-----------+
`add_clip from to`
`remove_plan`
`append_plan`
`update_plan`
`creat_clip`
`clip_next_child`
`clip_type1`
`sub_delete`
`sub_move`
`sub_resize`

get_clip x,y : [clip] X#####+-------++-------+ \| #\| \|\| \| \| #\| \|\| \| +----#######--++-------+ +---------+#-----------+ \| \|# \| \| \|####>X(x,y) \| \| \|\| \| +---------++-----------+
`get_clip` Find clip (x,y), begin search is `clip`.

Inherit/Insert Detail

parent_area

.../extra/gui/clipping/area_mask.li line #14
Section:: Inherit
Profile:: + Self: SELF. parent_area :Expanded AREA

parent_video

.../extra/gui/clipping/area.li line #14
Section:: Inherit
Profile:: - Self: SELF. parent_video : VIDEO
Description:: ABSTRACT_BITMAP := ABSTRACT_BITMAP;

parent_inbox

.../extra/gui/clipping/area.li line #16
Section:: Inherit
Profile:: - Self: SELF. parent_inbox : INBOX

Constructor Detail

create size

.../extra/gui/clipping/area.li line #291
Section:: Public
Profile:: - Self: SELF. create ( x : INTEGER, y : INTEGER) size ( w : INTEGER, h : INTEGER) : AREA

Detail slot

mask

.../extra/gui/clipping/area_mask.li line #18
Section:: Public
Profile:: + Self: SELF. mask : FAST_ARRAY( FAST_ARRAY( UINTEGER_16))

clear_mask

.../extra/gui/clipping/area_mask.li line #20
Section:: Public
Profile:: - Self: SELF. clear_mask

height

.../extra/gui/clipping/area.li line #32
Section:: Public
Profile:: + Self: SELF. height : INTEGER

width

.../extra/gui/clipping/area.li line #33
Section:: Public
Profile:: + Self: SELF. width : INTEGER

clip_x0

.../extra/gui/clipping/area.li line #41
Section:: Public
Profile:: + Self: SELF. clip_x0 : INTEGER

clip_y0

.../extra/gui/clipping/area.li line #42
Section:: Public
Profile:: + Self: SELF. clip_y0 : INTEGER

clip_x1

.../extra/gui/clipping/area.li line #43
Section:: Public
Profile:: + Self: SELF. clip_x1 : INTEGER

clip_y1

.../extra/gui/clipping/area.li line #44
Section:: Public
Profile:: + Self: SELF. clip_y1 : INTEGER

spot_x

.../extra/gui/clipping/area.li line #47
Section:: Public
Profile:: + Self: SELF. spot_x : INTEGER

spot_y

.../extra/gui/clipping/area.li line #48
Section:: Public
Profile:: + Self: SELF. spot_y : INTEGER

parent

.../extra/gui/clipping/area.li line #181
Section:: Public
Profile:: + Self: SELF. parent : AREA
Description:: Englobe window.

child

.../extra/gui/clipping/area.li line #182
Section:: Public
Profile:: + Self: SELF. child : AREA
Description:: First children.

.../extra/gui/clipping/area.li line #183
Section:: Public
Profile:: + Self: SELF. prev : AREA
Description:: Previous window.

.../extra/gui/clipping/area.li line #184
Section:: Public
Profile:: + Self: SELF. next : AREA
Description:: Next window. +-parent---------------------+ | +-self-----------| | +-next---| | | | | +-child--+ | | | | | | | | | | +--------+ | | | | +-prev--------| | | +--| | | +-----------| | | | | +----------------------------+

plan

.../extra/gui/clipping/area.li line #198
Section:: Public
Profile:: + Self: SELF. plan : PLAN

clip

.../extra/gui/clipping/area.li line #199
Section:: Public
Profile:: + Self: SELF. clip : CLIP
Description:: Cash clip zone. Current window absolute position.

x_window

.../extra/gui/clipping/area.li line #202
Section:: Public
Profile:: + Self: SELF. x_window : INTEGER

y_window

.../extra/gui/clipping/area.li line #203
Section:: Public
Profile:: + Self: SELF. y_window : INTEGER

debug_display

.../extra/gui/clipping/area.li line #222
Section:: Public
Profile:: - Self: SELF. debug_display

get_x_window

.../extra/gui/clipping/area.li line #233
Section:: Public
Profile:: - Self: SELF. get_x_window : INTEGER

get_y_window

.../extra/gui/clipping/area.li line #244
Section:: Public
Profile:: - Self: SELF. get_y_window : INTEGER

list_plan

.../extra/gui/clipping/area.li line #546
Section:: AREA
Profile:: - Self: SELF. list_plan : PLAN

list_x

.../extra/gui/clipping/area.li line #547
Section:: AREA
Profile:: - Self: SELF. list_x : LIMIT_X

list_y

.../extra/gui/clipping/area.li line #548
Section:: AREA
Profile:: - Self: SELF. list_y : LIMIT_Y

display_list_x

.../extra/gui/clipping/area.li line #550
Section:: AREA
Profile:: - Self: SELF. display_list_x

last_clip

.../extra/gui/clipping/area.li line #586
Section:: AREA
Profile:: - Self: SELF. last_clip : CLIP

first_clip

.../extra/gui/clipping/area.li line #587
Section:: AREA
Profile:: - Self: SELF. first_clip : CLIP

top_clip

.../extra/gui/clipping/area.li line #588
Section:: AREA
Profile:: - Self: SELF. top_clip : CLIP

debug

.../extra/gui/clipping/area.li line #1015
Section:: AREA
Profile:: - Self: SELF. debug : BOOLEAN

margin_clip_x0

.../extra/gui/clipping/area.li line #1110
Section:: Public
Profile:: - Self: SELF. margin_clip_x0 : INTEGER

margin_clip_y0

.../extra/gui/clipping/area.li line #1111
Section:: Public
Profile:: - Self: SELF. margin_clip_y0 : INTEGER

margin_clip_x1

.../extra/gui/clipping/area.li line #1112
Section:: Public
Profile:: - Self: SELF. margin_clip_x1 : INTEGER

margin_clip_y1

.../extra/gui/clipping/area.li line #1113
Section:: Public
Profile:: - Self: SELF. margin_clip_y1 : INTEGER

redraw to

.../extra/gui/clipping/area.li line #1115
Section:: Public
Profile:: - Self: SELF. redraw ( x0 : INTEGER, y0 : INTEGER) to ( x1 : INTEGER, y1 : INTEGER)

draw to

.../extra/gui/clipping/area.li line #1165
Section:: Public
Profile:: - Self: SELF. draw ( x0 : INTEGER, y0 : INTEGER) to ( x1 : INTEGER, y1 : INTEGER)

refresh

.../extra/gui/clipping/area.li line #1170
Section:: Public
Profile:: - Self: SELF. refresh

get_object

.../extra/gui/clipping/area.li line #1177
Section:: Public
Profile:: - Self: SELF. get_object ( x : INTEGER, y : INTEGER) : AREA

receive

.../extra/gui/clipping/area.li line #1196
Section:: Public
Profile:: - Self: SELF. receive msg : EVENT
Description:: Default.

Creation

make from size

.../extra/gui/clipping/area_mask.li line #31
Section:: Public
Profile:: - Self: SELF. make father : AREA from ( x0 : INTEGER, y0 : INTEGER) size ( w : INTEGER, h : INTEGER)

resize

.../extra/gui/clipping/area_mask.li line #40
Section:: Public
Profile:: - Self: SELF. resize ( w : INTEGER, h : INTEGER)
Description:: Resize window.

Master display (Build mask)

pixel_hard color

.../extra/gui/clipping/area_mask.li line #54
Section:: Public
Profile:: - Self: SELF. pixel_hard ( x : INTEGER, y : INTEGER) color col : UINTEGER_32

line_h_hard until color

.../extra/gui/clipping/area_mask.li line #60
Section:: Public
Profile:: - Self: SELF. line_h_hard ( x0 : INTEGER, y0 : INTEGER) until x1 : INTEGER color col : UINTEGER_32

line_h_hard until image offset

.../extra/gui/clipping/area_mask.li line #66
Section:: Public
Profile:: - Self: SELF. line_h_hard ( x0 : INTEGER, y0 : INTEGER) until x1 : INTEGER image line : ABSTRACT_BMP_LINE offset ofs : INTEGER

Slave display (Use Mask)

slave_pixel_hard color

.../extra/gui/clipping/area_mask.li line #77
Section:: Public
Profile:: - Self: SELF. slave_pixel_hard ( x : INTEGER, y : INTEGER) color col : UINTEGER_32

slave_line_h_hard until color

.../extra/gui/clipping/area_mask.li line #92
Section:: Public
Profile:: - Self: SELF. slave_line_h_hard ( x1 : INTEGER, y : INTEGER) until x2 : INTEGER color col : UINTEGER_32

slave_line_h_hard until image offset

.../extra/gui/clipping/area_mask.li line #130
Section:: Public
Profile:: - Self: SELF. slave_line_h_hard ( x1 : INTEGER, y : INTEGER) until x2 : INTEGER image line : ABSTRACT_BMP_LINE offset ofs : INTEGER

mask_draw to color

.../extra/gui/clipping/area_mask.li line #169
Section:: Public
Profile:: - Self: SELF. mask_draw ( x0 : INTEGER, y0 : INTEGER) to ( x1 : INTEGER, y1 : INTEGER) color col : UINTEGER_32

Redefine BITMAP.
Size zone.

x_min

.../extra/gui/clipping/area.li line #35
Section:: Public
Profile:: - Self: SELF. x_min : INTEGER

y_min

.../extra/gui/clipping/area.li line #36
Section:: Public
Profile:: - Self: SELF. y_min : INTEGER

x_max

.../extra/gui/clipping/area.li line #37
Section:: Public
Profile:: - Self: SELF. x_max : INTEGER

y_max

.../extra/gui/clipping/area.li line #38
Section:: Public
Profile:: - Self: SELF. y_max : INTEGER

Window links.

set_next

.../extra/gui/clipping/area.li line #205
Section:: Public
Profile:: - Self: SELF. set_next new : AREA

set_prev

.../extra/gui/clipping/area.li line #210
Section:: Public
Profile:: - Self: SELF. set_prev new : AREA

set_child

.../extra/gui/clipping/area.li line #215
Section:: Public
Profile:: - Self: SELF. set_child new : AREA

Delete window

delete

.../extra/gui/clipping/area.li line #305
Section:: Public
Profile:: - Self: SELF. delete

Moving window

update from size

.../extra/gui/clipping/area.li line #335
Section:: Public
Profile:: - Self: SELF. update father : AREA from ( x0 : INTEGER, y0 : INTEGER) size ( w : INTEGER, h : INTEGER)

move

.../extra/gui/clipping/area.li line #345
Section:: Public
Profile:: - Self: SELF. move ( x : INTEGER, y : INTEGER)

set_position

.../extra/gui/clipping/area.li line #383
Section:: Public
Profile:: - Self: SELF. set_position ( x : INTEGER, y : INTEGER)

First window

first

.../extra/gui/clipping/area.li line #432
Section:: Public
Profile:: - Self: SELF. first
Description:: put first plan window.

get_window

.../extra/gui/clipping/area.li line #517
Section:: Public
Profile:: - Self: SELF. get_window ( x : INTEGER, y : INTEGER) : AREA
Description:: Get object pointer by (X,Y).

list_plan={plan1,plan2}
. plan1+---------------Y---------+ | . | | plan2+----Y-----------------+ | | . : | | | . : | | | . : | .....X..........X..............X.......X.....list_x | | . : | | | . : | | +----Y-----------------+ | . | +---------------Y---------+ . list_y

stack_plan

.../extra/gui/clipping/area.li line #584
Section:: AREA
Profile:: - Self: SELF. stack_plan : FAST_ARRAY( PLAN)

| | | top_clip | | | +-----------+ +------------+ +-----------+ +-----------+ | | | | | | | first_clip | ... | last_clip | | NEW | | | | | | | +------------+ +-----------+ +-----------+

add_clip from to

.../extra/gui/clipping/area.li line #600
Section:: AREA
Profile:: - Self: SELF. add_clip win : AREA from ( xmin : INTEGER, ymin : INTEGER) to ( xmax : INTEGER, ymax : INTEGER)

remove_plan

.../extra/gui/clipping/area.li line #639
Section:: AREA
Profile:: - Self: SELF. remove_plan

append_plan

.../extra/gui/clipping/area.li line #655
Section:: AREA
Profile:: - Self: SELF. append_plan

update_plan

.../extra/gui/clipping/area.li line #744
Section:: AREA
Profile:: - Self: SELF. update_plan

creat_clip

.../extra/gui/clipping/area.li line #812
Section:: AREA
Profile:: - Self: SELF. creat_clip

clip_next_child

.../extra/gui/clipping/area.li line #940
Section:: AREA
Profile:: - Self: SELF. clip_next_child

clip_type1

.../extra/gui/clipping/area.li line #951
Section:: AREA
Profile:: - Self: SELF. clip_type1

sub_delete

.../extra/gui/clipping/area.li line #959
Section:: AREA
Profile:: - Self: SELF. sub_delete

sub_move

.../extra/gui/clipping/area.li line #978
Section:: AREA
Profile:: - Self: SELF. sub_move ( x : INTEGER, y : INTEGER)

sub_resize

.../extra/gui/clipping/area.li line #991
Section:: AREA
Profile:: - Self: SELF. sub_resize

get_clip x,y :
[clip] X#####+-------++-------+ | #| || | | #| || | +----#######--++-------+ +---------+#-----------+ | |# | | |####>X(x,y) | | || | +---------++-----------+

get_clip

.../extra/gui/clipping/area.li line #1017
Section:: AREA
Profile:: - Self: SELF. get_clip ( x : INTEGER, y : INTEGER) : CLIP
Description:: Find clip (x,y), begin search is clip.