Sorry your browser is not supported!

Rem Project: spherical portal thingy
Rem Created: 29/03/2010 20:36:16

Rem ***** Main Source File *****


`#constant level_obj 1
#constant ref1_obj 2
#constant ref2_obj 3
#constant ball1_obj 4
#constant ball2_obj 5

#constant box1_obj 6
#constant box2_obj 7

#constant level_obj1 8
#constant level_obj2 9
#constant level_obj3 10
#constant level_obj4 11

#constant ref1u_obj 13
#constant ref1d_obj 14
#constant ref1l_obj 15
#constant ref1r_obj 16

#constant level1_tex 1
#constant level2_tex 2
#constant level1_lm 3
#constant level2_lm 4

#constant ref1_tex 5
#constant ref2_tex 6
#constant bg1_tex 7
#constant bg2_tex 8

#constant ref1u_tex 6
#constant ref1d_tex 7
#constant ref1l_tex 8
#constant ref1r_tex 9

set display mode 800,600,32
`set display mode 640,480,32   `good for fraps FOR YOUTUBE VID CAPTURE


sync on
`sync rate 0
sync rate 100   `?? not sure what sense has with many cameras. presumably 2 sync calls (one multicam) means actual framerate halved?
set camera aspect 1.667
`set camera aspect 1.333   `FOR YOUTUBE VID CAPTURE
hide mouse



#constant portal_radius 0.2
#constant portal_radius_b 0.2025
                              ` a fudge. get teleport to happen a tiny bit before get to sphere surface.
                              `to get around near camera plane clipping problem

dim portalpos#(2,3)

portalpos#(1,1) =-10
portalpos#(1,2) =1
portalpos#(1,3) =0

portalpos#(2,1) =10
portalpos#(2,2) =1
portalpos#(2,3) =0



`CARTOGRAPHY SHOP STUFF!!
load object "wierd cylinder/wierd_cylinder.x",level_obj1
load object "wierd cylinder/wierd_cylinder_lm.x",level_obj2 `a
ghost object on level_obj2,1

`load object "wierd cylinder/wierd_cylinder_snow.x",level_obj3    `as above, just different textures.
`load object "wierd cylinder/wierd_cylinder_lmx.x",level_obj4   `""
clone object level_obj3,level_obj1
clone object level_obj4,level_obj2
ghost object on level_obj4,1

set ambient light 100

load image "wierd cylinder/AlgaeBricks.jpg",level1_tex      :texture object level_obj1,level1_tex
load image "wierd cylinder/SnowBricks.jpg",level2_tex       :texture object level_obj3,level2_tex
load image "wierd cylinder/wierd_cylinder_1a.jpg",level1_lm :texture object level_obj2,level1_lm
load image "wierd cylinder/wierd_cylinder_1x.jpg",level2_lm :texture object level_obj4,level2_lm   `mixed up #s


sf#=0.2
scale object level_obj1,sf#,sf#,sf#
scale object level_obj2,sf#,sf#,sf#
scale object level_obj3,sf#,sf#,sf#
scale object level_obj4,sf#,sf#,sf#

position object level_obj1,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3)
position object level_obj2,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3)
position object level_obj3,portalpos#(2,1),portalpos#(2,2),portalpos#(2,3)
position object level_obj4,portalpos#(2,1),portalpos#(2,2),portalpos#(2,3)

yrotate object level_obj3,90
yrotate object level_obj4,90


`put spheres at portal points.
`in ms3d, portals are at x=+/- 10

make object sphere ball1_obj,portal_radius*2.0 * 0.96 `0.96 is to make smaller than covering projected cam image
make object sphere ball2_obj,portal_radius*2.0 * 0.96
load object "8by8.x",ref1_obj
`clone object ref2_obj,ref1_obj
clone object ref1u_obj,ref1_obj
clone object ref1d_obj,ref1_obj
clone object ref1l_obj,ref1_obj
clone object ref1r_obj,ref1_obj

position object ball1_obj,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3)
position object ball2_obj,portalpos#(2,1),portalpos#(2,2),portalpos#(2,3)
color object ball1_obj,rgb(255,0,250)
color object ball2_obj,rgb(0,255,250)
position object ref1_obj,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3)
`position object ref2_obj,portalpos#(2,1),portalpos#(2,2),portalpos#(2,3)
position object ref1u_obj,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3)
position object ref1d_obj,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3)
position object ref1l_obj,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3)
position object ref1r_obj,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3)

`test have loaded it right!
position camera 0,10,-20
point camera 0,0,0

`make some more cameras
make camera 1
`make camera 2

make camera 3  `up camera
make camera 4  `down
make camera 5  `left
make camera 6  `right

`set camera to image 1,ref1_tex,256,256
set camera to image 1,ref1_tex,512,512
`set camera to image 2,ref2_tex,512,512

set camera to image 3,ref1u_tex,256,256
set camera to image 4,ref1d_tex,256,256
set camera to image 5,ref1l_tex,256,256
set camera to image 6,ref1r_tex,256,256


remstart
set camera to image 3,ref1u_tex,128,128
set camera to image 4,ref1d_tex,128,128
set camera to image 5,ref1l_tex,128,128
set camera to image 6,ref1r_tex,128,128
remend

remstart
set camera to image 3,ref1u_tex,64,64
set camera to image 4,ref1d_tex,64,64
set camera to image 5,ref1l_tex,64,64
set camera to image 6,ref1r_tex,64,64
remend

set camera aspect 1,1   `think should be default anyway
`set camera aspect 2,1
set camera aspect 3,1
set camera aspect 4,1
set camera aspect 5,1
set camera aspect 6,1
set camera fov 1,90
`set camera fov 2,90
set camera fov 3,90
set camera fov 4,90
set camera fov 5,90
set camera fov 6,90
texture object ref1_obj,ref1_tex
`texture object ref2_obj,ref2_tex
texture object ref1u_obj,ref1u_tex
texture object ref1d_obj,ref1d_tex
texture object ref1l_obj,ref1l_tex
texture object ref1r_obj,ref1r_tex
set object texture ref1_obj,2,0
`set object texture ref2_obj,2,0
set object texture ref1u_obj,2,0
set object texture ref1d_obj,2,0
set object texture ref1l_obj,2,0
set object texture ref1r_obj,2,0

sf#=portal_radius*100.0
`sf#=portal_radius*98.0  `fudge to avoid near camrange clipping. better if changed tecture mapping also, and/or squished
                        `mesh, so appears as should do.
scale object ref1_obj,sf#,sf#,sf#
`scale object ref2_obj,sf#,sf#,sf#
scale object ref1u_obj,sf#,sf#,sf#
scale object ref1d_obj,sf#,sf#,sf#
scale object ref1l_obj,sf#,sf#,sf#
scale object ref1r_obj,sf#,sf#,sf#
set object light ref1_obj,0
`set object light ref2_obj,0
set object light ref1u_obj,0
set object light ref1d_obj,0
set object light ref1l_obj,0
set object light ref1r_obj,0
set camera range 0,0.002,40.0
set camera range 1,0.05,40.0
`set camera range 2,0.05,50.0
set camera range 3,0.05,40.0
set camera range 4,0.05,40.0
set camera range 5,0.05,40.0
set camera range 6,0.05,40.0
`set camera fov 1,90  `as default i think. also aspect should be 1 as expect.


dim vertxpos#(100)
dim vertypos#(100)

