Subversion Repositories filter_foundry

/*

        This file is part of "Filter Foundry", a filter plugin for Adobe Photoshop

    Copyright (C) 2003-5 Toby Thain, toby@telegraphics.com.au

    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 2 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, write to the Free Software

    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

*/

//#include <stdio.h>

//#include <sound.h>

#include "ff.h"

#include "node.h"

#include "parser.h"

#include "scripting.h"

struct node *tree[4];

char *err[4];

int errpos[4],errstart[4],nplanes,srcradused,chunksize,toprow;

value_type slider[8],cell[0x100],map[4][0x100];

char *expr[4],*defaultexpr[]={"r","g","b","a"};

#ifdef MAC_ENV

        /* fake this Windows-only global */

        Handle hDllInstance = NULL;

#endif

extern struct sym_rec predefs[];

extern int nplanes,varused[],srcradused;

globals_t *gdata;

FilterRecordPtr gpb;

void checkandinitparams(long *data,Handle params);

DLLEXPORT MACPASCAL

void ENTRYPOINT(short selector,FilterRecordPtr pb,long *data,short *result){

        OSErr e = noErr;

        static Boolean wantdialog = false;

        EnterCodeResource();

        gpb = pb;

        if(!*data){

                gdata = (globals_t*)( *data = (long)malloc(sizeof(globals_t)) ) ;

                gdata->standalone = gdata->parmloaded = false;

        }else

                gdata = (globals_t*)*data;

        nplanes = MIN(pb->planes,4);

        switch (selector){

        case filterSelectorAbout:

                DoAbout((AboutRecordPtr)pb);

                break;

        case filterSelectorParameters:

//              dbg("filterSelectorParameters");

                wantdialog = true; // was: true;

                break;

        case filterSelectorPrepare:

//              dbg("filterSelectorPrepare");

                DoPrepare(pb);

                init_symtab(predefs); // ready for parser calls

                break;

        case filterSelectorStart:

//              dbg("filterSelectorStart");

                if(!pb->parameters)

                        pb->parameters = PINEWHANDLE(0);

                checkandinitparams(data,pb->parameters);

                if( wantdialog && (!gdata->standalone || gdata->parm.popDialog) ){

                        if( maindialog(pb) ){

                                /* update parameters */

                                saveparams(pb->parameters);

                        }else

                                e = userCanceledErr;

                        wantdialog = false;

                }

                if(!e){

                        if(setup(pb)){

                                DoStart(pb);

                        }else{

                                SYSBEEP(1);

                                e = filterBadParameters;

                        }

                }

                break;

        case filterSelectorContinue:

                e = DoContinue(pb);

                break;

        case filterSelectorFinish:

                DoFinish(pb);

                break;

        default:

                e = filterBadParameters;

        }

        *result = e;

        ExitCodeResource();

}

void checkandinitparams(long *data,Handle params){

        char *reasonstr;

        int i;

        char *reason;

        if(!(params && readparams(params,false,&reasonstr))){

                /* either the parameter handle was uninitialised,

                   or the parameter data couldn't be read; set default values */

                if(readPARMresource(hDllInstance,&reason))

                        gdata->standalone = true;

                else{

                        /* no scripted parameters - dialog wanted */

                        for(i=0;i<8;++i)

                                slider[i] = i*10+100;

                        for(i=4;i--;)

                                expr[i] = my_strdup(defaultexpr[i]);

                }

        }

        if( ! ReadScriptParamsOnRead() )

                saveparams(gpb->parameters); /* save the scripted params */

        /* check for NULL expression pointers (?) */

        for(i=4;i--;)

                if(!expr[i]) expr[i] = my_strdup(defaultexpr[i]);

}

void DoPrepare(FilterRecordPtr pb){

        int i;

        for(i=4;i--;){

                if(expr[i]||tree[i]) DBG("expr[] or tree[] nonzero in Prepare!");

                expr[i] = NULL;

                tree[i] = NULL;

        }

}

void RequestNext(FilterRecordPtr pb,long toprow){

        /* Request next block of the image */

        pb->inLoPlane = pb->outLoPlane = 0;

        pb->inHiPlane = pb->outHiPlane = nplanes-1;

        if(srcradused){

                SETRECT(pb->inRect,0,0,pb->imageSize.h,pb->imageSize.v);

        }else{

                pb->inRect.left = pb->filterRect.left;

                pb->inRect.right = pb->filterRect.right;

                pb->inRect.top = toprow;

                pb->inRect.bottom = MIN(toprow + chunksize,pb->filterRect.bottom);

        }

        pb->outRect = pb->inRect;

/*

{char s[0x100];sprintf(s,"RequestNext srcradused=%d inRect=(%d,%d,%d,%d) filterRect=(%d,%d,%d,%d)",

        srcradused,

        pb->inRect.left,pb->inRect.top,pb->inRect.right,pb->inRect.bottom,

        pb->filterRect.left,pb->filterRect.top,pb->filterRect.right,pb->filterRect.bottom);dbg(s);}

*/

}

void DoStart(FilterRecordPtr pb){

//dbg("DoStart");

        /* if src() or rad() functions are used, random access to the image data is required,

           so we must request the entire image in a single chunk. */

        chunksize = srcradused ? (pb->filterRect.bottom - pb->filterRect.top) : CHUNK_ROWS;

        toprow = pb->filterRect.top;

        RequestNext(pb,toprow);

}

OSErr DoContinue(FilterRecordPtr pb){

        OSErr e = noErr;

        Rect *fr = srcradused ? &pb->filterRect : &pb->inRect;

        long outoffset = (long)pb->outRowBytes*(fr->top - pb->outRect.top)

                                         + (long)nplanes*(fr->left - pb->outRect.left);

//      {char s[0x100];sprintf(s,"DoContinue: outoffset=%d\n",outoffset);dbg(s);}

        if(!(e = process_scaled(pb,true,

                                &pb->inRect,

                                fr,

                                fr,//&pb->outRect,

                                (Ptr)pb->outData+outoffset,pb->outRowBytes, 1.))){

                toprow += chunksize;

                if(toprow < pb->filterRect.bottom)

                        RequestNext(pb,toprow);

                else{

                        SETRECT(pb->inRect,0,0,0,0);

                        pb->outRect = pb->maskRect = pb->inRect;

                }

        }

        return e;

}

void DoFinish(FilterRecordPtr pb){

        int i;

        WriteScriptParamsOnRead();

        for(i=4;i--;){

                freetree(tree[i]);

                if(expr[i]) free(expr[i]);

        }

}