#CompoScript


loadimage <.composcript$dir>.Page
select "Page"
moveto 50 50

let bminpc = "20.0"
let bmaxpc = "50.0" 

redraw

star "WimpTask <.composcript$dir>.DeToxPageAccGreyScaled <.selected.imagebase> <bminpc> <bmaxpc> "

star "settype RAM::RamDisc0.$.P5output/pbm &69E"

redraw

end