lock vertexdata for limb ref1_obj,2,1  `bizzarely, limb 2 has the vertices! should remesh.
n=GET VERTEXDATA VERTEX COUNT()
for i=0 to n   `not sure whether is 0 to 80 or 1 to 81
   vertxpos#(i)=get vertexdata position x(i)
   vertypos#(i)=get vertexdata position y(i)
next i
unlock vertexdata

fmodel=1

`for cshop new levels.
`should use a skybox or something.
backdrop on 1
`backdrop on 2
backdrop on 3
backdrop on 4
backdrop on 5
backdrop on 6
skyc=rgb(160,160,160)
color backdrop 1,skyc
`color backdrop 2,skyc
color backdrop 3,skyc   `rgb(0,255,0) `up cam. test
color backdrop 4,skyc   `rgb(0,255,0)
color backdrop 5,skyc
color backdrop 6,skyc
color backdrop 0,skyc


`start pos near one portal
position camera 0,-10.5,2.5,-1.0
yr#=20.0
xr#=40.0

do


mc=mouseclick()
cv#=0.999*cv#+0.0001*( 2*(mc&&1 ) - (mc&&2) )
if mc=0  then cv#=0.85*cv#
move camera cv#

yr#=wrapvalue(yr#+0.15*mousemovex())
xr#=xr#+0.15*mousemovey()
if xr#>85.0 then xr#=85.0
if xr#<-85.0 then xr#=-85.0
rotate camera xr#,yr#,0.0


cx#=camera position x(0)
cy#=camera position y(0)
cz#=camera position z(0)

`actual doing the portal.

rsq#=cz#*cz#+(cy#-1.0)^2.0

IF cx#<0.0

totsq#=rsq#+(cx#+10.0)^2.0
if totsq# < portal_radius_b*portal_radius_b
test1=1
ratio#=(portal_radius_b*portal_radius_b)/totsq#
cz#=-cz#*ratio#
cy#=-(cy#-1.0)*ratio# +1.0
cx#=-(cx#+10.0)*ratio# + 10.0
endif
position camera 0,cx#,cy#,cz#

ELSE

totsq#=rsq#+(cx#-10.0)^2.0
if totsq# < portal_radius_b*portal_radius_b
test2=1
ratio#=(portal_radius_b*portal_radius_b)/totsq#
cz#=-cz#*ratio#
cy#=-(cy#-1.0)*ratio# +1.0
cx#=-(cx#-10.0)*ratio# - 10.0
endif
position camera 0,cx#,cy#,cz#

ENDIF


`reposition things, because now putting portal view objects on NEAREST portal.
`a better system would be to have levels of detail for different resolutions, and to refresh distant portal cam
`views once every few frames. for now make do with more limited system

if cx#<0.0
   in_portal=1
   out_portal=2
else
   in_portal=2
   out_portal=1
endif

position object ref1_obj,portalpos#(in_portal,1),portalpos#(in_portal,2),portalpos#(in_portal,3)
`position object ref2_obj,portalpos#(2,1),portalpos#(2,2),portalpos#(2,3)
position object ref1u_obj,portalpos#(in_portal,1),portalpos#(in_portal,2),portalpos#(in_portal,3)
position object ref1d_obj,portalpos#(in_portal,1),portalpos#(in_portal,2),portalpos#(in_portal,3)
position object ref1l_obj,portalpos#(in_portal,1),portalpos#(in_portal,2),portalpos#(in_portal,3)
position object ref1r_obj,portalpos#(in_portal,1),portalpos#(in_portal,2),portalpos#(in_portal,3)


`position camera 2,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3) `SWITCHED CAM POSITIONS TO MAKE PORTAL
position camera 1,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3)`point camera 1,cx#,cy#,cz#
position camera 3,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3) `up
position camera 4,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3) `up
position camera 5,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3) `up
position camera 6,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3) `up


`point camera 2,cx#,cy#,cz#
point object ref1_obj,cx#,cy#,cz#
point object ref1u_obj,cx#,cy#,cz#  `same orientation. - recalc prob unnecessary. maybe quicker to use rotate x,y,z
point object ref1d_obj,cx#,cy#,cz#  `same orientation.
point object ref1l_obj,cx#,cy#,cz#
point object ref1r_obj,cx#,cy#,cz#
`point object ref2_obj,cx#,cy#,cz#

turn object right ref1_obj,180
`turn object right ref2_obj,180
turn object right ref1u_obj,180
turn object right ref1d_obj,180
turn object right ref1l_obj,180
turn object right ref1r_obj,180

set camera to object orientation 1,ref1_obj  `:turn camera right 1,180  `SHOULD MOVE THIS -
`set camera to object orientation 2,ref2_obj  `:turn camera right 2,180  `OR RENDER OTHER CAMS BEFORE 0
set camera to object orientation 3,ref1u_obj `same orientation as ref1_obj
set camera to object orientation 4,ref1d_obj `same orientation as ref1_obj
set camera to object orientation 5,ref1d_obj
set camera to object orientation 6,ref1d_obj

dx#=portalpos#(in_portal,1) - cx#
dy#=portalpos#(in_portal,2) - cy#
dz#=portalpos#(in_portal,3) - cz#
v1#=sqrt(dx#*dx#+dy#*dy#+dz#*dz#)
`dx#=portalpos#(2,1) - cx#
`dy#=portalpos#(2,2) - cy#
`dz#=portalpos#(2,3) - cz#
`v2#=sqrt(dx#*dx#+dy#*dy#+dz#*dz#)

vs1#=v1#/portal_radius
`vs2#=v2#/portal_radius

if keystate(2) then fmodel=1
if keystate(3) then fmodel=2
if fmodel=1
f1#=vs1#/(2.0*vs1#-1.0)
`f2#=vs2#/(2.0*vs2#-1.0)
else
f1#=1.0/vs1#  `simple model. better is v/(2v-1)
`f2#=1.0/vs2#  `simple model. better is v/(2v-1)
endif


if spacekey()
else
   move camera 1,portal_radius*f1#
   move camera 3,portal_radius*f1#
   move camera 4,portal_radius*f1#
   move camera 5,portal_radius*f1#
   move camera 6,portal_radius*f1#
   `move camera 2,portal_radius*f2#
endif
pitch camera up 3,90
pitch camera down 4,90  `:turn camera left 4,180
turn camera left 5,90
turn camera right 6,90

if controlkey()
   f1#=0.0
`   f2#=0.0
endif


`set camera to object orientation
`set object to camera orientation ref1_tex,1 `only works for cam 0. rubbish.


text 0,0,str$(screen fps())

`test vertexdata stuffs.
`lock vertexdata for limb ref1_obj,2,1  `bizzarely, limb 2 has the vertices! should remesh.
`i=GET VERTEXDATA VERTEX COUNT()
`unlock vertexdata
`text 0,0,str$(i)

lock vertexdata for limb ref1_obj,2,1  `bizzarely, limb 2 has the vertices! should remesh.
n=GET VERTEXDATA VERTEX COUNT()-1  `81-1
for i=0 to n
`simple projection onto sphere to test.
x#=vertxpos#(i)
y#=vertypos#(i)
`z#=-1.0-f1#
`r#=sqrt(x#*x#+y#*y#+z#*z#)
`x#=x#/r#
`y#=y#/r#
`z#=z#/r#
`z#=1.0
rsq#=x#*x#+y#*y#
lsq#=rsq#+1.0  `+zsq#
brak#=(1.0-f1#*f1#*rsq#/lsq#)/lsq#
q#=-f1#/lsq# + sqrt(brak#)
x#=x#*q#
y#=y#*q#
z#=-f1#-q#

