//
// pbInternalBatchRender
//
// Created for a demand from prophet118
//
// Initial version written by datagram
// Finished by utak3r < piotr.borys (at) gmail (dot) com >
//

//width, height
w := 1024;
h := 768;

//quality, filter radius, oversample, filetype
q := 1000;
f := 0.4;
o := 2;
t := 'png';


if not InputQuery('Rendering parameter', 'Render Width :', w) then exit;
if not InputQuery('Rendering parameter', 'Render Height :', h) then exit;

if not InputQuery('Rendering parameter', 'Render Quality :', q) then exit;
if not InputQuery('Rendering parameter', 'Filter Radius :', f) then exit;
if not InputQuery('Rendering parameter', 'Oversample :', o) then exit;

if not InputQuery('Rendering parameter', 'Filetype (jpg/png/ppm) :', t) then exit;

for j := 0 to FileCount - 1 do
begin
LoadFlame(j);

Renderer.Width := w;
Renderer.Height := h;
Flame.FilterRadius := f;
Flame.SampleDensity := q;
Flame.Oversample := o;

SetRenderBounds;

Renderer.Filename := INSTALLPATH + Flame.Name + '.' + t;
Render;
end;

UpdateFlame := False;