Humboldt-Universität zu Berlin - Faculty of Mathematics and Natural Sciences - Strukturforschung / Elektronenmikroskopie

test_ExpSize.txt

number width=500, height=500
Image img

result("Time at which script started: "+getTime(1)+"\n")
// Do the image computation with an explicit double loop
if (0) {
number ix,iy
img:= CreateFloatImage("test image",width,height);
for (ix=0;ix<width;ix++) {
for (iy=0;iy<height;iy++) {
SetPixel(img,ix,iy,cos(0.3*ix)*cos(0.1*iy))
}
}
}
// Compute the image using a single line
else {
img:=ExprSize(width,height,cos(0.3*icol)*cos(0.1*irow))
}
result("Time at which script ended: "+getTime(1)+"\n")

showimage(img)