set vertexdata position i,x#,y#,z#

next n
unlock vertexdata

REMSTART
lock vertexdata for limb ref2_obj,2,1  `bizzarely, limb 2 has the vertices! should remesh.
n=GET VERTEXDATA VERTEX COUNT()-1  `81-1
for i=0 to n
`simple projection onto sphere to test.
x#=vertxpos#(i)
y#=vertypos#(i)

rsq#=x#*x#+y#*y#
lsq#=rsq#+1.0  `+zsq#
brak#=(1.0-f2#*f2#*rsq#/lsq#)/lsq#
q#=-f2#/lsq# + sqrt(brak#)
x#=x#*q#
y#=y#*q#
z#=-f2#-q#

set vertexdata position i,x#,y#,z#

next n
unlock vertexdata
REMEND

`REMSTART
`UP CAMERA

lock vertexdata for limb ref1u_obj,2,1  `bizzarely, limb 2 has the vertices! should remesh.
n=GET VERTEXDATA VERTEX COUNT()-1  `81-1
for i=0 to n
`simple projection onto sphere to test.
x#=vertxpos#(i)
z#=-vertypos#(i)  `up so y always 1 ?!
y#=1.0
rsq#=x#*x# + 1.0  `+y#*y#
lsq#=rsq#+z#*z#
brak#=(1.0-f1#*f1#*rsq#/lsq#)/lsq#
q#=-f1#*z#/lsq# + sqrt(brak#)
x#=x#*q#
y#=y#*q#
z#=-f1#-z#*q#

set vertexdata position i,x#,y#,z#

next n
unlock vertexdata


`DOWN CAMERA
lock vertexdata for limb ref1d_obj,2,1  `bizzarely, limb 2 has the vertices! should remesh.
n=GET VERTEXDATA VERTEX COUNT()-1  `81-1
for i=0 to n
`simple projection onto sphere to test.
x#=vertxpos#(i)
z#=vertypos#(i)
y#=-1.0
rsq#=x#*x# + 1.0  `+y#*y#
lsq#=rsq#+z#*z#
brak#=(1.0-f1#*f1#*rsq#/lsq#)/lsq#
q#=-f1#*z#/lsq# + sqrt(brak#)
x#=x#*q#
y#=y#*q#
z#=-f1#-z#*q#

set vertexdata position i,x#,y#,z#

next n
unlock vertexdata



`LEFT
lock vertexdata for limb ref1l_obj,2,1  `bizzarely, limb 2 has the vertices! should remesh.
n=GET VERTEXDATA VERTEX COUNT()-1  `81-1
for i=0 to n
`simple projection onto sphere to test.
x#=-1.0
z#=vertxpos#(i)
y#=vertypos#(i)
rsq#=y#*y# + 1.0  `+y#*y#
lsq#=rsq#+z#*z#
brak#=(1.0-f1#*f1#*rsq#/lsq#)/lsq#
q#=-f1#*z#/lsq# + sqrt(brak#)
x#=x#*q#
y#=y#*q#
z#=-f1#-z#*q#

set vertexdata position i,x#,y#,z#

next n
unlock vertexdata


`RIGHT
lock vertexdata for limb ref1r_obj,2,1  `bizzarely, limb 2 has the vertices! should remesh.
n=GET VERTEXDATA VERTEX COUNT()-1  `81-1
for i=0 to n
`simple projection onto sphere to test.
x#=1.0
z#=-vertxpos#(i)
y#=vertypos#(i)
rsq#=y#*y# + 1.0  `+y#*y#
lsq#=rsq#+z#*z#
brak#=(1.0-f1#*f1#*rsq#/lsq#)/lsq#
q#=-f1#*z#/lsq# + sqrt(brak#)
x#=x#*q#
y#=y#*q#
z#=-f1#-z#*q#

set vertexdata position i,x#,y#,z#

next n
unlock vertexdata




REMSTART
text 0,50,str$(f1#)
text 0,60,str$(f2#)
REMEND



`cosmetic thing for fun. spin one of the thingys (not spinning portal though! although could do this easily-
`just a set to portal object orientation!
`would also need to apply rotation to position co-ords

turn object left level_obj3,0.5
turn object left level_obj4,0.5  `"light map"


docam=1  `default
`docam=1-docam  `for fraps -capturing at 25 fps instead of 50 FOR YOUTUBE VID CAPTURE
IF docam
   sync mask 126:sync   `add nonexistent cam 2- maybe will fix problem with not rendering cam 3. DBP BUG?
   sync mask 1:sync  `render 0
ENDIF


loop


end




function single_pixel_image(imagenum,red,green,blue,alpha)
temp_memblocknum=1
   make memblock temp_memblocknum,16
   write memblock dword temp_memblocknum,0,1
   write memblock dword temp_memblocknum,4,1
   write memblock dword temp_memblocknum,8,32
   write memblock dword temp_memblocknum,12,rgba(red,green,blue,alpha)
   make image from memblock imagenum,1
   delete memblock temp_memblocknum
endfunction

`RGBA function by Aaron Miller
function rgba(r,g,b,a)
   c = (a and 0xff) << 24 or ((r and 0xff) << 16) or ((g and 0xff) << 8) or (b and 0xff)
endfunction c

#constant portal_radius 0.2
#constant portal_radius_b 0.2025

Rem Project: spherical portal thingy
Rem Created: 29/03/2010 20:36:16

Rem ***** Main Source File *****

#constant ref1_obj 2
#constant ref2_obj 3


#constant box1_obj 6
#constant box2_obj 7

#constant level_obj1 8
#constant level_obj2 9
#constant level_obj3 10
#constant level_obj4 11

#constant ref1u_obj 13
#constant ref1d_obj 14
#constant ref1l_obj 15
#constant ref1r_obj 16

#constant level1_tex 1
#constant level2_tex 2
#constant level1_lm 3
#constant level2_lm 4

#constant ref1_tex 5
#constant ref2_tex 6
#constant bg1_tex 7
#constant bg2_tex 8

#constant ref1u_tex 6
#constant ref1d_tex 7
#constant ref1l_tex 8
#constant ref1r_tex 9

sync on


set display mode 1280,720,32
`set display mode 800,600,32
set camera aspect 1.667:sync rate 0

`set display mode 640,480,32:set camera aspect 1.333   `good for fraps FOR YOUTUBE VID CAPTURE
`sync rate 100   `?? not sure what sense has with many cameras. presumably 2 sync calls (one multicam) means actual framerate halved?


hide mouse
autocam off



#constant portal_radius 0.2
                                    `a fudge. get teleport to happen a tiny bit before get to sphere surface.
#constant portal_radius_b 0.20002   `v slight. avoids wierdness when get very close to portal.
                                    `perhaps because mesh not exactly radius 1


dim portalpos#(2,3)

portalpos#(1,1) =-10
portalpos#(1,2) =1
portalpos#(1,3) =0

portalpos#(2,1) =10
portalpos#(2,2) =1
portalpos#(2,3) =0


`CARTOGRAPHY SHOP STUFF!!
load object "wierd cylinder/wierd_cylinder.x",level_obj1
load object "wierd cylinder/wierd_cylinder_lm.x",level_obj2 `a
ghost object on level_obj2,1

`load object "wierd cylinder/wierd_cylinder_snow.x",level_obj3    `as above, just different textures.
`load object "wierd cylinder/wierd_cylinder_lmx.x",level_obj4   `""
clone object level_obj3,level_obj1
clone object level_obj4,level_obj2
ghost object on level_obj4,1

set ambient light 100

load image "wierd cylinder/AlgaeBricks.jpg",level1_tex      :texture object level_obj1,level1_tex
load image "wierd cylinder/SnowBricks.jpg",level2_tex       :texture object level_obj3,level2_tex
load image "wierd cylinder/wierd_cylinder_1a.jpg",level1_lm :texture object level_obj2,level1_lm
load image "wierd cylinder/wierd_cylinder_1x.jpg",level2_lm :texture object level_obj4,level2_lm   `mixed up #s


sf#=0.2
scale object level_obj1,sf#,sf#,sf#
scale object level_obj2,sf#,sf#,sf#
scale object level_obj3,sf#,sf#,sf#
scale object level_obj4,sf#,sf#,sf#

position object level_obj1,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3)
position object level_obj2,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3)
position object level_obj3,portalpos#(2,1),portalpos#(2,2),portalpos#(2,3)
position object level_obj4,portalpos#(2,1),portalpos#(2,2),portalpos#(2,3)

