void ViewBase::light_rotate(int2 pixels) {
matrix_rotate(light_matrix,
make_float3(pixels.y * pixel_ratio_rotation,
pixels.x * pixel_ratio_rotation,
0),
false);
view.light_pos = vector_rotate(light_pos, light_matrix);
}
// Draw the leaf
void drawPlant(int i, GLfloat t[]) {
GLfloat temp[9];
GLfloat *pivot;
double rotate_angle;
double r;
if(t == NULL) {
t = Nothing;
}
if(i <= 0) {
drawLeafBezier(t);
} else {
matrix_multiply3_3(ScaleDown, t , temp);
t = temp;
t = drawStem(i, t);
pivot = t;
drawPlant(i - 1, t);
// recurse LEFT branch
// rotate between PI/8 to PI/4
r = (double)rand() / (double)RAND_MAX;
rotate_angle = (M_PI / 8) + r * M_PI / 8;
t = matrix_rotate(t, rotate_angle, true);
drawPlant(i - 1, t);
t = pivot;
// recurse RIGHT branch
r = (double)rand() / (double)RAND_MAX;
rotate_angle = (M_PI / 8) + r * M_PI / 8;
t = matrix_rotate(t, -rotate_angle, true);
drawPlant(i - 1, t);
}
}
DECLARE_TEST(matrix, vec) {
vector_t vec;
VECTOR_ALIGN float32_t aligned_rotm[] = {
0, 2, 0, 11,
0, 0, 3, 12,
1, 0, 0, 13,
7, 8, 9, 10
};
VECTOR_ALIGN float32_t aligned_tformm[] = {
0, 2, 0, 0,
0, 0, 3, 0,
1, 0, 0, 0,
-1, 2, 5, 1
};
vec = matrix_rotate(matrix_zero(), vector_zero());
EXPECT_VECTOREQ(vec, vector_zero());
vec = matrix_rotate(matrix_zero(), vector_one());
EXPECT_VECTOREQ(vec, vector(0, 0, 0, 1));
vec = matrix_rotate(matrix_identity(), vector_one());
EXPECT_VECTOREQ(vec, vector_one());
vec = matrix_rotate(matrix_aligned(aligned_rotm), vector_xaxis());
EXPECT_VECTOREQ(vec, vector(0, 2, 0, 1));
vec = matrix_rotate(matrix_aligned(aligned_rotm), vector_yaxis());
EXPECT_VECTOREQ(vec, vector(0, 0, 3, 1));
vec = matrix_rotate(matrix_aligned(aligned_rotm), vector_zaxis());
EXPECT_VECTOREQ(vec, vector(1, 0, 0, 1));
vec = matrix_transform(matrix_zero(), vector_zero());
EXPECT_VECTOREQ(vec, vector_zero());
vec = matrix_transform(matrix_zero(), vector_one());
EXPECT_VECTOREQ(vec, vector(0, 0, 0, 0));
vec = matrix_transform(matrix_identity(), vector_one());
EXPECT_VECTOREQ(vec, vector_one());
vec = matrix_transform(matrix_aligned(aligned_tformm), vector_xaxis());
EXPECT_VECTOREQ(vec, vector(-1, 4, 5, 1));
vec = matrix_transform(matrix_aligned(aligned_tformm), vector_yaxis());
EXPECT_VECTOREQ(vec, vector(-1, 2, 8, 1));
vec = matrix_transform(matrix_aligned(aligned_tformm), vector_zaxis());
EXPECT_VECTOREQ(vec, vector(0, 2, 5, 1));
return 0;
}
int main(){
BOOL done = FALSE;
MSG msg;
IDirect3DDevice9 *device = NULL;
IDirect3DSurface9 *main_rendertarget = NULL;
D3DFORMAT format;
float old_time = 0;
/* render-to-texture-stuff */
IDirect3DTexture9 *rtt_texture;
IDirect3DSurface9 *rtt_surface;
IDirect3DTexture9 *rtt_32_texture;
IDirect3DSurface9 *rtt_32_surface;
/* textures used from mainloop */
int white, black;
int odd_is_back_again[4];
int at_the_gathering_2003[4];
int o_d_d_in_your_face[4];
int world_domination[4];
int back_once_again[3];
int were_back;
int cred[4];
int mad_props[4];
int not_eph[4];
int piss_the_fuck_off[11];
int hardcore;
int refmap, refmap2;
int eatyrcode;
int code_0, code_1;
int overlaytest;
int circle_particle;
/* special-textures */
int rtt_texture_id;
int rtt_32_texture_id;
int video_texture_id;
int dilldall,dilldall2;
int metaball_text;
/* videos */
video *vid;
/* 3d-scenes */
scene *fysikkfjall;
scene *startblob;
scene *inni_abstrakt;
scene *korridor;
scene *skjerm_rom;
scene *bare_paa_lissom;
format = D3DFMT_X8R8G8B8;
device = d3dwin_open(TITLE, WIDTH, HEIGHT, format, FULLSCREEN);
if(!device){
format = D3DFMT_A8R8G8B8;
device = d3dwin_open(TITLE, WIDTH, HEIGHT, format, FULLSCREEN);
if(!device){
format = D3DFMT_X1R5G5B5;
device = d3dwin_open(TITLE, WIDTH, HEIGHT, format, FULLSCREEN);
if(!device){
format = D3DFMT_R5G6B5;
device = d3dwin_open(TITLE, WIDTH, HEIGHT, format, FULLSCREEN);
if(!device) error("failed to initialize Direct3D9");
}
}
}
#ifdef BIGSCREEN
set_gamma(device,1.05f);
#endif
if (!BASS_Init(1, 44100, BASS_DEVICE_LATENCY, win, NULL)) error("failed to initialize BASS");
fp = file_open("worlddomination.ogg");
if (!fp) error("music-file not found");
music_file = BASS_StreamCreateFile(1, fp->data, 0, fp->size, 0);
/*** music ***/
// if(!pest_open(win)) error("failed to initialize DirectSond");
// if(!pest_load("worlddomination.ogg",0)) error("failed to load music-file");
/*** subsystems ***/
init_tunnel();
video_init();
if(!init_particles(device)) error("failed to initialize");
if(!init_overlays(device)) error("f**k a duck");
if(!init_marching_cubes(device)) error("screw a kangaroo");
make_random_particles(particles, PARTICLES, vector_make(0,-180,0), 500);
make_random_particles(particles2, PARTICLES2, vector_make(0,-180,0), 500);
make_random_particles(particles3, PARTICLES3, vector_make(0,0,0), 800);
/*** rendertextures ***/
if (IDirect3DDevice9_CreateTexture(device, 512, 256, 0,D3DUSAGE_RENDERTARGET, D3DFMT_X8R8G8B8, D3DPOOL_DEFAULT, &rtt_texture, NULL)!=D3D_OK) error("failed to create rendertarget-texture");
if (IDirect3DTexture9_GetSurfaceLevel(rtt_texture,0,&rtt_surface)!=D3D_OK) error("could not get kvasi-backbuffer-surface");
if ((rtt_texture_id=texture_insert(device, "rendertexture.jpg", rtt_texture))==-1) error("fakk off!");
if(IDirect3DDevice9_CreateTexture(device,16,16,0,D3DUSAGE_RENDERTARGET|D3DUSAGE_AUTOGENMIPMAP,D3DFMT_X8R8G8B8,D3DPOOL_DEFAULT, &rtt_32_texture, NULL)!=D3D_OK) error("failed to create rendertarget-texture");
if(IDirect3DTexture9_GetSurfaceLevel(rtt_32_texture,0,&rtt_32_surface)!=D3D_OK) error("could not get kvasi-backbuffer-surface");
if((rtt_32_texture_id=texture_insert(device, "rendertexture2.jpg", rtt_32_texture))==-1) error("fakk off!");
/*** textures ***/
/* solid colors for fades etc */
if((white=texture_load(device,"white.png",FALSE))==-1) error("shjit!");
if((black=texture_load(device,"black.png",FALSE))==-1) error("shjit!");
/* textoverlays */
if((odd_is_back_again[0]=texture_load(device,"odd_is_back_again_0.png",FALSE))==-1) error("failed to load image");
if((odd_is_back_again[1]=texture_load(device,"odd_is_back_again_1.png",FALSE))==-1) error("failed to load image");
if((odd_is_back_again[2]=texture_load(device,"odd_is_back_again_2.png",FALSE))==-1) error("failed to load image");
if((odd_is_back_again[3]=texture_load(device,"odd_is_back_again_3.png",FALSE))==-1) error("failed to load image");
if((at_the_gathering_2003[0]=texture_load(device,"at_the_gathering_2003_0.png",FALSE))==-1) error("failed to load image");
if((at_the_gathering_2003[1]=texture_load(device,"at_the_gathering_2003_1.png",FALSE))==-1) error("failed to load image");
if((at_the_gathering_2003[2]=texture_load(device,"at_the_gathering_2003_2.png",FALSE))==-1) error("failed to load image");
if((at_the_gathering_2003[3]=texture_load(device,"at_the_gathering_2003_3.png",FALSE))==-1) error("failed to load image");
if((back_once_again[0]=texture_load(device,"back_once_again_0.png",TRUE))==-1) error("failed to load image");
if((back_once_again[1]=texture_load(device,"back_once_again_1.png",TRUE))==-1) error("failed to load image");
if((back_once_again[2]=texture_load(device,"back_once_again_2.png",TRUE))==-1) error("failed to load image");
if((o_d_d_in_your_face[0]=texture_load(device,"o_d_d_in_your_face_0.png",TRUE))==-1) error("failed to load image");
if((o_d_d_in_your_face[1]=texture_load(device,"o_d_d_in_your_face_1.png",TRUE))==-1) error("failed to load image");
if((o_d_d_in_your_face[2]=texture_load(device,"o_d_d_in_your_face_2.png",TRUE))==-1) error("failed to load image");
if((o_d_d_in_your_face[3]=texture_load(device,"o_d_d_in_your_face_3.png",TRUE))==-1) error("failed to load image");
if((world_domination[0]=texture_load(device,"world_domination_0.png",TRUE))==-1) error("failed to load image");
if((world_domination[1]=texture_load(device,"world_domination_1.png",TRUE))==-1) error("failed to load image");
if((world_domination[2]=texture_load(device,"world_domination_2.png",TRUE))==-1) error("failed to load image");
if((world_domination[3]=texture_load(device,"world_domination_3.png",TRUE))==-1) error("failed to load image");
if((were_back=texture_load(device,"were_back.png",TRUE))==-1) error("failed to load image");
if((cred[0]=texture_load(device,"cred_0.png",TRUE))==-1) error("failed to load image");
if((cred[1]=texture_load(device,"cred_1.png",TRUE))==-1) error("failed to load image");
if((cred[2]=texture_load(device,"cred_2.png",TRUE))==-1) error("failed to load image");
if((cred[3]=texture_load(device,"cred_3.png",TRUE))==-1) error("failed to load image");
if((mad_props[0]=texture_load(device,"mad_props_0.png",TRUE))==-1) error("failed to load image");
if((mad_props[1]=texture_load(device,"mad_props_1.png",TRUE))==-1) error("failed to load image");
if((mad_props[2]=texture_load(device,"mad_props_2.png",TRUE))==-1) error("failed to load image");
if((mad_props[3]=texture_load(device,"mad_props_3.png",TRUE))==-1) error("failed to load image");
if((not_eph[0]=texture_load(device,"not_eph_0.png",TRUE))==-1) error("failed to load image");
if((not_eph[1]=texture_load(device,"not_eph_1.png",TRUE))==-1) error("failed to load image");
if((not_eph[2]=texture_load(device,"not_eph_2.png",TRUE))==-1) error("failed to load image");
if((not_eph[3]=texture_load(device,"not_eph_3.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[0]=texture_load(device,"piss_the_fuck_off_0.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[1]=texture_load(device,"piss_the_fuck_off_1.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[2]=texture_load(device,"piss_the_fuck_off_2.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[3]=texture_load(device,"piss_the_fuck_off_3.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[4]=texture_load(device,"piss_the_fuck_off_4.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[5]=texture_load(device,"piss_the_fuck_off_5.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[6]=texture_load(device,"piss_the_fuck_off_6.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[7]=texture_load(device,"piss_the_fuck_off_7.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[8]=texture_load(device,"piss_the_fuck_off_8.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[9]=texture_load(device,"piss_the_fuck_off_9.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[10]=texture_load(device,"piss_the_fuck_off_10.png",TRUE))==-1) error("failed to load image");
if((hardcore=texture_load(device,"hardcore.png",TRUE))==-1) error("failed to load image");
/* other textures */
if((circle_particle=texture_load(device,"circle_particle.jpg",FALSE))==-1) error("shjit!");
if((refmap=texture_load(device,"fysikkfjall/refmap.jpg",FALSE))==-1) error("shjit!");
if((refmap2=texture_load(device,"refmap2.jpg",FALSE))==-1) error("shjit!");
if((eatyrcode=texture_load(device,"eatyrcode.jpg",FULLSCREEN_HACK))==-1) error("shjit!");
if((code_0=texture_load(device,"code-0.jpg",FALSE))==-1) error("shjit!");
if((code_1=texture_load(device,"code-1.jpg",FALSE))==-1) error("shjit!");
if((overlaytest=texture_load(device,"overlaytest.jpg",FALSE))==-1) error("shjit!");
if((dilldall=texture_load(device,"dilldall.png",FALSE))==-1) error("shjit!");
if((dilldall2=texture_load(device,"dilldall2.png",FALSE))==-1) error("shjit!");
if((metaball_text=texture_load(device,"metaballs.png",TRUE))==-1) error("shjit!");
/*** video ***/
if(!(vid=video_load(device,"test.kpg"))) error("fæck!");
video_texture_id = texture_insert(device, "skjerm_rom/skjerm_tom.tga", vid->texture);
/*** misc stuff ***/
/* main rendertarget */
IDirect3DDevice9_GetRenderTarget(device,0,&main_rendertarget);
/* default state */
IDirect3DDevice9_CreateStateBlock(device, D3DSBT_ALL, &default_state);
init_defaultstate(device);
IDirect3DStateBlock9_Capture(default_state);
/*** 3d scenes ***/
if(!(fysikkfjall=load_scene(device,"fysikkfjall/fysikkfjall.krs"))) error("failed to load 3d scene");
if(!(startblob=load_scene(device,"startblob/startblob.krs"))) error("failed to load 3d scene");
if(!(inni_abstrakt=load_scene(device,"inni_abstrakt/inni_abstrakt.krs"))) error("failed to load 3d scene");
if(!(korridor=load_scene(device,"korridor/korridor.krs"))) error("failed to load 3d scene");
if(!(skjerm_rom=load_scene(device,"skjerm_rom/skjerm_rom.krs"))) error("failed to load 3d scene");
if(!(bare_paa_lissom=load_scene(device,"bare_paa_lissom/bare_paa_lissom.krs"))) error("failed to load 3d scene");
// pest_play();
BASS_Start();
BASS_StreamPlay(music_file, 1, 0);
do{
grid g;
int i;
matrix m, temp, temp_matrix;
matrix marching_cubes_matrix;
long long bytes_played = BASS_ChannelGetPosition(music_file);
float time = bytes_played * (1.0 / (44100 * 2 * 2));
// float time = pest_get_pos()+0.05f;
float delta_time = time-old_time;
int beat = (int)(time*((float)BPM/60.f));
if(time_index<(sizeof(timetable)/4)){
while(timetable[time_index]<time) time_index++;
}
#ifdef _DEBUG
printf("time: %2.2f, delta_time: %2.2f, time_index: %i, beat: %i \r",time,delta_time,time_index,beat);
#endif
IDirect3DDevice9_SetRenderTarget(device,0,main_rendertarget);
IDirect3DStateBlock9_Apply(default_state);
IDirect3DDevice9_Clear(device, 0, NULL, D3DCLEAR_TARGET|D3DCLEAR_ZBUFFER|D3DCLEAR_STENCIL, 0, 1.0f, 0);
// IDirect3DDevice9_Clear(device, 0, NULL, D3DCLEAR_ZBUFFER, 0, 1.0f, 0);
IDirect3DDevice9_BeginScene(device);
#if 1
if(time_index<40){
if(time_index>0&&time_index<5){
draw_overlay(device,odd_is_back_again[time_index-1],0,0,1,FALSE);
}else if(time_index>4&&time_index<19){
float itime = time*10;
grid_flat(g,0,0);
for(i=0;i<7;i++){
int scale = (time_index&1);
grid_wave(g,(float)sin(itime-i+sin(i-itime))*0.3f*scale,(float)cos(itime*0.69f+i*0.733f)*0.3f*scale,7,(float)sin(itime+i*0.1f)*0.5f*scale);
}
draw_grid(device, g, odd_is_back_again[3], FALSE);
}else if(time_index>=19){
float itime = (time-timetable[18])*0.5f;
grid_flat(g,0,0);
for(i=0;i<7;i++){
grid_wave(g,(float)sin(time-i+sin(i-time))*0.3f,(float)cos(time*0.69f+i*0.733f)*0.3f,7, itime*itime);
}
draw_grid(device, g, odd_is_back_again[3], FALSE);
}
if(time_index>20&&time_index<25){
draw_overlay(device,at_the_gathering_2003[(time_index-21)%4],0,0,1,TRUE);
}else if(time_index>=25&&time_index<38){
float itime = time*10;
grid_flat(g,0,0);
for(i=0;i<10;i++){
int scale = (time_index&1);
grid_wave(g,(float)sin(itime-i+sin(i-itime))*0.3f*scale,(float)cos(itime*0.69f+i*0.733f)*0.3f*scale,7,(float)sin(itime+i*0.1f)*0.5f*scale);
}
draw_grid(device,g,at_the_gathering_2003[3],TRUE);
}else if(time_index>=38){
float itime = (time-timetable[37])*0.5f;
grid_flat(g,0,0);
for(i=0;i<10;i++){
grid_wave(g,(float)sin(time-i+sin(i-time))*0.3f,(float)cos(time*0.69f+i*0.733f)*0.3f,7, itime*itime);
}
draw_grid(device,g,at_the_gathering_2003[3],TRUE);
}
}else if(time_index<52){
animate_scene(inni_abstrakt,(time-timetable[39]));
draw_scene(device,inni_abstrakt,0,TRUE);
flash(device,white,time,timetable[39],1);
if(time_index<43){
draw_overlay(device, back_once_again[(time_index-40)%3],0,0,1,FALSE);
}else if(time_index<47){
draw_overlay(device, o_d_d_in_your_face[(time_index-43)%4],0,0,1,FALSE);
}else if(time_index<51){
draw_overlay(device, world_domination[(time_index-47)%4],0,0,1,FALSE);
}else{
draw_overlay(device, were_back,0,0,(time-timetable[51]),FALSE);
}
draw_overlay(device,dilldall,sin(sin(time)*0.07f+(((beat+1)/2)*0.8f)),sin(time*0.03337f+(((beat+1)/2)*0.14f)),0.5f,TRUE);
draw_overlay(device,dilldall2,sin(sin(time*0.1f)*0.07f+time*0.1f+(((beat+1)/2)*0.8f)),sin(time*0.01337f+(((beat+1)/2)*0.14f)),0.5f,TRUE);
}else if(time_index<69){
animate_scene(startblob,(time-timetable[39]-0.27f+((beat+1)&2))*0.74948f);
startblob->cameras[0].fog = TRUE;
startblob->cameras[0].fog_start = 100.f;
startblob->cameras[0].fog_end = 700.f;
if(time_index>=53 && time_index<66 && time_index&1 ){
float f = fade(timetable[time_index-1],1.7f,time,0.5f,0);
f *= f;
f *= 2;
if(f>0.f)
IDirect3DDevice9_SetRenderTarget(device,0,rtt_surface);
draw_scene(device,startblob,0,TRUE);
draw_particles(device, particles3, PARTICLES3, code_0);
if(f>0.f){
IDirect3DDevice9_SetRenderTarget(device,0,main_rendertarget);
draw_radialblur(device,0,0,f,0,rtt_texture_id, FALSE);
}
if(time_index<61) draw_overlay(device,cred[((time_index/2)-2)%4],0,0,f*3,FALSE);
}else{
draw_scene(device,startblob,0,TRUE);
draw_particles(device, particles3, PARTICLES3, circle_particle);
}
if(time_index>=54&& !(time_index&1)){
float f = fade(timetable[time_index-1],1.8f,time,1.f,0)*0.8f;
IDirect3DDevice9_SetRenderTarget(device,0,rtt_32_surface);
draw_scene(device,startblob,0,TRUE);
draw_particles(device, particles3, PARTICLES3, code_0);
IDirect3DDevice9_SetRenderTarget(device,0,main_rendertarget);
IDirect3DDevice9_SetSamplerState(device, 0, D3DSAMP_MAGFILTER, D3DTEXF_POINT);
draw_overlay(device,rtt_32_texture_id,0,0,f,TRUE);
draw_overlay(device,rtt_32_texture_id,0,0,f,TRUE);
IDirect3DDevice9_SetSamplerState(device, 0, D3DSAMP_MAGFILTER, D3DTEXF_LINEAR);
}
flash(device,were_back,time,timetable[51],2);
flash(device,white,time,timetable[51],1);
}else if(time_index<79){
for(i=0;i<BALLS;i++){
balls[i].pos.x = (float)sin(time+i-sin((float)i*0.1212111f))*0.35f;
balls[i].pos.y = (float)cos(time-(float)i*0.29342111f)*0.35f;
balls[i].pos.z = (float)sin(time*0.31121f+sin(i-time))*0.35f;
balls[i].r = 0.15f + (float)sin(time+i)*0.01f;
balls[i].pos = vector_normalize(balls[i].pos);
balls[i].pos = vector_scale(balls[i].pos, (float)(cos(i*0.11131f-time*0.55311f)+sin(time+(float)sin(time-i+time*0.3f)))*0.2f );
}
animate_scene(korridor,(time-timetable[68])*0.65f );
draw_scene(device,korridor,(beat/4)&1,TRUE);
memcpy(temp,korridor->objects[korridor->object_count-1]->mat,sizeof(matrix));
matrix_scale(marching_cubes_matrix,vector_make(120,120,120));
matrix_multiply(marching_cubes_matrix,temp,marching_cubes_matrix);
matrix_rotate(temp,vector_make(time,-time,time*0.5f+sin(time)));
matrix_multiply(marching_cubes_matrix,marching_cubes_matrix,temp);
IDirect3DDevice9_SetTransform( device, D3DTS_WORLD, (D3DMATRIX*)&marching_cubes_matrix );
fill_metafield_blur(balls, BALLS,0.98f);
march_my_cubes_opt(balls, BALLS, 0.9f);
IDirect3DDevice9_SetRenderState(device, D3DRS_CULLMODE, D3DCULL_NONE);
set_texture(device,0,refmap2);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_TEXCOORDINDEX, D3DTSS_TCI_CAMERASPACEREFLECTIONVECTOR );
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLOROP, D3DTOP_ADD);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLORARG1, D3DTA_TEXTURE);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLORARG2, D3DTA_CURRENT);
draw_marched_cubes(device);
flash(device,white,time,timetable[68],1);
if(time_index>69&&time_index<74){
draw_overlay(device,mad_props[(time_index+2)%4],0,0,1,FALSE);
}else if(time_index>73&&time_index<77){
draw_overlay(device,not_eph[(time_index+2)%4],0,0,1,FALSE);
}else if(time_index==77){
float f = fade(timetable[76],2.5f,time,1,0);
draw_overlay(device,not_eph[3],0,0,f,FALSE);
}
}
if(time_index>77&&time_index<92){
float f = fade(timetable[77],timetable[78]-timetable[77],time,0,1);
draw_overlay(device,eatyrcode,0,0,f,FALSE);
if(time>109.5f){
IDirect3DStateBlock9_Apply(default_state);
animate_particles(particles, PARTICLES, delta_time*30);
animate_particles(particles2, PARTICLES2, delta_time*28);
draw_particles(device, particles, PARTICLES, code_0);
draw_particles(device, particles2, PARTICLES2, code_1);
}
if(time_index>79&&time_index<90){
draw_overlay(device,piss_the_fuck_off[(time_index-80)%11],0,0,1,FALSE);
}else if(time_index==90){
float f = fade(timetable[89],2,time,1,0);
draw_overlay(device,piss_the_fuck_off[10],0,0,f,FALSE);
}
if(time_index==91){
float f = fade(timetable[90],2,time,1,0);
draw_overlay(device,hardcore,0,0,f,FALSE);
}
}else if(time_index>91 && time_index<97){
animate_scene(skjerm_rom,time);
video_update(vid, time);
draw_scene(device,skjerm_rom,((beat/4)&1),TRUE);
draw_overlay(device,dilldall,sin(sin(time)*0.07f+(((beat+1)/2)*0.8f)),sin(time*0.03337f+(((beat+1)/2)*0.14f)),0.5f,TRUE);
draw_overlay(device,dilldall2,sin(sin(time*0.1f)*0.07f+time*0.1f+(((beat+1)/2)*0.8f)),sin(time*0.01337f+(((beat+1)/2)*0.14f)),0.5f,TRUE);
if(time_index>92)
draw_overlay(device, world_domination[(time_index-93)%4],0,0,1,FALSE);
}else if(time_index>96&&time_index<104){
grid_zero(g);
matrix_translate(m, vector_make(cos(time)*1.5f, sin(time)*1.5f,time*10));
matrix_rotate(temp_matrix, vector_make(sin(time*0.8111f)*0.2f,sin(time*1.2f)*0.2f,time));
matrix_multiply(m,m,temp_matrix);
render_tunnel(g,m);
matrix_rotate(temp_matrix, vector_make(0,M_PI,0));
matrix_multiply(m,m,temp_matrix);
render_tunnel(g,m);
matrix_rotate(temp_matrix, vector_make(M_PI,0,0));
matrix_multiply(m,m,temp_matrix);
render_tunnel(g,m);
grid_add_noice(g,sin(time)*0.1f);
draw_grid(device, g, circle_particle, FALSE);
if(time_index>97&&time_index<102){
float f = 1;
if(time_index==101) f = fade(timetable[100],3,time,1,0);
draw_overlay(device, o_d_d_in_your_face[(time_index-42)%4],0,0,f,FALSE);
}
}
if(time_index>101 && time_index<104){
float f = fade(timetable[101],8,time,0,1);
float f2 = fade(timetable[101],4,time,0,1);
draw_overlay(device,black,0,0,f2,FALSE);
IDirect3DDevice9_SetRenderTarget(device,0,rtt_surface);
IDirect3DDevice9_Clear(device, 0, NULL, D3DCLEAR_TARGET|D3DCLEAR_ZBUFFER, 0, 1.0f, 0);
IDirect3DStateBlock9_Apply(default_state);
animate_scene(bare_paa_lissom,time-timetable[101]);
draw_scene(device,bare_paa_lissom,0,TRUE);
time *=0.5f;
for(i=0;i<BALLS2;i++){
balls2[i].pos.x = (float)sin(time+i-sin((float)i*0.1212111f))*0.35f;
balls2[i].pos.y = (float)cos(time-(float)i*0.29342111f)*0.35f;
balls2[i].pos.z = (float)sin(time*0.31121f+sin(i-time))*0.35f;
balls2[i].r = 0.15f + (float)sin(time+i)*0.01f;
balls2[i].pos = vector_normalize(balls2[i].pos);
balls2[i].pos = vector_scale(balls2[i].pos, (float)(cos(i*0.11131f-time*0.55311f)+sin(time+(float)sin(time-i+time*0.3f)))*0.2f );
}
memcpy(temp,bare_paa_lissom->objects[bare_paa_lissom->object_count-1]->mat,sizeof(matrix));
matrix_scale(marching_cubes_matrix,vector_make(120,120,120));
matrix_multiply(marching_cubes_matrix,temp,marching_cubes_matrix);
IDirect3DDevice9_SetTransform( device, D3DTS_WORLD, (D3DMATRIX*)&marching_cubes_matrix );
fill_metafield(balls2, BALLS2);
march_my_cubes_opt(balls2, BALLS2, 0.9f);
IDirect3DDevice9_SetRenderState(device, D3DRS_CULLMODE, D3DCULL_NONE);
set_texture(device,0,refmap);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_TEXCOORDINDEX, D3DTSS_TCI_CAMERASPACEREFLECTIONVECTOR );
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLOROP, D3DTOP_ADD);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLORARG1, D3DTA_TEXTURE);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLORARG2, D3DTA_CURRENT);
draw_marched_cubes(device);
IDirect3DDevice9_SetRenderTarget(device,0,main_rendertarget);
draw_overlay(device,rtt_texture_id,0,0,f,TRUE);
if(time_index==103){
float f;
time *= 2;
f = fade(timetable[time_index-1],3,time,1,0);
draw_overlay(device,metaball_text,0,0,f,FALSE);
flash(device,white,time,timetable[time_index-1],1);
}
}
if(time_index==104){
float f = fade(timetable[103],timetable[104]-timetable[103],time,0,1);
animate_scene(korridor,180-(time-timetable[time_index-1])*0.8f );
draw_scene(device,korridor,(beat/4)&1,TRUE);
draw_overlay(device,black,0,0,f,FALSE);
}
if(time_index==105){
float f = fade(timetable[104],timetable[105]-timetable[104],time,0,1);
float t = (time-timetable[time_index-1])*0.6f+2.2f;
animate_scene(fysikkfjall,t);
draw_scene(device,fysikkfjall,0,TRUE);
draw_overlay(device,black,0,0,f,FALSE);
}
#endif
/*
*/
/*
draw_overlay(device, were_back, (1+sin(time))*0.5f, TRUE);
*/
// animate_scene(risterom,time);
// draw_scene(device,risterom,0,TRUE);
#if 0 //helvete_har_frosset
draw_overlay(device, eatyrcode, 1,FALSE);
IDirect3DStateBlock9_Apply(default_state);
animate_particles(particles, PARTICLES, delta_time*30);
animate_particles(particles2, PARTICLES2, delta_time*28);
draw_particles(device, particles, PARTICLES, code_0);
draw_particles(device, particles2, PARTICLES2, code_1);
#endif
#ifdef pikk
// IDirect3DDevice9_SetRenderTarget(device,0,rtt_surface);
IDirect3DDevice9_Clear(device, 0, NULL, D3DCLEAR_TARGET|D3DCLEAR_ZBUFFER, 0, 1.0f, 0);
draw_overlay(device, eatyrcode, TRUE);
animate_scene(startblob,(time-timetable[39]-0.27f)*0.7453f);
draw_scene(device,startblob,0,FALSE);
draw_particles(device, particles, PARTICLES, code_0);
draw_particles(device, particles2, PARTICLES2, code_1);
// IDirect3DDevice9_SetRenderTarget(device,0,main_rendertarget);
/*
draw_radialblur(device,
(float)sin(time)*0.2f,
(float)sin(-time*0.331f)*0.13f,
(float)(2+(float)sin(time*0.5f))*0.2f,
0,//sin(time)*0.25f,
rtt_texture_id, TRUE);
animate_scene(fysikkfjall,time);
draw_scene(device,fysikkfjall,0,FALSE);
*/
// draw_overlay(device, rtt_texture_id, TRUE);
#endif
// draw_overlay(device, eatyrcode, FALSE);
// video_update(vid, time);
#if 0
// IDirect3DDevice9_SetRenderTarget(device,0,rtt_surface);
animate_scene(testscene,time);
// morph_object(testscene->objects[0], time );
draw_scene(device,testscene,0,TRUE);
// draw_particles(device, particles, PARTICLES, particle);
// IDirect3DDevice9_SetRenderTarget(device,0,main_rendertarget);
#endif
#if 0
time *=0.5f;
for(i=0;i<BALLS2;i++){
balls2[i].pos.x = (float)sin(time+i-sin((float)i*0.1212111f))*0.35f;
balls2[i].pos.y = (float)cos(time-(float)i*0.29342111f)*0.35f;
balls2[i].pos.z = (float)sin(time*0.31121f+sin(i-time))*0.35f;
balls2[i].r = 0.15f + (float)sin(time+i)*0.01f;
balls2[i].pos = vector_normalize(balls2[i].pos);
balls2[i].pos = vector_scale(balls2[i].pos, (float)(cos(i*0.11131f-time*0.55311f)+sin(time+(float)sin(time-i+time*0.3f)))*0.2f );
// balls2[i].pos.x *= 2.8f;
}
matrix_translate(temp,vector_make(0,0,87));
matrix_scale(marching_cubes_matrix,vector_make(50,50,50));
matrix_multiply(marching_cubes_matrix,temp,marching_cubes_matrix);
IDirect3DDevice9_SetTransform( device, D3DTS_WORLD, (D3DMATRIX*)&marching_cubes_matrix );
fill_metafield(balls2, BALLS2);
// fill_metafield_blur(balls, BALLS,0.98f);
march_my_cubes_opt(balls2, BALLS2, 0.9f);
// march_my_cubes(0.9f);
IDirect3DDevice9_SetRenderState(device, D3DRS_CULLMODE, D3DCULL_CW);
set_texture(device,0,refmap);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_TEXCOORDINDEX, D3DTSS_TCI_CAMERASPACEREFLECTIONVECTOR );
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLOROP, D3DTOP_ADD);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLORARG1, D3DTA_TEXTURE);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLORARG2, D3DTA_CURRENT);
draw_marched_cubes(device);
#endif
#if 0
// time *= 0.5f;
grid_zero(g);
// for(i=0;i<10;i++)
// grid_wave(g,sin(time-i+sin(i-time))*0.3f,cos(time*0.69f+i*0.733f)*0.3f,7,sin(time+i*0.1f)*0.5f);
matrix_translate(m, vector_make(cos(time)*1.5f, sin(time)*1.5f,time*10));
matrix_rotate(temp_matrix, vector_make(sin(time*0.8111f)*0.2f,sin(time*1.2f)*0.2f,time));
matrix_multiply(m,m,temp_matrix);
// empty_grid( grid );
render_tunnel(g,m);
matrix_rotate(temp_matrix, vector_make(0,M_PI,0));
matrix_multiply(m,m,temp_matrix);
render_tunnel(g,m);
matrix_rotate(temp_matrix, vector_make(M_PI,0,0));
matrix_multiply(m,m,temp_matrix);
render_tunnel(g,m);
// tyfuus_expand_grid( screen, grid, texture );
grid_add_noice(g,sin(time)*0.1f);
draw_grid(device, g, circle_particle, FALSE);
#endif
// IDirect3DDevice9_SetRenderTarget(device,0,main_rendertarget);
// video_update(vid,time);
/*
draw_radialblur(device,
(float)sin(time)*0.2f,
(float)sin(-time*0.331f)*0.13f,
(float)(1+(float)sin(time*0.5f))*0.2f,
0,//sin(time)*0.25f,
rtt_texture_id, FALSE);
*/
// IDirect3DStateBlock9_Apply(default_state);
// draw_overlay(device,rtt_texture_id,FALSE);
// draw_overlay(device,fullscreen,FALSE);
// draw_radialblur(device,0,sin(time*0.2f)*2.f, rtt_texture_id);
// IDirect3DDevice9_StretchRect(device,main_rendertarget,NULL,rtt_surface,NULL,D3DTEXF_NONE);
// IDirect3DBaseTexture9_GenerateMipSubLevels(rtt_texture);
IDirect3DDevice9_EndScene(device);
if(IDirect3DDevice9_Present(device, NULL, NULL, NULL, NULL)==D3DERR_DEVICELOST)
error("fakkin lost device. keep your hands off alt-tab, looser.");
old_time = time;
while (PeekMessage(&msg,NULL,0,0,PM_REMOVE)){
TranslateMessage(&msg);
DispatchMessage(&msg);
if (msg.message == WM_QUIT ||
msg.message == WM_KEYDOWN && LOWORD(msg.wParam) == VK_ESCAPE)
done = TRUE;
}
}while(!done);
deinit_marching_cubes();
deinit_overlays();
deinit_particles();
free_scene(fysikkfjall);
free_scene(startblob);
free_scene(inni_abstrakt);
free_scene(korridor);
free_scene(skjerm_rom);
free_scene(bare_paa_lissom);
free_materials();
free_textures();
free_video(vid);
rtt_surface->lpVtbl->Release(rtt_surface);
rtt_32_surface->lpVtbl->Release(rtt_32_surface);
main_rendertarget->lpVtbl->Release(main_rendertarget);
IDirect3DStateBlock9_Release(default_state);
d3dwin_close();
if (music_file) BASS_StreamFree( music_file );
if (fp) file_close( fp );
BASS_Free();
// pest_close();
return 0;
}
int main( int argc, char *argv[] )
{
int quit = 0;
pthread_t render_loop_thread = -1;
IDirectFBSurface *primary;
IDirectFBEventBuffer *buffer;
DFBSurfaceDescription dsc;
srand((long)time(0));
DFBCHECK(DirectFBInit( &argc, &argv ));
/* create the super interface */
DFBCHECK(DirectFBCreate( &dfb ));
/* get an interface to the primary keyboard and create an
input buffer for it */
DFBCHECK(dfb->CreateInputEventBuffer( dfb, DICAPS_ALL, DFB_FALSE, &buffer ));
/* set our cooperative level to DFSCL_FULLSCREEN for exclusive access to
the primary layer */
dfb->SetCooperativeLevel( dfb, DFSCL_FULLSCREEN );
/* get the primary surface, i.e. the surface of the primary layer we have
exclusive access to */
dsc.flags = DSDESC_CAPS;
dsc.caps = DSCAPS_PRIMARY | DSCAPS_DOUBLE;
DFBCHECK(dfb->CreateSurface( dfb, &dsc, &primary ));
DFBCHECK(primary->GetSize( primary, &xres, &yres ));
/* load font */
{
DFBFontDescription desc;
desc.flags = DFDESC_HEIGHT;
desc.height = yres/10;
DFBCHECK(dfb->CreateFont( dfb, FONT, &desc, &font ));
DFBCHECK(primary->SetFont( primary, font ));
}
projection = matrix_new_perspective( 400 );
camera = matrix_new_identity();
load_stars();
generate_starfield();
pthread_mutex_lock( &render_start );
pthread_mutex_lock( &render_finish );
pthread_create( &render_loop_thread, NULL, render_loop, (void*)primary );
/* main loop */
while (!quit) {
static float translation[3] = { 0, 0, 0 };
DFBInputEvent evt;
/* transform world to screen coordinates */
transform_starfield();
/* start rendering before waiting for events */
start_rendering();
buffer->WaitForEvent( buffer );
/* process event buffer */
while (buffer->GetEvent( buffer, DFB_EVENT(&evt)) == DFB_OK) {
if (evt.type == DIET_KEYPRESS) {
switch (evt.key_id) {
case DIKI_ESCAPE:
/* quit main loop */
quit = 1;
break;
case DIKI_LEFT:
translation[0] = 10;
break;
case DIKI_RIGHT:
translation[0] = -10;
break;
case DIKI_UP:
translation[2] = -10;
break;
case DIKI_DOWN:
translation[2] = 10;
break;
default:
break;
}
} else
if (evt.type == DIET_KEYRELEASE) {
switch (evt.key_id) {
case DIKI_LEFT:
case DIKI_RIGHT:
translation[0] = 0;
break;
case DIKI_UP:
case DIKI_DOWN:
translation[2] = 0;
break;
default:
break;
}
} else
if (evt.type == DIET_AXISMOTION && (evt.flags & DIEF_AXISREL)) {
switch (evt.axis) {
case DIAI_X:
matrix_rotate( camera, Y, -evt.axisrel/80.0f );
break;
case DIAI_Y:
matrix_rotate( camera, X, evt.axisrel/80.0f );
break;
default:
break;
}
}
}
matrix_translate( camera,
translation[0], translation[1], translation[2] );
/* finish rendering before retransforming the world */
finish_rendering();
}
pthread_cancel( render_loop_thread );
pthread_mutex_unlock( &render_start );
pthread_join( render_loop_thread, NULL );
render_loop_thread = -1;
unload_stars();
free( camera );
free( projection );
buffer->Release( buffer );
primary->Release( primary );
dfb->Release( dfb );
return 0;
}
void ViewBase::camera_rotate(float3 angles, bool reset) {
matrix_rotate(cam_matrix, angles, reset);
update_view();
}
int
main (int argc, char **argv)
{
SDL_Surface *image;
nile_t *nl;
char mem[500000];
uint32_t texture_pixels[TEXTURE_WIDTH * TEXTURE_HEIGHT] = {0};
real angle = 0;
real scale;
if (SDL_Init (SDL_INIT_VIDEO) == -1)
DIE ("SDL_Init failed: %s", SDL_GetError ());
if (!SDL_SetVideoMode (DEFAULT_WIDTH, DEFAULT_HEIGHT, 0,
SDL_HWSURFACE | SDL_ANYFORMAT | SDL_DOUBLEBUF))
DIE ("SDL_SetVideoMode failed: %s", SDL_GetError ());
image = SDL_GetVideoSurface ();
nl = nile_new (NTHREADS, mem, sizeof (mem));
ilInit ();
ilBindImage (iluGenImage ());
if (argc < 3)
return -1;
printf ("loading: %s\n", argv[1]);
ilLoadImage (argv[1]);
ilCopyPixels (0, 0, 0, TEXTURE_WIDTH, TEXTURE_HEIGHT, 1, IL_BGRA,
IL_UNSIGNED_BYTE, &texture_pixels);
int filter = atoi (argv[2]);
for (;;) {
angle += 0.001;
scale = fabs (angle - (int) angle - 0.5) * 10;
SDL_Event event;
if (SDL_PollEvent (&event) && event.type == SDL_QUIT)
break;
SDL_FillRect (image, NULL, 0);
SDL_LockSurface (image);
matrix_t M = matrix_new ();
M = matrix_translate (M, 250, 250);
M = matrix_rotate (M, angle);
M = matrix_scale (M, scale, scale);
M = matrix_translate (M, -250, -250);
matrix_t I = matrix_inverse (M);
nile_Kernel_t *texture =
gezira_ReadFromImage_ARGB32 (nl, texture_pixels, TEXTURE_WIDTH,
TEXTURE_HEIGHT, TEXTURE_WIDTH);
/*
*/
texture = nile_Pipeline (nl,
gezira_ImageExtendReflect (nl, TEXTURE_WIDTH, TEXTURE_HEIGHT),
texture, NULL);
if (filter == 2)
texture = gezira_BilinearFilter (nl, texture);
if (filter == 3)
texture = gezira_BicubicFilter (nl, texture);
/*
*/
texture = nile_Pipeline (nl,
gezira_TransformPoints (nl, I.a, I.b, I.c, I.d, I.e - 150, I.f - 125),
texture, NULL);
nile_Kernel_t *pipeline = nile_Pipeline (nl,
gezira_TransformBeziers (nl, M.a, M.b, M.c, M.d, M.e, M.f),
gezira_ClipBeziers (nl, 0, 0, DEFAULT_WIDTH, DEFAULT_HEIGHT),
gezira_Rasterize (nl),
gezira_ApplyTexture (nl, texture),
gezira_WriteToImage_ARGB32 (nl, image->pixels,
DEFAULT_WIDTH, DEFAULT_HEIGHT,
image->pitch / 4),
NULL);
nile_feed (nl, pipeline, path, 6, path_n, 1);
nile_sync (nl);
SDL_UnlockSurface (image);
SDL_Flip (image);
}
nile_free (nl);
printf ("done\n");
return 0;
}
static int wmupdf_pdfdoc_newpages(pdf_document *xref,fz_context *ctx,WPDFPAGEINFO *pageinfo,
int use_forms,FILE *out)
{
static char *funcname="wmupdf_pdfdoc_newpages";
pdf_obj *root,*oldroot,*pages,*kids,*countobj,*parent,*olddests;
pdf_obj *srcpageobj,*srcpagecontents;
pdf_obj *destpageobj,*destpagecontents,*destpageresources;
double srcx0,srcy0;
int qref,i,i0,pagecount,srccount,destpageref,nbb;
int *srcpageused;
char *bigbuf;
double srcpagerot;
/* Avoid compiler warning */
destpageref = 0;
destpageobj = NULL;
srcx0=srcy0=0.;
/* Keep only pages/type and (reduced) dest entries to avoid references to unretained pages */
pagecount = pdf_count_pages(xref);
if (use_forms)
{
willus_mem_alloc_warn((void **)&srcpageused,sizeof(int)*(pagecount+1),funcname,10);
/* Mark all source pages as "not done" */
for (i=0;i<=pagecount;i++)
srcpageused[i]=0;
nbb=4096;
willus_mem_alloc_warn((void **)&bigbuf,nbb,funcname,10);
bigbuf[0]='\0';
}
oldroot = pdf_dict_gets(xref->trailer,"Root");
/*
** pages points to /Pages object in PDF file.
** Has: /Type /Pages, /Count <numpages>, /Kids [ obj obj obj obj ]
*/
pages = pdf_dict_gets(oldroot,"Pages");
olddests = pdf_load_name_tree(xref,"Dests");
/*
** Create new root object with only /Pages and /Type (and reduced dest entries)
** to avoid references to unretained pages.
*/
root = pdf_new_dict(ctx,4);
pdf_dict_puts(root,"Type",pdf_dict_gets(oldroot,"Type"));
pdf_dict_puts(root,"Pages",pages);
pdf_update_object(xref,pdf_to_num(oldroot),root);
pdf_drop_obj(root);
/* Parent indirectly references the /Pages object in the file */
/* (Each new page we create has to point to this.) */
parent = pdf_new_indirect(ctx, pdf_to_num(pages), pdf_to_gen(pages), xref);
/* Create a new kids array with only the pages we want to keep */
kids = pdf_new_array(ctx, 1);
qref=0;
/* Avoid compiler warnings */
destpageresources=NULL;
destpagecontents=NULL;
srcpagecontents=NULL;
srcpagerot=0.;
for (i=0;i<=pageinfo->boxes.n;i++)
if (pageinfo->boxes.box[i].dstpage>0)
break;
if (i>0)
{
if (i<pageinfo->boxes.n)
memmove(&pageinfo->boxes.box[0],&pageinfo->boxes.box[i],sizeof(WPDFBOX)*pageinfo->boxes.n-i);
pageinfo->boxes.n -= i;
}
/* Walk through PFDBOXES array */
for (i=srccount=i0=0;i<=pageinfo->boxes.n;i++)
{
WPDFBOX *box;
int j,k,newsrc;
static char buf[512];
pdf_obj *s1indirect,*qindirect,*rotobj;
static double cpm[3][3],m[3][3],m1[3][3];
static double xclip[4],yclip[4];
/*
printf("box[%d]\n",i);
if (i<pageinfo->boxes.n)
{
box=&pageinfo->boxes.box[i];
printf(" srcpage=%d, dstpage=%d\n",box->srcbox.pageno,box->dstpage);
printf(" x0=%g, y0=%g\n",box->x0,box->y0);
printf(" w=%g, h=%g\n",box->w,box->h);
printf(" x1=%g, y1=%g\n",box->x1,box->y1);
printf(" sr=%g, dr=%g\n",box->srcrot_deg,box->dstrot_deg);
printf(" scale=%g\n",box->scale);
}
*/
/* Check to see if we are done with an output page */
if (srccount>0 && (i==pageinfo->boxes.n
|| (i>0 && pageinfo->boxes.box[i].dstpage!=pageinfo->boxes.box[i-1].dstpage)))
{
pdf_obj *newpageref;
/*
** Store destination page into document structure
*/
/*
printf(" ADDING NEW PAGE. (srccount=%d)\n",srccount);
*/
if (use_forms)
{
pdf_obj *dest_stream;
/* Create new object in document for destination page stream */
dest_stream = pdf_new_indirect(ctx,new_stream_object(xref,ctx,bigbuf),
0,(void *)xref);
/* Store this into the destination page contents array */
pdf_array_push(destpagecontents,dest_stream);
pdf_drop_obj(dest_stream);
}
newpageref=pdf_new_indirect(ctx,destpageref,0,(void *)xref);
/* Reference parent list of pages */
pdf_dict_puts(destpageobj,"Parent",parent);
pdf_dict_puts(destpageobj,"Contents",destpagecontents);
pdf_dict_puts(destpageobj,"Resources",destpageresources);
/* Store page object in document's kids array */
pdf_array_push(kids,newpageref);
/* Update document with new page */
pdf_update_object(xref,destpageref,destpageobj);
/* Clean up */
pdf_drop_obj(newpageref);
pdf_drop_obj(destpageresources);
pdf_drop_obj(destpagecontents);
pdf_drop_obj(destpageobj);
/* Reset source page and index to start of new destination page */
i0=i;
srccount=0;
}
/* Quit loop if beyond last box */
if (i>=pageinfo->boxes.n)
break;
box=&pageinfo->boxes.box[i];
if (box->srcbox.pageno<1 || box->srcbox.pageno>pagecount)
continue;
/* Is this a source page we haven't processed yet (for this destination page)? */
for (newsrc=1,j=i0;j<i;j++)
{
if (pageinfo->boxes.box[j].srcbox.pageno==box->srcbox.pageno)
{
newsrc=0;
break;
}
}
if (newsrc)
{
double v[4];
srccount++;
if (use_forms)
srcpageused[box->srcbox.pageno]=1;
/*
printf(" NEW SOURCE PAGE (srccount=%d)\n",srccount);
*/
if (srccount==1)
{
/*
** Start a new destination page.
**
** Each new page object is a dict type with:
** /Type /Page
** /Contents (array of objects)
** /Resources (dict)
** /MediaBox [0 0 612 792]
** /Parent <PagesObj>
** [Can have /Rotate 90, for example.]
**
*/
/*
printf(" (STARTING NEW DEST. PAGE)\n");
*/
destpageobj=start_new_destpage(ctx,box->dst_width_pts,box->dst_height_pts);
destpageresources=pdf_new_dict(ctx,1);
if (use_forms)
pdf_dict_puts(destpageresources,"XObject",pdf_new_dict(ctx,1));
destpageref=pdf_create_object(xref);
destpagecontents=pdf_new_array(ctx,1);
/* Init the destination page stream for forms */
if (use_forms)
bigbuf[0]='\0';
}
/* New source page, so get the source page objects */
srcpageobj = xref->page_objs[box->srcbox.pageno-1];
wmupdf_page_bbox(srcpageobj,v);
srcx0=v[0];
srcy0=v[1];
/*
printf("SRCX0=%g, SRCY0=%g\n",srcx0,srcy0);
*/
rotobj=pdf_dict_gets(srcpageobj,"Rotate");
srcpagerot = rotobj!=NULL ? pdf_to_real(rotobj) : 0.;
/*
printf("Page rotation = %g\n",srcpagerot);
*/
srcpagecontents=pdf_dict_gets(srcpageobj,"Contents");
/*
if (pdf_is_array(srcpagecontents))
{
int k;
printf(" source page contents = array.\n");
for (k=0;k<pdf_array_len(srcpagecontents);k++)
{
pdf_obj *obj;
obj=pdf_array_get(srcpagecontents,k);
if (pdf_is_indirect(obj))
{
printf(" contents[%d] = indirect (%d)\n",k,pdf_to_num(obj));
pdf_resolve_indirect(obj);
}
}
}
*/
if (use_forms)
{
pdf_obj *xobjdict;
int pageno;
xobjdict=pdf_dict_gets(destpageresources,"XObject");
pageno=box->srcbox.pageno;
pdf_dict_puts(xobjdict,xobject_name(pageno),xref->page_refs[pageno-1]);
pdf_dict_puts(destpageresources,"XObject",xobjdict);
}
else
{
pdf_obj *srcpageresources;
/* Merge source page resources into destination page resources */
srcpageresources=pdf_dict_gets(srcpageobj,"Resources");
/*
printf("box->dstpage=%d, srcpage=%d (ind.#=%d)\n",box->dstpage,box->srcbox.pageno,pdf_to_num(xref->page_refs[box->srcbox.pageno-1]));
*/
wmupdf_dict_merge(ctx,"Resources",destpageresources,srcpageresources);
}
}
/*
** Process this source box:
**
** Create a tranformation matrix and clipping path to only show the
** desired part of the source page at the appropriate place on the
** destination page.
**
** How the tranformation matrix works:
** - Translations shall be specified as [ 1 0 0 1 tx ty ], where tx and ty
** shall be the distances to translate the origin of the coordinate system
** in the horizontal and vertical dimensions, respectively.
**
** - Scaling shall be obtained by [ sx 0 0 sy 0 0 ]. This scales the coordinates
** so that 1 unit in the horizontal and vertical dimensions of the new coordinate
** system is the same size as sx and sy units, respectively, in the previous
** coordinate system.
**
** - Rotations shall be produced by [ cos q sin q -sin q cos q 0 0 ], which has the
** effect of rotating the coordinate system axes by an angle q counter-clockwise.
**
** - Skew shall be specified by [ 1 tan a tan b 1 0 0 ], which skews the x axis by
** an angle a and the y axis by an angle b.
**
*/
wpdfbox_determine_original_source_position(box);
/*
printf("Before unrotate.\n");
printf("box->srcrot=%g\n",box->srcrot_deg);
printf("box->x0=%g, box->y0=%g\n",box->x0,box->y0);
printf("box->w=%g, box->h=%g\n",box->w,box->h);
printf("box->pw=%g, box->ph=%g\n",box->src_width_pts,box->src_height_pts);
*/
if (fabs(srcpagerot) > 1.0e-4)
wpdfbox_unrotate(box,srcpagerot);
/*
printf("box->srcrot=%g\n",box->srcrot_deg);
printf("box->x0=%g, box->y0=%g\n",box->x0,box->y0);
printf("box->w=%g, box->h=%g\n",box->w,box->h);
printf("box->pw=%g, box->ph=%g\n",box->src_width_pts,box->src_height_pts);
*/
matrix_unity(m,1.);
/*
printf("xfmatrix = [ %9.6f %9.6f %9.6f ]\n"
" [ %9.6f %9.6f %9.6f ]\n"
" [ %9.6f %9.6f %9.6f ]\n",
m[0][0],m[0][1],m[0][2],
m[1][0],m[1][1],m[1][2],
m[2][0],m[2][1],m[2][2]);
*/
matrix_translate(m1,-box->x0-srcx0,-box->y0-srcy0);
matrix_mul(m,m1);
matrix_rotate(m1,-box->srcrot_deg+box->dstrot_deg);
matrix_mul(m,m1);
matrix_unity(m1,box->scale);
matrix_mul(m,m1);
matrix_translate(m1,box->x1,box->y1);
matrix_mul(m,m1);
matrix_zero_round(m);
matrix_rotate(cpm,box->srcrot_deg);
matrix_translate(m1,box->x0+srcx0,box->y0+srcy0);
matrix_mul(cpm,m1);
/*
printf("Clip matrix:\n");
printf("xfmatrix = [ %9.6f %9.6f %9.6f ]\n"
" [ %9.6f %9.6f %9.6f ]\n"
" [ %9.6f %9.6f %9.6f ]\n",
cpm[0][0],cpm[0][1],cpm[0][2],
cpm[1][0],cpm[1][1],cpm[1][2],
cpm[2][0],cpm[2][1],cpm[2][2]);
*/
set_clip_array(xclip,yclip,box->srcrot_deg,box->w,box->h);
for (k=0;k<4;k++)
matrix_xymul(cpm,&xclip[k],&yclip[k]);
/*
printf("Clip path:\n %7.2f %7.2f\n %7.2f,%7.2f\n %7.2f,%7.2f\n"
" %7.2f %7.2f\n %7.2f,%7.2f\n",
xclip[0],yclip[0],xclip[1],yclip[1],xclip[2],yclip[2],
xclip[3],yclip[3],xclip[0],yclip[0]);
*/
strcpy(buf,"q");
for (k=0;k<=2;k++)
{
cat_pdf_double(buf,m[k][0]);
cat_pdf_double(buf,m[k][1]);
}
strcat(buf," cm");
for (k=0;k<=4;k++)
{
cat_pdf_double(buf,xclip[k&3]);
cat_pdf_double(buf,yclip[k&3]);
strcat(buf,k==0 ? " m" : " l");
}
strcat(buf," W n");
if (use_forms)
{
/* FORM METHOD */
sprintf(&buf[strlen(buf)]," /%s Do Q\n",xobject_name(box->srcbox.pageno));
if (strlen(bigbuf)+strlen(buf) > nbb)
{
int newsize;
newsize=nbb*2;
willus_mem_realloc_robust_warn((void **)&bigbuf,newsize,nbb,funcname,10);
nbb=newsize;
}
strcat(bigbuf,buf);
}
else
{
/* NO-FORMS METHOD */
strcat(buf,"\n");
/* Create new objects in document for tx matrix and restore matrix */
s1indirect = pdf_new_indirect(ctx,new_stream_object(xref,ctx,buf),0,(void *)xref);
if (qref==0)
qref=new_stream_object(xref,ctx,"Q\n");
qindirect = pdf_new_indirect(ctx,qref,0,(void *)xref);
/* Store this region into the destination page contents array */
pdf_array_push(destpagecontents,s1indirect);
if (pdf_is_array(srcpagecontents))
{
int k;
for (k=0;k<pdf_array_len(srcpagecontents);k++)
pdf_array_push(destpagecontents,pdf_array_get(srcpagecontents,k));
}
else
pdf_array_push(destpagecontents,srcpagecontents);
pdf_array_push(destpagecontents,qindirect);
pdf_drop_obj(s1indirect);
pdf_drop_obj(qindirect);
}
}
pdf_drop_obj(parent);
/* For forms, convert all original source pages to XObject Forms */
if (use_forms)
wmupdf_convert_pages_to_forms(xref,ctx,srcpageused);
/* Update page count and kids array */
countobj = pdf_new_int(ctx, pdf_array_len(kids));
pdf_dict_puts(pages, "Count", countobj);
pdf_drop_obj(countobj);
pdf_dict_puts(pages, "Kids", kids);
pdf_drop_obj(kids);
/* Also preserve the (partial) Dests name tree */
if (olddests)
wmupdf_preserve_old_dests(olddests,ctx,xref,pages);
if (use_forms)
{
/* Free memory */
willus_mem_free((double **)&bigbuf,funcname);
willus_mem_free((double **)&srcpageused,funcname);
}
return(0);
}
void matrix_rotate_point(Transform *matrix, double x, double y, double angle) {
matrix_translate(matrix, -x, -y);
matrix_rotate(matrix, angle);
matrix_translate(matrix, x, y);
}
static VGboolean find_angles(struct arc *arc)
{
double vec0[2], vec1[2];
double lambda1, lambda2;
double angle;
struct matrix matrix;
if (floatIsZero(arc->a) || floatIsZero(arc->b)) {
return VG_FALSE;
}
/* map the points to an identity circle */
matrix_load_identity(&matrix);
matrix_scale(&matrix, 1.f, arc->a/arc->b);
matrix_rotate(&matrix, -arc->theta);
matrix_map_point(&matrix,
arc->x1, arc->y1,
&arc->x1, &arc->y1);
matrix_map_point(&matrix,
arc->x2, arc->y2,
&arc->x2, &arc->y2);
matrix_map_point(&matrix,
arc->cx, arc->cy,
&arc->cx, &arc->cy);
#if DEBUG_ARCS
debug_printf("Matrix 3 [%f, %f, %f| %f, %f, %f| %f, %f, %f]\n",
matrix.m[0], matrix.m[1], matrix.m[2],
matrix.m[3], matrix.m[4], matrix.m[5],
matrix.m[6], matrix.m[7], matrix.m[8]);
debug_printf("Endpoints [%f, %f], [%f, %f]\n",
arc->x1, arc->y1, arc->x2, arc->y2);
#endif
vec0[0] = arc->x1 - arc->cx;
vec0[1] = arc->y1 - arc->cy;
vec1[0] = arc->x2 - arc->cx;
vec1[1] = arc->y2 - arc->cy;
#if DEBUG_ARCS
debug_printf("Vec is [%f, %f], [%f, %f], [%f, %f]\n",
vec0[0], vec0[1], vec1[0], vec1[1], arc->cx, arc->cy);
#endif
lambda1 = vector_orientation(vec0);
if (isnan(lambda1))
lambda1 = 0.f;
if (arc->type == VG_SCWARC_TO ||
arc->type == VG_SCCWARC_TO)
angle = vector_angles(vec0, vec1);
else if (arc->type == VG_LCWARC_TO ||
arc->type == VG_LCCWARC_TO) {
angle = 2*M_PI - vector_angles(vec0, vec1);
} else
abort();
if (isnan(angle))
angle = M_PI;
if (arc->type == VG_SCWARC_TO ||
arc->type == VG_LCWARC_TO)
lambda2 = lambda1 - angle;
else
lambda2 = lambda1 + angle;
#if DEBUG_ARCS
debug_printf("Angle is %f and (%f, %f)\n", angle, lambda1, lambda2);
#endif
#if 0
arc->eta1 = atan2(sin(lambda1) / arc->b,
cos(lambda1) / arc->a);
arc->eta2 = atan2(sin(lambda2) / arc->b,
cos(lambda2) / arc->a);
/* make sure we have eta1 <= eta2 <= eta1 + 2 PI */
arc->eta2 -= two_pi * floor((arc->eta2 - arc->eta1) / two_pi);
/* the preceding correction fails if we have exactly et2 - eta1 = 2 PI
it reduces the interval to zero length */
if ((lambda2 - lambda1 > M_PI) && (arc->eta2 - arc->eta1 < M_PI)) {
arc->eta2 += 2 * M_PI;
}
#else
arc->eta1 = lambda1;
arc->eta2 = lambda2;
#endif
return VG_TRUE;
}
