%FFP

Category   :"AFH"
Title      :"AFH Beveler 3.0"
Copyright  :"Copyright © 1999 AFH Systems Group"
Author     :"Alexander F. Hunter\n"
            "http://www.filtermeister.com"
Filename   :"afhbev30.8bf"
Description:"A Rectangular Beveler"
Version    :"3.0"
About      :"AFH Beveler Plug-in !V\n!D\n"
            "!c\n!A"

Dialog     :color=steelblue

// Control definitions:

ctl(0):"Top/left black level:",val=28,size=(*,6)
ctl(1):"Top/left white level:",val=201,size=(*,6)
ctl(2):"Bottom/right black level:",val=0,size=(*,6)
ctl(3):"Bottom/right white level:",val=76,size=(*,6)
ctl(4):"Top/left balance:",val=82,size=(*,6)
ctl(5):"Bottom/right balance:",val=149,size=(*,6)
ctl(7):"Bevel width:",val=8,size=(*,6),range=(0,200)

ctl(20):PUSHBUTTON,"&Save",size=(34,14),pos=(252,105)
ctl(21):PUSHBUTTON,"&Restore",size=(34,14),pos=(289,105)

ForEveryTile:{
    int SETTINGS_FILE;
    int i;

    if (ctl(20)) {
        // User pushed Save
        if (SETTINGS_FILE = fopen("AFH Beveler 3.0 Settings.ini", "w")) {
            for (i = 0; i <= 7; i++) fprintf(SETTINGS_FILE, "%d\n", ctl(i));
            if (fclose(SETTINGS_FILE)) {
                Error("Can't close settings file.");
            }
        }
        else {
            Error("Can't write to settings file.");
        }
        setCtlVal(20, 0);
    }

    if (ctl(21)) {
        // User pushed Restore
        int iVal;
        if (SETTINGS_FILE = fopen("AFH Beveler 3.0 Settings.ini", "r")) {
            for (i = 0; i <= 7; i++) {
                fscanf(SETTINGS_FILE, "%d", &iVal);
                setCtlVal(i, iVal);
            }
            if (fclose(SETTINGS_FILE)) {
                Error("Can't close settings file.");
            }
        }
        else {
            //Error("Can't open settings file.");
        }
        setCtlVal(21, 0);
    }

return false;
}//ForEveryTile

R,G,B:((x<val(7,0,M))&&(y>=x)&&(y<Y-x))?scl(c,0,255,ctl(0),ctl(1)*2)+ctl(4)-128:((y<val(7,0,M))&&(x>y)&&(x<X-y))?scl(c,0,255,ctl(0),ctl(1)*2)-ctl(4)+128:((X-x<=val(7,0,M))&&(Y-y>=X-x)&&(y>x-X))?scl(c,0,255,ctl(2),ctl(3)*2)+ctl(5)-128:((Y-y<=val(7,0,M))&&(X-x>Y-y)&&(x>y-Y))?scl(c,0,255,ctl(2),ctl(3)*2)-ctl(5)+128:c

A:a