yrotate object level_obj3,90
yrotate object level_obj4,90


`make some more cameras
make camera 1
make camera 2  `UNUSED. MAYBE HAVING IT WILL STOP BUGS?

make camera 3  `up camera
make camera 4  `down
make camera 5  `left
make camera 6  `right

set camera to image 1,ref1_tex,256,256    `seems maybe need same res for all images.
`set camera to image 2,ref2_tex,512,512
set camera to image 3,ref1u_tex,256,256
set camera to image 4,ref1d_tex,256,256
set camera to image 5,ref1l_tex,256,256
set camera to image 6,ref1r_tex,256,256

REMSTART
set camera to image 1,ref1_tex,512,512 `THINK MAYBE 1st TEX IN CUBEMAP LIST DETERMINES RES OF ALL OTHERS (stretched or squished)
set camera to image 3,ref1u_tex,512,512   `might need huge images for this when using cubemapping so can
set camera to image 4,ref1d_tex,512,512   `have big central image. could do 2 shader workaround
set camera to image 5,ref1l_tex,512,512   `would need to go back to projected cube mesh.
set camera to image 6,ref1r_tex,512,512
REMEND

set camera aspect 1,1   `think should be default anyway
`set camera aspect 2,1
set camera aspect 3,1
set camera aspect 4,1
set camera aspect 5,1
set camera aspect 6,1
set camera fov 1,90
`set camera fov 2,90
set camera fov 3,90
set camera fov 4,90
set camera fov 5,90
set camera fov 6,90

sf#=portal_radius*100.0

set camera range 0,0.002,40.0
`set camera range 0,0.001,40.0

set camera range 1,0.05,40.0
`set camera range 2,0.05,50.0
set camera range 3,0.05,40.0
set camera range 4,0.05,40.0
set camera range 5,0.05,40.0
set camera range 6,0.05,40.0
`set camera fov 1,90  `as default i think. also aspect should be 1 as expect.

fmodel=1

`for cshop new levels.
`should use a skybox or something.
backdrop off 1
`backdrop on 2
backdrop off 3
backdrop off 4
backdrop off 5
backdrop off 6

`start pos near one portal
position camera 0,-10.5,2.5,-1.0

dim cam_mat#(1,3,3)

make object sphere 100,19
make object sphere 101,19
load image "skyspheres/cloudy moor.JPG",100
load image "skyspheres/alien maelstrom.JPG",101
texture object 100,100
texture object 101,101
set object cull 100,0
set object cull 101,0
position object 101,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3)
position object 100,portalpos#(2,1),portalpos#(2,2),portalpos#(2,3)
`should reposition each frame, but doesn't really matter

`LOAD SHADER
cube_eff=3
`load effect "effects/final3.fx",cube_eff,1
load effect "effects/final4.fx",cube_eff,1

`make an object to display cube map. ideally want a moving vertex shader similar to orig system - meaning
`can use lower # polygons. but for now a simple sphere will suffice
cmap_portal_obj=200
bluetex=300
single_pixel_image(bluetex,0,0,255,255)   `blank bump map (should be blue)
blanktex=301
single_pixel_image(blanktex,0,255,255,255)   `blank image for 6th cubemap face (cyan)


`make object sphere cmap_portal_obj,portal_radius*2.0 , 20,100
`make object sphere cmap_portal_obj,portal_radius*2.0 , 40,200
`load object "half_ball mirrored.x",cmap_portal_obj `saved from ms3d radius 100.
load object "half_ball_rad1.x",cmap_portal_obj  `RADIUS 1
scale object cmap_portal_obj,portal_radius*100.0,portal_radius*100.0,portal_radius*100.0


texture object cmap_portal_obj,0,bluetex  `needs dummy texture on stage 0 for some reason.
set object effect cmap_portal_obj,cube_eff
set cube mapping on cmap_portal_obj, ref1l_tex,ref1r_tex, ref1u_tex,ref1d_tex, ref1_tex,blanktex   `back image is never seen.



do


circle screen width()/2,screen height()/2,6.0

mc=mouseclick()
cv#=0.999*cv#+0.0001*( 2*(mc&&1 ) - (mc&&2) )
if mc=0  then cv#=0.85*cv#
move camera cv#


`new cam rotation code - free flight. should add in some kind of anti roll.
turn camera right 0.15*mousemovex()
pitch camera down 0.15*mousemovey()
`some kind of anti roll. what is camera side's up component?
EZro_Set camera angle x(0), camera angle y(0), camera angle z(0)
roll camera right 5.5*EZro_GetMatXY()                     `not sure which component wanted.
`^^ a tiny possibility that if upside down, will stay that way! unstable equilibrium. maybe should add in something
`to stop this from happening!


cx#=camera position x(0)
cy#=camera position y(0)
cz#=camera position z(0)

`actual doing the portal.

rsq#=cz#*cz#+(cy#-1.0)^2.0

IF cx#<0.0

totsq#=rsq#+(cx#+10.0)^2.0
if totsq# < portal_radius_b*portal_radius_b

_reflect_camera(cx#+10.0,cy#-1.0,cz#)  `use ezrotate to rotate about this axis. not easy really!

test1=1
ratio#=(portal_radius_b*portal_radius_b)/totsq#
cz#=-cz#*ratio#
cy#=-(cy#-1.0)*ratio# +1.0
cx#=-(cx#+10.0)*ratio# + 10.0

position camera 0,cx#,cy#,cz#
endif


ELSE

totsq#=rsq#+(cx#-10.0)^2.0
if totsq# < portal_radius_b*portal_radius_b

_reflect_camera(cx#-10.0,cy#-1.0,cz#)  `use ezrotate to rotate about this axis. not easy really!

test2=1
ratio#=(portal_radius_b*portal_radius_b)/totsq#
cz#=-cz#*ratio#
cy#=-(cy#-1.0)*ratio# +1.0
cx#=-(cx#-10.0)*ratio# - 10.0

position camera 0,cx#,cy#,cz#
endif

ENDIF



`reposition things, because now putting portal view objects on NEAREST portal.
`a better system would be to have levels of detail for different resolutions, and to refresh distant portal cam
`views once every few frames. for now make do with more limited system

if cx#<0.0
   in_portal=1
   out_portal=2
else
   in_portal=2
   out_portal=1
endif


`CUBEMAP PORTAL!
position object cmap_portal_obj, portalpos#(in_portal,1),portalpos#(in_portal,2),portalpos#(in_portal,3)

`position camera 2,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3) `SWITCHED CAM POSITIONS TO MAKE PORTAL
position camera 1,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3)`point camera 1,cx#,cy#,cz#
position camera 3,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3) `up
position camera 4,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3) `up
position camera 5,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3) `up
position camera 6,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3) `up

point object cmap_portal_obj, cx#,cy#,cz#
turn object left cmap_portal_obj,180.0 `fudge - should be able to switch things around and lose this.

