flags=0x240

symbols

surface tvscreen
thing camthing

message startup
message pulse

end

code

startup:
aspect = 16/9;
height = 128;
width = height*aspect;

darklinesbmp = BitmapCreate(width, height);
BitmapClear(darklinesbmp, "0 0 0 0");// transparent

for(y=0; y<height; y=y+2)
  BitmapDrawLine(darklinesbmp, 0, y, width, y, "0 0 0 " + tostring(0.3 + 0.01*(rand()-0.5)), 1.0);

lightlinesbmp = BitmapCreate(width, height);
BitmapClear(lightlinesbmp, "0 0 0 0");// transparent

for(y=1; y<height; y=y+2)
  BitmapDrawLine(lightlinesbmp, 0, y, width, y, "0.01 0.3 0.01 " + tostring(0.6 + 0.01*(rand()-0.5)), 1.0);

setpulse(0.01);
return;

pulse:
bmp = BitmapRenderWorld(camthing, width, height, 70);

BitmapDrawBitmap(bmp, darklinesbmp);
//BitmapDrawBitmap(bmp, lightlinesbmp);

BitmapGenerateMat(bmp, "rendertest.mat", "dflt.cmp", 0, lightlinesbmp);
BitmapDestroy(bmp);

SetSurfaceMat(tvscreen, "rendertest.mat");
return;

end