vslices.beads

beads 1 program vslice

var g : a_date

calc main_init
	loom_timer(do_tick, delay:0 sec, interval:1 sec, reps:INFINITY)

calc do_tick
	merge seconds_to_date() ===> g

vert slice big_block
	add 10 al do_header
	skip 2 pt
	add 80 al do_body
	skip 2 pt
	add 20 pt do_footer

horz slice footer_block
	add 50 al do_footerl
	skip 2 pt
	add 50 al do_footerr

draw main_draw
	big_block

draw do_header
	draw_rect(fill:TOMATO)
	draw_str("HEADER",size:24 pt)

draw do_body
	draw_rect(fill:BEIGE)
	draw_str("{b.box.width} x {b.box.height}", size:24 pt, bold:Y, color:BLUE)

draw do_footer
	footer_block

draw do_footerl
	draw_rect(fill:LIGHT_SKY_BLUE)

draw do_footerr
	draw_rect(fill:LIGHT_PINK)
	draw_str("{g.date_hour}:{g.date_minute}:{g.date_second} ", size:48 pt, color:RED, bold:Y)