Sorry your browser is not supported!

Rem ***** Included Source File *****

Shaders_Init:
`variables
path$ = "FX\HDR.fx"
cam1 = 1
cam2 = 2
cam3 = 3
imgsize = 256
img1 = 47
img2 = 48
img3 = 49
obj1 = 100
obj2 = 101
obj3 = 103
width# = 0.01
brightness# = 3.2
technique = 7
FOV = 80

`Setup HDR
HDR_setup(path$,cam1,cam2,cam3,imgsize,img1,img2,img3,obj1,obj2,obj3,width#,brightness#,technique,FOV)

`Set camera
COLOR BACKDROP RGB(219,220,253):SET CAMERA FOV FOV:SET CAMERA RANGE 1,15000
RETURN

Shaders_Update:
`Update HDR
HDR_updateStats()
HDR_update(imgsize,cam1,obj3,0)
RETURN

FUNCTION HDR_update(imgsize,cam1,obj3,setcam)

   POSITION CAMERA cam1,CAMERA POSITION X(setcam),CAMERA POSITION Y(setcam),CAMERA POSITION Z(setcam)
   ROTATE CAMERA cam1,CAMERA ANGLE X(setcam),CAMERA ANGLE Y(setcam),CAMERA ANGLE Z(setcam)

   POSITION OBJECT obj3,CAMERA POSITION X(setcam),CAMERA POSITION Y(setcam),CAMERA POSITION Z(setcam)
   ROTATE OBJECT obj3,CAMERA ANGLE X(setcam),CAMERA ANGLE Y(setcam),CAMERA ANGLE Z(setcam)

   IF imgsize = 64
      MOVE OBJECT obj3,9875
      MOVE OBJECT LEFT obj3,225
      MOVE OBJECT UP obj3,200
   ENDIF
   IF imgsize = 128
      MOVE OBJECT obj3,9925
      MOVE OBJECT LEFT obj3,175
      MOVE OBJECT UP obj3,150
   ENDIF
   IF imgsize = 256
      MOVE OBJECT obj3,9975
      MOVE OBJECT LEFT obj3,100
      MOVE OBJECT UP obj3,75
   ENDIF

ENDFUNCTION

FUNCTION HDR_updateStats()

   `technique should equal 3,5 or 7
   SET EFFECT TECHNIQUE HDR.obj1,"weights"+STR$(HDR.technique)+"_cam1"
   SET EFFECT TECHNIQUE HDR.obj2,"weights"+STR$(HDR.technique)+"_cam2"
   SET EFFECT TECHNIQUE HDR.obj3,"weights"+STR$(HDR.technique)+"_cam3"

   `Set effect variables
   SET EFFECT CONSTANT FLOAT HDR.obj1,"blurWidth",HDR.width#
   SET EFFECT CONSTANT FLOAT HDR.obj2,"blurWidth",HDR.width#
   SET EFFECT CONSTANT FLOAT HDR.obj3,"blurWidth",HDR.width#*1.5

   SET EFFECT CONSTANT FLOAT HDR.obj1,"Brightness",HDR.brightness#
   SET EFFECT CONSTANT FLOAT HDR.obj2,"Brightness",HDR.brightness#
   SET EFFECT CONSTANT FLOAT HDR.obj3,"Brightness",HDR.brightness#

ENDFUNCTION

FUNCTION HDR_setup(effectPath$,cam1,cam2,cam3,imgsize,img1,img2,img3,obj1,obj2,obj3,HDRwidth#,HDRbrightness#,technique,FOV)

   `Store global data in type
   GLOBAL HDR AS HDRt
      HDR.width# = HDRwidth#
      HDR.brightness# = HDRbrightness#
      HDR.technique = technique
      HDR.obj1 = obj1
      HDR.obj2 = obj2
      HDR.obj3 = obj3

   `Setup 3 cameras
   MAKE CAMERA cam1
   SET CAMERA FOV cam1,FOV
   SET CAMERA RANGE cam1,1,9000
   COLOR BACKDROP cam1,0
   SET CAMERA TO IMAGE cam1,img1,imgsize,imgsize

   MAKE CAMERA cam2
   SET CAMERA FOV cam2,FOV
   SET CAMERA RANGE cam2,0.1,100
   COLOR BACKDROP cam2,0
   POSITION CAMERA cam2,0,-900000,0
   XROTATE CAMERA cam2,90
   SET CAMERA TO IMAGE cam2,img2,imgsize,imgsize

   MAKE CAMERA cam3
   SET CAMERA FOV cam3,FOV
   SET CAMERA RANGE cam3,0.1,100
   COLOR BACKDROP cam3,0
   POSITION CAMERA cam3,2000,-900000,0
   XROTATE CAMERA cam3,90
   SET CAMERA TO IMAGE cam3,img3,imgsize,imgsize

   `Setup boxes to be textured
   MAKE OBJECT BOX obj1,4.38,3.28,0.1
   XROTATE OBJECT obj1,90
   SET OBJECT AMBIENT obj1,0
   SET OBJECT TRANSPARENCY obj1,1
   POSITION OBJECT obj1,0,-900002,0

   MAKE OBJECT BOX obj2,4.38,3.28,0.1
   XROTATE OBJECT obj2,90
   SET OBJECT AMBIENT obj2,0
   SET OBJECT TRANSPARENCY obj2,1
   POSITION OBJECT obj2,2000,-900002,0

   MAKE OBJECT BOX obj3,22450,16950,0.1
   GHOST OBJECT ON obj3
   SET OBJECT LIGHT obj3,0
   SET OBJECT TRANSPARENCY obj3,1
   DISABLE OBJECT ZDEPTH obj3

   `Load effects into memory
   LOAD EFFECT effectPath$,obj1,0
   LOAD EFFECT effectPath$,obj2,0
   LOAD EFFECT effectPath$,obj3,0

   `Apply effect settings to effect data
   HDR_updateStats()

   `Apply effects to objects
   SET OBJECT EFFECT obj1,obj1
   SET OBJECT EFFECT obj2,obj2
   SET OBJECT EFFECT obj3,obj3

   `Texture objects with resulting images
   TEXTURE OBJECT obj1,0,img1
   TEXTURE OBJECT obj2,0,img2
   TEXTURE OBJECT obj3,0,img3

ENDFUNCTION

TYPE HDRt
   width#,brightness#
   technique
   obj1,obj2,obj3
ENDTYPE

struct PSOutput{
float4 Col : Color;
};
struct PSInput{
float4 Col  : Color;
float2 UV  : TEXCOORD0;
};

PSOutput PShader ( PSInput In, PSOutput Out)
{
    float4 result = {0.0,0.0,0.0,1.0};
    float x = 0.0;
    float y = 0.0;
    float x0 = 10.0*In.UV.x;
    float y0 = 10.0*In.UV.y;
    float tmp = 0.0;
    int i = 0;

    while (x*x + y*y <= 4.0 && i < 1000)
    {
        tmp = x*x - y*y + x0;
        y = 2.0*x*y + y0;
        x = tmp;
 	i += 1;
    }

    if (i == 1000)
    {
        result.x = 1.0;
        result.y = 0.0;
        result.z = 0.0;
    }


    Out.Col = result;
    return Out;
}

technique mandelbrot
{
    pass p1
    {
        PixelShader = compile ps_1_1 PShader();
    }
}

//listing of all techniques and passes with embedded asm listings 

technique mandelbrot
{
    pass p1
    {
        //No embedded vertex shader
        pixelshader = 
            asm {
            //
            // Generated by Microsoft (R) D3DX9 Shader Compiler 9.15.779.0000
                ps_1_1
                def c0, 1, 0, 0, 1
                mov r0, c0
            
            // approximately 1 instruction slot used
            };
    }
}

def c0, 1, 0, 0, 1

mov r0, c0

float cutoff = 4.0;
float scale = 10.0;

struct PSOutput{
float4 Col : Color;
};
struct PSInput{
float4 Col  : Color;
float2 UV  : TEXCOORD0;
};

PSOutput PShader ( PSInput In, PSOutput Out)
{
    float4 result = {0.0,0.0,0.0,1.0};
    float x = 0.0;
    float y = 0.0;
    float x0 = scale*In.UV.x;
    float y0 = scale*In.UV.y;
    float tmp = 0.0;
        tmp = x*x - y*y + x0;
        y = 2.0*x*y + y0;
        x = tmp;

        tmp = x*x - y*y + x0;
        y = 2.0*x*y + y0;
        x = tmp;

        tmp = x*x - y*y + x0;
        y = 2.0*x*y + y0;
        x = tmp;

        tmp = x*x - y*y + x0;
        y = 2.0*x*y + y0;
        x = tmp;

        tmp = x*x - y*y + x0;
        y = 2.0*x*y + y0;
        x = tmp;

        tmp = x*x - y*y + x0;
        y = 2.0*x*y + y0;
        x = tmp;

        tmp = x*x - y*y + x0;
        y = 2.0*x*y + y0;
        x = tmp;

        tmp = x*x - y*y + x0;
        y = 2.0*x*y + y0;
        x = tmp;

        tmp = x*x - y*y + x0;
        y = 2.0*x*y + y0;
        x = tmp;

        tmp = x*x - y*y + x0;
        y = 2.0*x*y + y0;
        x = tmp;

    if (x*x + y*y <= cutoff)
    {
        result.x = 1.0;
        result.y = 0.0;
        result.z = 0.0;
    }


    Out.Col = result;
    return Out;
}

technique mandelbrot
{
    pass p1
    {
        PixelShader = compile ps_2_b PShader();
    }
}

float cutoff = 4.0;
float scale = 10.0;

struct PSOutput{
float4 Col : Color;
};
struct PSInput{
float4 Col  : Color;
float2 UV  : TEXCOORD0;
};

PSOutput PShader ( PSInput In, PSOutput Out)
{
    float4 result = {0.0,0.0,0.0,1.0};
    float x = 0.0;
    float y = 0.0;
    float x0 = scale*In.UV.x;
    float y0 = scale*In.UV.y;
    float tmp = 0.0;
    for (int i = 0; i < 100; i++)
    {   tmp = x*x - y*y + x0;
        y = 2.0*x*y + y0;
        x = tmp;
    }

    if (x*x + y*y <= cutoff)
    {
        result.x = 1.0;
        result.y = 0.0;
        result.z = 0.0;
    }

    Out.Col = result;
    return Out;
}

technique mandelbrot
{
    pass p1
    {
        PixelShader = compile ps_2_a PShader();
    }
}

set display mode 1680, 1050, 32
sync on: sync rate o: sync

autocam off
position camera -790, 475, -100
point camera -790, 475, 0

load effect "mandel3.fx", 1, 0

make object plain 1, 1680, 1050
set object effect 1, 1

repeat
  text 20, 20, "fps = " + str$(screen fps())
  sync
until spacekey()

end

// Mandelbrot set shader based on a shader posted by Xlaydos
// and modified by Green Gandalf

float scale = 1.0;

struct PSInput{
float2 UV  : texcoord0;
};

struct PSOutput{
float4 Col : Color;
};

PSOutput PShader ( PSInput In, PSOutput Out)
{
    float4 result = {0.0,0.0,0.0,1.0};
    float x = 0.0;
    float y = 0.0;
    float x0 = scale*(In.UV.x - 0.2);
    float y0 = scale*(In.UV.y - 0.2);
    float tmp = 0.0;
    
    // perform the basic iteration as many times as the graphics card will allow
    for (int i = 0; i < 102; i++)
    {   tmp = x*x - y*y + x0;
        y = 2.0*x*y + y0;
        x = tmp;
    }

    // code the final "position" as colour
    result.r = 1.0 - 3 * x - y;
    result.g = 3 * x;
    result.b = y;

    Out.Col = result;
    return Out;
}

technique mandelbrot
{
    pass p1
    {
        PixelShader = compile ps_2_a PShader();
    }
}

set display mode 1680, 1050, 32
sync on: sync rate o: sync

autocam off
position camera 0, 0, -300
point camera 0, 0, 0

load effect "mandel3.fx", 1, 0

make object plain 1, 1680, 1050
set object effect 1, 1

repeat
  text 20, 20, "fps = " + str$(screen fps())
  sync
until spacekey()

end

set camera effect cameraID, effectID, imageID

load camera effect effectFilename$, effectID, useTexturesFromShaderFlag

Reload Display Pointer==*No Parameters*
Make Dynamic Cube Map==CubeMapID, Texture Size, [ Mipmap Flag ]
Delete Dynamic Cube Map==CubeMapID
Render Dynamic Cube Map==CubeMapID, CameraID, PosX, PosY, PosZ
Apply Cube Map To Object==ObjID, Texture Stage, CubeMapID, [ Shader Flag ]
Dynamic Cube Map Exist==( CubeMapID )

Load Camera Effect==Filename$, CameraEffectID, LoadTextures
Delete Camera Effect==CameraEffectID
Camera Effect Exist==( CameraEffectID )
Set Camera Effect Constant Float==CameraEffectID, VariableName$, Value
Set Camera Effect Constant Int==CameraEffectID, VariableName$, Value
Set Camera Effect Constant Vector==CameraEffectID, VariableName$, VectorID
Set Camera Effect==CameraID, CameraEffectID, OutputImageID
Remove Camera Effect==CameraEffectID
Sync Camera==CameraID

*Reload Display Pointer  -  must be called after any "set display mode" calls

*Make Dynamic Cube Map <iID>, <size>, [mipmapped]  -  creates a cube map of the specified resolution valid ID = 1-10, optional mipmap parameter
*Delete Dynamic Cube Map <iID>  -  deletes a cubemap
*Render Dynamic Cube Map <iID>, <camera>, <x>, <y>, <z>  -  renders a cube map with a camera (-1 for temp camera) at a position
*Apply Cube Map To Object <objID>, <stage>, <iID>, [shader]  -  applies a cube map to an object stage, optional shader parameter, use shader=1 if using an object shader
*Dynamic Cube Map Exist( <iID> )  -  returns 1 if cube map exists

*Load Camera Effect <filename$>, <effectID>, <loadTex>  -  Loads a camera effect into an ID, separate from object effect IDs
*Delete Camera Effect <effectID>  -  delete a camera effect
*Camera Effect Exist <effectID>  -  returns 1 if effect exists
*Set Camera Effect ConstantFloat <effectID>, <varName>, <value>  -  set a float variable in a camera effect
*Set Camera Effect ConstantInt <effectID>, <varName>, <value>  -  set an integer variable in a camera effect
*Set Camera Effec ConstantVector <effectID>, <varName>, <vector>  -  set a float vector variable in a camera effect, uses dbvector4
*Set Camera Effect <camera>, <effect>, <image>  -  set an effect to a camera, and output to an image, this command will also take control of image 65499, only camera effects can be applied to cameras
*Remove CameraEffect <camera>  -  remove an effect from a camera
*Sync Camera <camera>  -  render a camera containing a camera effect, no other cameras synced, only output is to the image from "Set Camera Effect"