ab6aec1997-02-11Fredrik Hübinette (Hubbe) cond([[ master()->programs["/precompiled/image"] ]], [[ test_true(programp(Image)) test_true(objectp(clone(Image))) test_true(objectp(clone(Image,10,10))) test_true(objectp(clone(Image,10,10,1,1,1))) test_eq(clone(Image,10,12)->xsize(),10)) test_eq(clone(Image,10,12)->ysize(),12)) test_true(objectp(clone(Image,10,10,1,1,1)->copy())) test_eq(clone(Image,10,12)->copy()->xsize(),10)) test_eq(clone(Image,10,12)->copy()->ysize(),12)) dnl test_true(objectp(clone(Image,10,10)->crop(2,2,3,3))) test_true(objectp(clone(Image,10,10)->autocrop())) test_true(objectp(clone(Image,10,10)->gray())) test_true(objectp(clone(Image,10,10)->color(2,2,4))) test_true(objectp(clone(Image,10,10)->invert())) test_true(objectp(clone(Image,10,10)->threshold(10,20,30))) dnl matrix test_true(objectp(clone(Image,10,10)->scale(2.1))) test_eq(clone(Image,10,12)->scale(2.0)->xsize(),20) test_eq(clone(Image,10,12)->scale(2.0)->ysize(),24) test_true(objectp(clone(Image,10,10)->scale(0.2))) test_true(objectp(clone(Image,10,10)->scale(2.0,0.2))) test_true(objectp(clone(Image,10,10)->scale(0.2,2.2))) test_true(objectp(clone(Image,10,10)->scale(0.2,2.2))) test_true(objectp(clone(Image,10,10)->scale(0.2,2.2))) test_eq(clone(Image,10,10)->scale(33,57)->xsize(),33) test_eq(clone(Image,10,10)->scale(33,57)->ysize(),57) test_true(stringp(clone(Image,10,10)->toppm())) dnl fromppm test_true(stringp(clone(Image,10,10)->toppm())) test_true(stringp(clone(Image,10,10)->togif())) test_true(objectp(clone(Image,10,10)->paste(clone(Image,3,3),2,3))) dnl past_alpha dnl past_mask test_do(clone(Image,10,10)->setcolor(2,2,2)) test_do(clone(Image,10,10)->setpixel(2,2,2,2,2)) test_do(clone(Image,10,10)->line(2,2,4,4,2,2,2)) test_do(clone(Image,10,10)->box(2,2,4,4,2,2,2)) test_do(clone(Image,10,10)->circle(2,2,4,4,2,2,2)) dnl tuned_box test_eq(clone(Image,10,10)->xsize(),10) test_eq(clone(Image,10,10)->ysize(),10) test_do(clone(Font)) test_do(clone(Font)->load("SRCDIR/testfont")) test_any(object o=clone(Font); o->load("SRCDIR/testfont"); return o->height(),19) test_any(object o=clone(Font); o->load("SRCDIR/testfont"); return o->write("foo")->xsize(),23) test_any(object o=clone(Font); o->load("SRCDIR/testfont"); return o->write("foo")->ysize(),20) dnl test_any(object o=clone(Font); o->load("SRCDIR/testfont"); o->write("foo"); clone(Image,100,100)->paste_alpha(o); return 1,1) ]])