set camera to object orientation 1,cmap_portal_obj  `:turn camera right 1,180  `SHOULD MOVE THIS -
`set camera to object orientation 2,ref2_obj  `:turn camera right 2,180  `OR RENDER OTHER CAMS BEFORE 0
set camera to object orientation 3,cmap_portal_obj
set camera to object orientation 4,cmap_portal_obj
set camera to object orientation 5,cmap_portal_obj
set camera to object orientation 6,cmap_portal_obj

dx#=portalpos#(in_portal,1) - cx#
dy#=portalpos#(in_portal,2) - cy#
dz#=portalpos#(in_portal,3) - cz#
v1#=sqrt(dx#*dx#+dy#*dy#+dz#*dz#)

vs1#=v1#/portal_radius

if keystate(2) then fmodel=1
if keystate(3) then fmodel=2
if fmodel=1
   f1#=vs1#/(2.0*vs1#-1.0)
else
   f1#=1.0/vs1#  `simple model. better is v/(2v-1)
endif

   fb#=1.0/vs1#   `other focus - where to project vertices onto sphere from (so hemisphere is spread out only over
               `part of sphere you can see.
   move camera 1,portal_radius*f1#  `could calc this position and position cams at it. no big deal.
   move camera 3,portal_radius*f1#
   move camera 4,portal_radius*f1#
   move camera 5,portal_radius*f1#
   move camera 6,portal_radius*f1#
   turn camera left 5,-90
   turn camera left 6,90
   pitch camera up 4,-90
   pitch camera up 3,90


text 0,0,str$(screen fps())

`set effect constant float cube_eff,"focus",portal_radius*f1#
set effect constant float cube_eff,"focus",f1# `now using half ball with unscaled radius 100
set effect constant float cube_eff,"focusb",fb# `now using half ball with unscaled radius 100
set effect constant float cube_eff,"vertscalexy",sqrt(1.0-fb#*fb#)
set effect constant float cube_eff,"focusb2",1.0-fb#

`cosmetic thing for fun. spin one of the thingys (not spinning portal though! although could do this easily-
`just a set to portal object orientation!
`would also need to apply rotation to position co-ords

turn object left level_obj3,0.5
turn object left level_obj4,0.5  `"light map"


docam=1  `default
`docam=1-docam  `for fraps -capturing at 25 fps instead of 50 FOR YOUTUBE VID CAPTURE
IF docam
   sync mask 122:fastsync
   sync mask 1:sync  `render 0
ENDIF


loop


end




function single_pixel_image(imagenum,red,green,blue,alpha)
temp_memblocknum=1
   make memblock temp_memblocknum,16
   write memblock dword temp_memblocknum,0,1
   write memblock dword temp_memblocknum,4,1
   write memblock dword temp_memblocknum,8,32
   write memblock dword temp_memblocknum,12,rgba(red,green,blue,alpha)
   make image from memblock imagenum,1
   delete memblock temp_memblocknum
endfunction

`RGBA function by Aaron Miller
function rgba(r,g,b,a)
   c = (a and 0xff) << 24 or ((r and 0xff) << 16) or ((g and 0xff) << 8) or (b and 0xff)
endfunction c

function _reflect_camera(cx#,cy#,cz#)
`rotate by 180 about that axis.
`EZro_Set EulerX#, EulerY#, EulerZ#
a=0:b=1
EZro_Set camera angle x(0), camera angle y(0), camera angle z(0)
cam_mat#(a,1,1)=EZro_GetMatXX():cam_mat#(a,1,2)=EZro_GetMatXY():cam_mat#(a,1,3)=EZro_GetMatXZ()
cam_mat#(a,2,1)=EZro_GetMatYX():cam_mat#(a,2,2)=EZro_GetMatYY():cam_mat#(a,2,3)=EZro_GetMatYZ()
cam_mat#(a,3,1)=EZro_GetMatZX():cam_mat#(a,3,2)=EZro_GetMatZY():cam_mat#(a,3,3)=EZro_GetMatZZ()
`now do the reflection.
clen#=sqrt(cx#*cx#+cy#*cy#+cz#*cz#)
cx#=cx#/clen#:cy#=cy#/clen#:cz#=cz#/clen#
`think should transform vector
`v= c(v.c) + { v-c(v.c) }
`=> v' = 2c(v.c) - v
for k=1 to 3
vdotc#=cam_mat#(a,k,1)*cx# + cam_mat#(a,k,2)*cy# + cam_mat#(a,k,3)*cz#
cam_mat#(b,k,1)=2.0*cx#*vdotc#-cam_mat#(a,k,1)
cam_mat#(b,k,2)=2.0*cy#*vdotc#-cam_mat#(a,k,2)
cam_mat#(b,k,3)=2.0*cz#*vdotc#-cam_mat#(a,k,3)
next k
`now get euler rotations for this matrix
`EZro_SetMatRowX MatrixXX#, MatrixXY#, MatrixXZ#
EZro_SetMatRowX cam_mat#(b,1,1),cam_mat#(b,1,2),cam_mat#(b,1,3)
EZro_SetMatRowY cam_mat#(b,2,1),cam_mat#(b,2,2),cam_mat#(b,2,3)
EZro_SetMatRowZ cam_mat#(b,3,1),cam_mat#(b,3,2),cam_mat#(b,3,3)
rotate camera 0,EZro_GetX(),EZro_GetY(),EZro_GetZ()
endfunction

// The following lines are variables which are recognised and passed by the 
// application and often referred to as "untweaks".

matrix wvp : WorldViewProjection;

// The following lines are variables which can be set by the application
// (these are usually variables which the user may want to adjust from
// their program).

float4 lightColour = {1.5, 1.5, 1.5, 1.0}; // {red, green, blue, alpha}
float focus = 0.0;	//sent from DBP.	focus from which PIXELS projected (gets close to 1 for close up i think)
float focusb =0.0;	//focus from which VERTICES are projected `2 focii are equal for model 2. different for model 1

float2 dummyuv = {0.0,0.0}; //to sample from unused dummy texture

float vertscalexy = 0.0;
float focusb2 = 0.0;

// The following lines define structures that are used as input and output
// to the vertex and pixel shader functions.

struct VSInput {
float4 Pos  : Position;
};

struct VSOutput {
float4 Pos : Position;
float3 ProjPoint : TEXCOORD0;
};

// The pixel shader does not need an input structure for this example.

struct PSOutput {
float4 Col : Color;
};


// texture stuff

//this is unused. seem to need it to have cubemapping working in DBP U74. 
//i say texture is unused. actually you are required to use it. i multiply by 0.000000000000000000000000000001 and add to final colour.
texture bumpTexture < string ResourceName = ""; >;
sampler2D   bumpSample = sampler_state 
{  texture = <bumpTexture>; };

//the actual texture we want to use:
texture cubeTexture
< string ResourceName = "";
  string Type = "CUBE";
>;

samplerCUBE cubeSample = sampler_state 
{ texture = <cubeTexture>; };



// The vertex shader code:

VSOutput VShader (VSInput In, VSOutput Out)
{  // Transforms the objects model coordinates to
   // screen space coordinates

//move vertices. - so hemisphere of original mesh is spread over only the part you can see.
// means that when you get close to the portal, effectively there is more detail.
	
Out.Pos = In.Pos;		
Out.Pos.z=Out.Pos.z*focusb2- focusb ;			//basically scaling the hemisphere so that the equator goes around		
Out.Pos.xy*=vertscalexy;						//the limit of what you can see of the sphere.
normalize(Out.Pos);							//this line projects that mesh back onto the surface of the sphere.
									//note that the mesh does not appear scaled! think this is because when resize (*0.01)
									//the w component gets scaled too. Not entirely sure why that works but it does.

Out.ProjPoint = Out.Pos;		//get vector that will be used to project onto cube map
Out.ProjPoint.z+=focus;	

Out.Pos = mul(Out.Pos, wvp);	//convert model space mesh data to view space.
Out.Pos.z=max(0.0f,Out.Pos.z);	//to prevent cam clipping! 

   return Out;
};

// The pixel shader code:

PSOutput PShader (VSOutput In,PSOutput Out)
{ 
	float4 dummycol = tex2D(bumpSample , dummyuv);		//need to use 1st texture (dummy) so second will be used as cubemap
	Out.Col = texCUBE(cubeSample,-In.ProjPoint);	//THIS IS THE LINE THAT DOES WHAT WE WANT.
	Out.Col+= 0.00000000000001*dummycol;		//need to use the dummy texture, but don't want to see it's effect!
   	return Out;
};

// The following lines just put this together as a single technique
// with a single pass.

technique simplyOneColour
{  pass p1
   {  VertexShader = compile vs_2_0 VShader();
      PixelShader  = compile  ps_2_0 PShader();
   }
}

Rem Project: spherical portal thingy
Rem Created: 29/03/2010 20:36:16

Rem ***** Main Source File *****

#constant ref1_obj 2
#constant ref2_obj 3


#constant box1_obj 6
#constant box2_obj 7

#constant level_obj1 8
#constant level_obj2 9
#constant level_obj3 10
#constant level_obj4 11

#constant ref1u_obj 13
#constant ref1d_obj 14
#constant ref1l_obj 15
#constant ref1r_obj 16

#constant level1_tex 1
#constant level2_tex 2
#constant level1_lm 3
#constant level2_lm 4

#constant ref1_tex 5
#constant ref2_tex 6
#constant bg1_tex 7
#constant bg2_tex 8

#constant ref1u_tex 6
#constant ref1d_tex 7
#constant ref1l_tex 8
#constant ref1r_tex 9

sync on


set display mode 1280,720,32
`set display mode 800,600,32
set camera aspect 1.667:sync rate 0

`set display mode 640,480,32:set camera aspect 1.333   `good for fraps FOR YOUTUBE VID CAPTURE
`sync rate 100   `?? not sure what sense has with many cameras. presumably 2 sync calls (one multicam) means actual framerate halved?


hide mouse
autocam off



#constant portal_radius 0.2
                                    `a fudge. get teleport to happen a tiny bit before get to sphere surface.
#constant portal_radius_b 0.20002   `v slight. avoids wierdness when get very close to portal.
                                    `perhaps because mesh not exactly radius 1


dim portalpos#(2,3)

portalpos#(1,1) =-10
portalpos#(1,2) =1
portalpos#(1,3) =0

portalpos#(2,1) =10
portalpos#(2,2) =1
portalpos#(2,3) =0


`CARTOGRAPHY SHOP STUFF!!
load object "wierd cylinder/wierd_cylinder.x",level_obj1
load object "wierd cylinder/wierd_cylinder_lm.x",level_obj2 `a
ghost object on level_obj2,1

`load object "wierd cylinder/wierd_cylinder_snow.x",level_obj3    `as above, just different textures.
`load object "wierd cylinder/wierd_cylinder_lmx.x",level_obj4   `""
clone object level_obj3,level_obj1
clone object level_obj4,level_obj2
ghost object on level_obj4,1

set ambient light 100

load image "wierd cylinder/AlgaeBricks.jpg",level1_tex      :texture object level_obj1,level1_tex
load image "wierd cylinder/SnowBricks.jpg",level2_tex       :texture object level_obj3,level2_tex
load image "wierd cylinder/wierd_cylinder_1a.jpg",level1_lm :texture object level_obj2,level1_lm
load image "wierd cylinder/wierd_cylinder_1x.jpg",level2_lm :texture object level_obj4,level2_lm   `mixed up #s


sf#=0.2
scale object level_obj1,sf#,sf#,sf#
scale object level_obj2,sf#,sf#,sf#
scale object level_obj3,sf#,sf#,sf#
scale object level_obj4,sf#,sf#,sf#

position object level_obj1,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3)
position object level_obj2,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3)
position object level_obj3,portalpos#(2,1),portalpos#(2,2),portalpos#(2,3)
position object level_obj4,portalpos#(2,1),portalpos#(2,2),portalpos#(2,3)

