code: 9ferno

ref: 83246e296ea433b65b9d295b5e08fedd39ff1ab7
dir: /tests/drawexample1.b/

View raw version
# File: draw-example(2)

implement Test;

include "sys.m";
include "draw.m";

Test: module
{
	init:	fn(ctxt: ref Draw->Context, argv: list of string);
};

init(nil: ref Draw->Context, nil: list of string)
{
	sys := load Sys Sys->PATH;
	draw := load Draw Draw->PATH;
	Display, Font, Rect, Point, Image, Screen: import draw;

	display := draw->Display.allocate(nil);
	disp := display.image;
	red := display.color(Draw->Red);
	blue := display.color(Draw->Blue);
	white := display.color(Draw->White);
	yellow := display.color(Draw->Yellow);

#	red.r.max.x = 640;
#	red.r.max.y = 480;
#	red.clipr.min.x = 0;
#	red.clipr.min.y = 0;
#	red.clipr.max.x = 600;
#	red.clipr.max.y = 400;
	sys->print("red.clipr.min.x %d\n", red.clipr.min.x);
	disp.draw(disp.r, red, red, disp.r.min);
	sys->sleep(5000);

#	texture := display.newimage(((0,0),(2,3)),
#			disp.chans, 1, Draw->Black);
#	texture.clipr = ((-10000,-10000),(10000,10000));
#	texture.draw(((0,0),(1,3)), white, nil, (0,0));
#	texture.draw(((0,0),(2,1)), white, nil, (0,0));
#	disp.draw(((100,100),(200,300)), texture, texture, (0,0));
#	sys->sleep(5000);
#
#	stipple := display.newimage(((0,0),(2,2)),
#			disp.chans, 1, Draw->Transparent);
#	stipple.draw(((0,0),(1,1)), display.opaque, nil, (0,0));
#	disp.draw(((100,100),(300,250)), white, stipple, (0,0));
#	sys->sleep(5000);
#
#	font := Font.open(display, "*default*");
#	disp.text((100,310), texture, (0,0), font, "Hello World");
#	sys->sleep(5000);
#
#	delight := display.open("/icons/delight.bit");
#	piccenter := delight.r.min.add(delight.r.max).div(2);
#	disp.fillellipse((250,250), 150, 50, delight, piccenter);
#	disp.ellipse((250,250), 150, 50, 3, yellow, (0,0));
#	sys->sleep(5000);
#
#	dx : con 15;
#	dy : con 3;
#	brush := display.newimage(((0,0),(2*dx+1,2*dy+1)), disp.chans,
#					0, Draw->Black);
#	brush.fillellipse((dx,dy), dx, dy, display.white, (0,0));
#	for(x:=delight.r.min.x; x<delight.r.max.x; x++){
#		y := (x-piccenter.x)*(x-piccenter.x)/80;
#		y += 2*dy+1;
#		xx := x+(250-piccenter.x)-dx;
#		yy := y+(250-piccenter.y)-dy;
#		disp.gendraw(((xx,yy),(xx+2*dx+1,yy+2*dy+1)),
#				delight, (x-dx, y-dy), brush, (0,0));
#	}
}