Subversion Repositories public iLand

/********************************************************************************************
**    iLand - an individual based forest landscape and disturbance model
**    http://iland.boku.ac.at
**    Copyright (C) 2009-  Werner Rammer, Rupert Seidl
**
**    This program is free software: you can redistribute it and/or modify
**    it under the terms of the GNU General Public License as published by
**    the Free Software Foundation, either version 3 of the License, or
**    (at your option) any later version.
**
**    This program is distributed in the hope that it will be useful,
**    but WITHOUT ANY WARRANTY; without even the implied warranty of
**    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
**    GNU General Public License for more details.
**
**    You should have received a copy of the GNU General Public License
**    along with this program.  If not, see <http://www.gnu.org/licenses/>.
********************************************************************************************/
#include "firescript.h"
#include "firemodule.h"
#include "helper.h"

/** @class FireScript
    @ingroup firemodule
    FireScript is the scripting shell for the fire module.
  */
FireScript::FireScript(QObject *parent) :
    QObject(parent)
{
    mFire = 0;
}

double FireScript::ignite(double x, double y, double firesize, double windspeed, double winddirection)
{
    double result=-1.;
    if (x>=0 && y>=0) {
        result = mFire->prescribedIgnition(x, y, firesize, windspeed, winddirection);
        qDebug() << "FireeBvent triggered by javascript: " << x << y << firesize << windspeed << winddirection;
    } else {
        //int idx, gen, refill;
        //RandomGenerator::debugState(idx, gen, refill);
        //qDebug() << "before-ignite:" << idx << gen << refill;

        int old_id = mFire->fireId();
        bool only_ignite = firesize == -1;
        result = mFire->ignition(only_ignite);
        if (mFire->fireId() != old_id)
            qDebug() << "Burning fire triggered from javascript!" << result;
       }
    return result;
}

QString FireScript::fireRUValueType=QLatin1String("");

QString fireRUValue(const FireRUData &data) {
    if (FireScript::fireRUValueType=="kbdi") return QString::number(data.kbdi());
    if (FireScript::fireRUValueType=="dbh") return QString::number(data.fireRUStats.avg_dbh);
    if (FireScript::fireRUValueType=="crownkill") return QString::number(data.fireRUStats.crown_kill);
    if (FireScript::fireRUValueType=="basalarea") return QString::number(data.fireRUStats.basal_area>0?data.fireRUStats.died_basal_area / data.fireRUStats.basal_area:0.);
    if (FireScript::fireRUValueType=="baseIgnition") return QString::number(data.baseIgnitionProbability());
    return "Error";
}

bool FireScript::gridToFile(QString grid_type, QString file_name)
{
    if (!GlobalSettings::instance()->model())
        return false;
    QString result;
    if (grid_type == "spread") {
        result = gridToESRIRaster(mFire->mGrid);
    } else {
        fireRUValueType = grid_type;
        result = gridToESRIRaster(mFire->mRUGrid, &fireRUValue); // use a specific value function (see above)
    }

    if (!result.isEmpty()) {
        file_name = GlobalSettings::instance()->path(file_name);
        Helper::saveToTextFile(file_name, result);
        qDebug() << "saved grid to " << file_name;
        return true;
    }
    qDebug() << "could not save gridToFile because" << grid_type << "is not a valid grid.";
    return false;

}

double FireScript::x() const
{
    if (mFire) return mFire->fireX(); else return -1;
}

double FireScript::y() const
{
    if (mFire) return mFire->fireY(); else return -1;
}

int FireScript::id() const
{
    if (!mFire) return -1;
    return mFire->fireId();
}