yrotate object level_obj3,90
yrotate object level_obj4,90


`make some more cameras
make camera 1
make camera 2  `UNUSED. MAYBE HAVING IT WILL STOP BUGS?

make camera 3  `up camera
make camera 4  `down
make camera 5  `left
make camera 6  `right

set camera to image 1,ref1_tex,256,256    `seems maybe need same res for all images.
`set camera to image 2,ref2_tex,512,512
set camera to image 3,ref1u_tex,256,256
set camera to image 4,ref1d_tex,256,256
set camera to image 5,ref1l_tex,256,256
set camera to image 6,ref1r_tex,256,256

REMSTART
set camera to image 1,ref1_tex,512,512 `THINK MAYBE 1st TEX IN CUBEMAP LIST DETERMINES RES OF ALL OTHERS (stretched or squished)
set camera to image 3,ref1u_tex,512,512   `might need huge images for this when using cubemapping so can
set camera to image 4,ref1d_tex,512,512   `have big central image. could do 2 shader workaround
set camera to image 5,ref1l_tex,512,512   `would need to go back to projected cube mesh.
set camera to image 6,ref1r_tex,512,512
REMEND

set camera aspect 1,1   `think should be default anyway
`set camera aspect 2,1
set camera aspect 3,1
set camera aspect 4,1
set camera aspect 5,1
set camera aspect 6,1

fudge_fov#=90.0   `can't seem to fix stitching problems. Maybe better to use Darkshader commands (although a tiny bit slower)

set camera fov 1,fudge_fov#
`set camera fov 2,90
set camera fov 3,fudge_fov#
set camera fov 4,fudge_fov#
set camera fov 5,fudge_fov#
set camera fov 6,fudge_fov#

sf#=portal_radius*100.0

set camera range 0,0.002,40.0
`set camera range 0,0.001,40.0

set camera range 1,0.05,40.0
`set camera range 2,0.05,50.0
set camera range 3,0.05,40.0
set camera range 4,0.05,40.0
set camera range 5,0.05,40.0
set camera range 6,0.05,40.0
`set camera fov 1,90  `as default i think. also aspect should be 1 as expect.

fmodel=1

`for cshop new levels.
`should use a skybox or something.
backdrop off 1
`backdrop on 2
backdrop off 3
backdrop off 4
backdrop off 5
backdrop off 6

