void TUNNEL::CreateNewCube()
{
if (frand > creation_properties.creation_chance)
return;
float radius = creation_properties.radius.span*frand+creation_properties.radius.min;
float angle = frand*2*pi;
D3DXVECTOR3 init_pos(
-creation_properties.boundary,
radius*cos(angle),
radius*sin(angle));
D3DXVECTOR3 init_scale(
creation_properties.scale.span.x*frand+creation_properties.scale.min.x,
creation_properties.scale.span.y*frand+creation_properties.scale.min.y,
creation_properties.scale.span.z*frand+creation_properties.scale.min.z);
D3DXCOLOR init_color(
creation_properties.color.span.r*frand+creation_properties.color.min.r,
creation_properties.color.span.g*frand+creation_properties.color.min.g,
creation_properties.color.span.b*frand+creation_properties.color.min.b, 1.0f);
//D3DXCOLOR(0.909f, 0.0f, 0.592f, 1.0f);//
CUBE* new_cube = new CUBE(
graphics,
init_pos,
init_scale,
init_color,
creation_properties.speed.span*frand+creation_properties.speed.min,
creation_properties.boundary);
cube_array.push_back(new_cube);
}
int main(int argc,char **argv) {
INFO(char *dbg="Main(init): ");
native_startup(argc, argv);
/*** init modules ***/
INFO(printf("%sSharedMemory\n",dbg));
init_sharedmem(&dope);
INFO(printf("%sTimer\n",dbg));
init_timer(&dope);
INFO(printf("%sTick\n",dbg));
init_tick(&dope);
INFO(printf("%sRelax\n",dbg));
init_relax(&dope);
INFO(printf("%sKeymap\n",dbg));
init_keymap(&dope);
INFO(printf("%sThread\n",dbg));
init_thread(&dope);
INFO(printf("%sCache\n",dbg));
init_cache(&dope);
INFO(printf("%sHashTable\n",dbg));
init_hashtable(&dope);
INFO(printf("%sApplication Manager\n",dbg));
init_appman(&dope);
INFO(printf("%sTokenizer\n",dbg));
init_tokenizer(&dope);
INFO(printf("%sMessenger\n",dbg));
init_messenger(&dope);
INFO(printf("%sScript\n",dbg));
init_script(&dope);
INFO(printf("%sClipping\n",dbg));
init_clipping(&dope);
INFO(printf("%sScreen Driver\n",dbg));
init_scrdrv(&dope);
INFO(printf("%sInput\n",dbg));
init_input(&dope);
INFO(printf("%sViewManager\n",dbg));
init_viewman(&dope);
INFO(printf("%sConvertFNT\n",dbg));
init_conv_fnt(&dope);
INFO(printf("%sFontManager\n",dbg));
init_fontman(&dope);
INFO(printf("%sGfxScreen16\n",dbg));
init_gfxscr16(&dope);
INFO(printf("%sGfxImage16\n",dbg));
init_gfximg16(&dope);
INFO(printf("%sGfxImage32\n",dbg));
init_gfximg32(&dope);
INFO(printf("%sGfxImageYUV420\n",dbg));
init_gfximgyuv420(&dope);
INFO(printf("%sGfx\n",dbg));
init_gfx(&dope);
INFO(printf("%sRedrawManager\n",dbg));
init_redraw(&dope);
INFO(printf("%sUserState\n",dbg));
init_userstate(&dope);
INFO(printf("%sWidgetManager\n",dbg));
init_widman(&dope);
INFO(printf("%sScope\n",dbg));
init_scope(&dope);
INFO(printf("%sButton\n",dbg));
init_button(&dope);
INFO(printf("%sEntry\n",dbg));
init_entry(&dope);
INFO(printf("%sVariable\n",dbg));
init_variable(&dope);
INFO(printf("%sLabel\n",dbg));
init_label(&dope);
INFO(printf("%sLoadDisplay\n",dbg));
init_loaddisplay(&dope);
INFO(printf("%sBackground\n",dbg));
init_background(&dope);
INFO(printf("%sScrollbar\n",dbg));
init_scrollbar(&dope);
INFO(printf("%sScale\n",dbg));
init_scale(&dope);
INFO(printf("%sFrame\n",dbg));
init_frame(&dope);
INFO(printf("%sContainer\n",dbg));
init_container(&dope);
INFO(printf("%sGrid\n",dbg));
init_grid(&dope);
INFO(printf("%sWinLayout\n",dbg));
init_winlayout(&dope);
INFO(printf("%sWindow\n",dbg));
init_window(&dope);
INFO(printf("%sScreen\n",dbg));
init_screen(&dope);
INFO(printf("%sScheduler\n",dbg));
if (config_don_scheduler)
{
// init_don_scheduler(&dope);
printf("NOOOOOOOOOOOOOOOOOOO\n");
}
else
init_simple_scheduler(&dope);
INFO(printf("%sVScreenServer\n",dbg));
init_vscr_server(&dope);
INFO(printf("%sVScreen\n",dbg));
init_vscreen(&dope);
INFO(printf("%sVTextScreen\n",dbg));
init_vtextscreen(&dope);
INFO(printf("%sServer\n",dbg));
init_server(&dope);
INFO(printf("%screate screen\n",dbg));
{
static GFX_CONTAINER *scr_ds;
gfx = pool_get("Gfx 1.0");
screen = pool_get("Screen 1.0");
userstate = pool_get("UserState 1.0");
scr_ds = gfx->alloc_scr("default");
curr_scr = screen->create();
curr_scr->scr->set_gfx(curr_scr, scr_ds);
userstate->set_max_mx(gfx->get_width(scr_ds));
userstate->set_max_my(gfx->get_height(scr_ds));
}
INFO(printf("%sstarting server\n",dbg));
if ((server = pool_get("Server 1.0")))
server->start();
INFO(printf("%sstarting scheduler\n",dbg));
if ((sched = pool_get("Scheduler 1.0")))
sched->process_mainloop();
return 0;
}
int main(void)
{
/* Local scalars */
char job, job_i;
char side, side_i;
lapack_int n, n_i;
lapack_int ilo, ilo_i;
lapack_int ihi, ihi_i;
lapack_int m, m_i;
lapack_int ldv, ldv_i;
lapack_int ldv_r;
lapack_int info, info_i;
lapack_int i;
int failed;
/* Local arrays */
float *scale = NULL, *scale_i = NULL;
lapack_complex_float *v = NULL, *v_i = NULL;
lapack_complex_float *v_save = NULL;
lapack_complex_float *v_r = NULL;
/* Iniitialize the scalar parameters */
init_scalars_cgebak( &job, &side, &n, &ilo, &ihi, &m, &ldv );
ldv_r = m+2;
job_i = job;
side_i = side;
n_i = n;
ilo_i = ilo;
ihi_i = ihi;
m_i = m;
ldv_i = ldv;
/* Allocate memory for the LAPACK routine arrays */
scale = (float *)LAPACKE_malloc( n * sizeof(float) );
v = (lapack_complex_float *)
LAPACKE_malloc( ldv*m * sizeof(lapack_complex_float) );
/* Allocate memory for the C interface function arrays */
scale_i = (float *)LAPACKE_malloc( n * sizeof(float) );
v_i = (lapack_complex_float *)
LAPACKE_malloc( ldv*m * sizeof(lapack_complex_float) );
/* Allocate memory for the backup arrays */
v_save = (lapack_complex_float *)
LAPACKE_malloc( ldv*m * sizeof(lapack_complex_float) );
/* Allocate memory for the row-major arrays */
v_r = (lapack_complex_float *)
LAPACKE_malloc( n*(m+2) * sizeof(lapack_complex_float) );
/* Initialize input arrays */
init_scale( n, scale );
init_v( ldv*m, v );
/* Backup the ouptut arrays */
for( i = 0; i < ldv*m; i++ ) {
v_save[i] = v[i];
}
/* Call the LAPACK routine */
cgebak_( &job, &side, &n, &ilo, &ihi, scale, &m, v, &ldv, &info );
/* Initialize input data, call the column-major middle-level
* interface to LAPACK routine and check the results */
for( i = 0; i < n; i++ ) {
scale_i[i] = scale[i];
}
for( i = 0; i < ldv*m; i++ ) {
v_i[i] = v_save[i];
}
info_i = LAPACKE_cgebak_work( LAPACK_COL_MAJOR, job_i, side_i, n_i, ilo_i,
ihi_i, scale_i, m_i, v_i, ldv_i );
failed = compare_cgebak( v, v_i, info, info_i, ldv, m );
if( failed == 0 ) {
printf( "PASSED: column-major middle-level interface to cgebak\n" );
} else {
printf( "FAILED: column-major middle-level interface to cgebak\n" );
}
/* Initialize input data, call the column-major high-level
* interface to LAPACK routine and check the results */
for( i = 0; i < n; i++ ) {
scale_i[i] = scale[i];
}
for( i = 0; i < ldv*m; i++ ) {
v_i[i] = v_save[i];
}
info_i = LAPACKE_cgebak( LAPACK_COL_MAJOR, job_i, side_i, n_i, ilo_i, ihi_i,
scale_i, m_i, v_i, ldv_i );
failed = compare_cgebak( v, v_i, info, info_i, ldv, m );
if( failed == 0 ) {
printf( "PASSED: column-major high-level interface to cgebak\n" );
} else {
printf( "FAILED: column-major high-level interface to cgebak\n" );
}
/* Initialize input data, call the row-major middle-level
* interface to LAPACK routine and check the results */
for( i = 0; i < n; i++ ) {
scale_i[i] = scale[i];
}
for( i = 0; i < ldv*m; i++ ) {
v_i[i] = v_save[i];
}
LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, m, v_i, ldv, v_r, m+2 );
info_i = LAPACKE_cgebak_work( LAPACK_ROW_MAJOR, job_i, side_i, n_i, ilo_i,
ihi_i, scale_i, m_i, v_r, ldv_r );
LAPACKE_cge_trans( LAPACK_ROW_MAJOR, n, m, v_r, m+2, v_i, ldv );
failed = compare_cgebak( v, v_i, info, info_i, ldv, m );
if( failed == 0 ) {
printf( "PASSED: row-major middle-level interface to cgebak\n" );
} else {
printf( "FAILED: row-major middle-level interface to cgebak\n" );
}
/* Initialize input data, call the row-major high-level
* interface to LAPACK routine and check the results */
for( i = 0; i < n; i++ ) {
scale_i[i] = scale[i];
}
for( i = 0; i < ldv*m; i++ ) {
v_i[i] = v_save[i];
}
/* Init row_major arrays */
LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, m, v_i, ldv, v_r, m+2 );
info_i = LAPACKE_cgebak( LAPACK_ROW_MAJOR, job_i, side_i, n_i, ilo_i, ihi_i,
scale_i, m_i, v_r, ldv_r );
LAPACKE_cge_trans( LAPACK_ROW_MAJOR, n, m, v_r, m+2, v_i, ldv );
failed = compare_cgebak( v, v_i, info, info_i, ldv, m );
if( failed == 0 ) {
printf( "PASSED: row-major high-level interface to cgebak\n" );
} else {
printf( "FAILED: row-major high-level interface to cgebak\n" );
}
/* Release memory */
if( scale != NULL ) {
LAPACKE_free( scale );
}
if( scale_i != NULL ) {
LAPACKE_free( scale_i );
}
if( v != NULL ) {
LAPACKE_free( v );
}
if( v_i != NULL ) {
LAPACKE_free( v_i );
}
if( v_r != NULL ) {
LAPACKE_free( v_r );
}
if( v_save != NULL ) {
LAPACKE_free( v_save );
}
return 0;
}