`start pos near one portal
position camera 0,-10.5,2.5,-1.0

dim cam_mat#(1,3,3)

make object sphere 100,19
make object sphere 101,19
load image "skyspheres/cloudy moor.JPG",100
load image "skyspheres/alien maelstrom.JPG",101
texture object 100,100
texture object 101,101
set object cull 100,0
set object cull 101,0
position object 101,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3)
position object 100,portalpos#(2,1),portalpos#(2,2),portalpos#(2,3)
`should reposition each frame, but doesn't really matter

`LOAD SHADER
cube_eff=4
cube_effb=3
`load effect "effects/final3.fx",cube_eff,1
`load effect "effects/final4 remove dummyb.fx",cube_eff,1

load effect "effects/final4 set registers tidy.fx",cube_eff,1

`make an object to display cube map. ideally want a moving vertex shader similar to orig system - meaning
`can use lower # polygons. but for now a simple sphere will suffice
cmap_portal_obj=200
`cmap_portal_objb=201
bluetex=300
single_pixel_image(bluetex,0,0,255,255)   `blank bump map (should be blue)
blanktex=301
single_pixel_image(blanktex,0,255,255,255)   `blank image for 6th cubemap face (cyan)


`make object sphere cmap_portal_obj,portal_radius*2.0 , 20,100
`make object sphere cmap_portal_obj,portal_radius*2.0 , 40,200
`load object "half_ball mirrored.x",cmap_portal_obj `saved from ms3d radius 100.
load object "half_ball_rad1.x",cmap_portal_obj  `RADIUS 1
scale object cmap_portal_obj,portal_radius*100.0,portal_radius*100.0,portal_radius*100.0

`texture object cmap_portal_obj,0,bluetex  `needs dummy texture on stage 0 for some reason.
set object effect cmap_portal_obj,cube_eff
set cube mapping on cmap_portal_obj, ref1l_tex,ref1r_tex, ref1u_tex,ref1d_tex, ref1_tex,blanktex   `back image is never seen.
set object mask cmap_portal_obj,1   `only render to cam 1!

REMSTART
`hopefully can have 2nd object using same images. - YOU CANNOT
load object "half_ball_rad1.x",cmap_portal_objb  `RADIUS 1
scale object cmap_portal_obj,portal_radius*100.0,portal_radius*100.0,portal_radius*100.0
set object effect cmap_portal_objb,cube_effb
set cube mapping on cmap_portal_objb, ref1l_tex,ref1r_tex, ref1u_tex,ref1d_tex, ref1_tex,blanktex   `back image is never seen.
set object mask cmap_portal_objb,1   `only render to cam 1!
REMEND



do



circle screen width()/2,screen height()/2,6.0

mc=mouseclick()
cv#=0.999*cv#+0.0001*( 2*(mc&&1 ) - (mc&&2) )
if mc=0  then cv#=0.85*cv#
move camera cv#


`new cam rotation code - free flight. should add in some kind of anti roll.
turn camera right 0.15*mousemovex()
pitch camera down 0.15*mousemovey()
`some kind of anti roll. what is camera side's up component?
EZro_Set camera angle x(0), camera angle y(0), camera angle z(0)
roll camera right 5.5*EZro_GetMatXY()                     `not sure which component wanted.
`^^ a tiny possibility that if upside down, will stay that way! unstable equilibrium. maybe should add in something
`to stop this from happening!


cx#=camera position x(0)
cy#=camera position y(0)
cz#=camera position z(0)

`actual doing the portal.

rsq#=cz#*cz#+(cy#-1.0)^2.0

IF cx#<0.0

totsq#=rsq#+(cx#+10.0)^2.0
if totsq# < portal_radius_b*portal_radius_b

_reflect_camera(cx#+10.0,cy#-1.0,cz#)  `use ezrotate to rotate about this axis. not easy really!

test1=1
ratio#=(portal_radius_b*portal_radius_b)/totsq#
cz#=-cz#*ratio#
cy#=-(cy#-1.0)*ratio# +1.0
cx#=-(cx#+10.0)*ratio# + 10.0

position camera 0,cx#,cy#,cz#
endif


ELSE

totsq#=rsq#+(cx#-10.0)^2.0
if totsq# < portal_radius_b*portal_radius_b

_reflect_camera(cx#-10.0,cy#-1.0,cz#)  `use ezrotate to rotate about this axis. not easy really!

test2=1
ratio#=(portal_radius_b*portal_radius_b)/totsq#
cz#=-cz#*ratio#
cy#=-(cy#-1.0)*ratio# +1.0
cx#=-(cx#-10.0)*ratio# - 10.0

position camera 0,cx#,cy#,cz#
endif

ENDIF



`reposition things, because now putting portal view objects on NEAREST portal.
`a better system would be to have levels of detail for different resolutions, and to refresh distant portal cam
`views once every few frames. for now make do with more limited system

if cx#<0.0
   in_portal=1
   out_portal=2
else
   in_portal=2
   out_portal=1
endif


`CUBEMAP PORTAL!
position object cmap_portal_obj, portalpos#(in_portal,1),portalpos#(in_portal,2),portalpos#(in_portal,3)
`position object cmap_portal_objb, portalpos#(in_portal,1),portalpos#(in_portal,2),portalpos#(in_portal,3)

`position camera 2,portalpos#(1,1),portalpos#(1,2),portalpos#(1,3) `SWITCHED CAM POSITIONS TO MAKE PORTAL
position camera 1,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3)`point camera 1,cx#,cy#,cz#
position camera 3,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3) `up
position camera 4,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3) `up
position camera 5,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3) `up
position camera 6,portalpos#(out_portal,1),portalpos#(out_portal,2),portalpos#(out_portal,3) `up

point object cmap_portal_obj, cx#,cy#,cz#
`point object cmap_portal_objb, cx#,cy#,cz#
turn object left cmap_portal_obj,180.0 `fudge - should be able to switch things around and lose this.
`turn object left cmap_portal_objb,180.0 `fudge

set camera to object orientation 1,cmap_portal_obj  `:turn camera right 1,180  `SHOULD MOVE THIS -
`set camera to object orientation 2,ref2_obj  `:turn camera right 2,180  `OR RENDER OTHER CAMS BEFORE 0
set camera to object orientation 3,cmap_portal_obj
set camera to object orientation 4,cmap_portal_obj
set camera to object orientation 5,cmap_portal_obj
set camera to object orientation 6,cmap_portal_obj

dx#=portalpos#(in_portal,1) - cx#
dy#=portalpos#(in_portal,2) - cy#
dz#=portalpos#(in_portal,3) - cz#
v1#=sqrt(dx#*dx#+dy#*dy#+dz#*dz#)

vs1#=v1#/portal_radius

if keystate(2) then fmodel=1
if keystate(3) then fmodel=2
if fmodel=1
   f1#=vs1#/(2.0*vs1#-1.0)
else
   f1#=1.0/vs1#  `simple model. better is v/(2v-1)
endif

   fb#=1.0/vs1#   `other focus - where to project vertices onto sphere from (so hemisphere is spread out only over
               `part of sphere you can see.
   move camera 1,portal_radius*f1#  `could calc this position and position cams at it. no big deal.
   move camera 3,portal_radius*f1#
   move camera 4,portal_radius*f1#
   move camera 5,portal_radius*f1#
   move camera 6,portal_radius*f1#
   turn camera left 5,-90
   turn camera left 6,90
   pitch camera up 4,-90
   pitch camera up 3,90


text 0,0,str$(screen fps())

`set effect constant float cube_eff,"focus",portal_radius*f1#
set effect constant float cube_eff,"focus",f1# `now using half ball with unscaled radius 100
set effect constant float cube_eff,"focusb",fb# `now using half ball with unscaled radius 100
set effect constant float cube_eff,"vertscalexy",sqrt(1.0-fb#*fb#)
set effect constant float cube_eff,"focusb2",1.0-fb#



`cosmetic thing for fun. spin one of the thingys (not spinning portal though! although could do this easily-
`just a set to portal object orientation!
`would also need to apply rotation to position co-ords

turn object left level_obj3,0.5
turn object left level_obj4,0.5  `"light map"


docam=1  `default
`docam=1-docam  `for fraps -capturing at 25 fps instead of 50 FOR YOUTUBE VID CAPTURE
IF docam
   sync mask 122:fastsync
   sync mask 1:sync  `render 0
ENDIF


`adjust cubemap size to lose texture "stitching" errors?

fudge_fov#=fudge_fov#+0.005*(upkey()-downkey())
text 0,10,str$(fudge_fov#)

set camera fov 1,fudge_fov#
`set camera fov 2,90
set camera fov 3,fudge_fov#
set camera fov 4,fudge_fov#
set camera fov 5,fudge_fov#
set camera fov 6,fudge_fov#





loop


end




function single_pixel_image(imagenum,red,green,blue,alpha)
temp_memblocknum=1
   make memblock temp_memblocknum,16
   write memblock dword temp_memblocknum,0,1
   write memblock dword temp_memblocknum,4,1
   write memblock dword temp_memblocknum,8,32
   write memblock dword temp_memblocknum,12,rgba(red,green,blue,alpha)
   make image from memblock imagenum,1
   delete memblock temp_memblocknum
endfunction

`RGBA function by Aaron Miller
function rgba(r,g,b,a)
   c = (a and 0xff) << 24 or ((r and 0xff) << 16) or ((g and 0xff) << 8) or (b and 0xff)
endfunction c

function _reflect_camera(cx#,cy#,cz#)
`rotate by 180 about that axis.
`EZro_Set EulerX#, EulerY#, EulerZ#
a=0:b=1
EZro_Set camera angle x(0), camera angle y(0), camera angle z(0)
cam_mat#(a,1,1)=EZro_GetMatXX():cam_mat#(a,1,2)=EZro_GetMatXY():cam_mat#(a,1,3)=EZro_GetMatXZ()
cam_mat#(a,2,1)=EZro_GetMatYX():cam_mat#(a,2,2)=EZro_GetMatYY():cam_mat#(a,2,3)=EZro_GetMatYZ()
cam_mat#(a,3,1)=EZro_GetMatZX():cam_mat#(a,3,2)=EZro_GetMatZY():cam_mat#(a,3,3)=EZro_GetMatZZ()
`now do the reflection.
clen#=sqrt(cx#*cx#+cy#*cy#+cz#*cz#)
cx#=cx#/clen#:cy#=cy#/clen#:cz#=cz#/clen#
`think should transform vector
`v= c(v.c) + { v-c(v.c) }
`=> v' = 2c(v.c) - v
for k=1 to 3
vdotc#=cam_mat#(a,k,1)*cx# + cam_mat#(a,k,2)*cy# + cam_mat#(a,k,3)*cz#
cam_mat#(b,k,1)=2.0*cx#*vdotc#-cam_mat#(a,k,1)
cam_mat#(b,k,2)=2.0*cy#*vdotc#-cam_mat#(a,k,2)
cam_mat#(b,k,3)=2.0*cz#*vdotc#-cam_mat#(a,k,3)
next k
`now get euler rotations for this matrix
`EZro_SetMatRowX MatrixXX#, MatrixXY#, MatrixXZ#
EZro_SetMatRowX cam_mat#(b,1,1),cam_mat#(b,1,2),cam_mat#(b,1,3)
EZro_SetMatRowY cam_mat#(b,2,1),cam_mat#(b,2,2),cam_mat#(b,2,3)
EZro_SetMatRowZ cam_mat#(b,3,1),cam_mat#(b,3,2),cam_mat#(b,3,3)
rotate camera 0,EZro_GetX(),EZro_GetY(),EZro_GetZ()
endfunction

// The following lines are variables which are recognised and passed by the 
// application and often referred to as "untweaks".

matrix wvp : WorldViewProjection;

// The following lines are variables which can be set by the application
// (these are usually variables which the user may want to adjust from
// their program).

//float4 lightColour = {1.5, 1.5, 1.5, 1.0}; // {red, green, blue, alpha}
float focus = 0.0;	//sent from DBP.	focus from which PIXELS projected (gets close to 1 for close up i think)
float focusb =0.0;	//focus from which VERTICES are projected `2 focii are equal for model 2. different for model 1

float vertscalexy = 0.0;
float focusb2 = 0.0;

// The following lines define structures that are used as input and output
// to the vertex and pixel shader functions.

struct VSInput {
float4 Pos  : Position;
};

struct VSOutput {
float4 Pos : Position;
float3 ProjPoint : TEXCOORD0;
};

// The pixel shader does not need an input structure for this example.

struct PSOutput {
float4 Col : Color;
};


// texture stuff



texture bumpTexture < string ResourceName = ""; > ;		//need to have dummy tex, but now am specifying register for the other, i needn't
										//sample from it, or even declare a sampler!
//the actual texture we want to use:
texture cubeTexture
< string ResourceName = "";
  string Type = "CUBE";
>;

samplerCUBE cubeSample:register(s1)  = sampler_state { texture = <cubeTexture>; };

// The vertex shader code:

VSOutput VShader (VSInput In, VSOutput Out)
{  // Transforms the objects model coordinates to
   // screen space coordinates

//move vertices. - so hemisphere of original mesh is spread over only the part you can see.
// means that when you get close to the portal, effectively there is more detail.
	
Out.Pos = In.Pos;		
Out.Pos.z=Out.Pos.z*focusb2- focusb ;			//basically scaling the hemisphere so that the equator goes around		
Out.Pos.xy*=vertscalexy;						//the limit of what you can see of the sphere.
//Out.Pos.w=2.0f;	//?!	seems to be an inverse scale for object!!!
Out.Pos.xyz=normalize(Out.Pos.xyz);			//if comment this line out, still seems to work fine (At least when close to the sphere)
								//further testing reveals that this DOES do something.
									//this line projects that mesh back onto the surface of the sphere.
									//note that the mesh does not appear scaled! think this is because when resize (*0.01)
									//the w component gets scaled too. Not entirely sure why that works but it does.

Out.ProjPoint = Out.Pos;		//get vector that will be used to project onto cube map
Out.ProjPoint.z+=focus;	

Out.Pos = mul(Out.Pos, wvp);	//convert model space mesh data to view space.
Out.Pos.z=max(0.0f,Out.Pos.z);	//to prevent cam clipping! 

   return Out;
};

// The pixel shader code:

PSOutput PShader (VSOutput In,PSOutput Out)
{ 
	Out.Col = texCUBE(cubeSample,-In.ProjPoint);	
   	return Out;
};

// The following lines just put this together as a single technique
// with a single pass.

technique simplyOneColour
{  pass p1
   {  VertexShader = compile vs_2_0 VShader();
      PixelShader  = compile  ps_2_0 PShader();
   }
}