Advertisement
CaptainLepidus

Terrain Generation

Feb 22nd, 2012
120
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Information about object: objHeightMap
  2. Sprite:
  3. Solid: false
  4. Visible: true
  5. Depth: 0
  6. Persistent: false
  7. Parent:
  8. Mask:
  9.  
  10. Create Event:
  11.  
  12. execute code:
  13.  
  14. {
  15.     surf = surface_create( 32 , 32 );
  16.     surface_set_target( surf );
  17.     draw_set_color( c_black );
  18.     draw_rectangle( 0 , 0 , 32 , 32 , 0 );
  19.     surface_reset_target();
  20.     for( i = 0; i < 32; i = i + 1 )
  21.     {
  22.         for( j = 0; j < 32; j = j + 1 )
  23.         {
  24.             col[ i , j ] = surface_getpixel( surf , i , j );
  25.             hei[ i , j ] = color_get_value( col );
  26.         }
  27.     }
  28.     d3d_start();
  29.     draw_set_color( c_white );
  30.     ter = d3d_model_create();
  31.     d3d_model_primitive_begin( ter , pr_trianglelist );
  32.     for( i = 0; i < 31; i = i + 1 )
  33.     {
  34.         for( j = 0; j < 31; j = j + 1 )
  35.         {
  36.             d3d_model_vertex( ter , i , j , hei[ i , j ] );
  37.             d3d_model_vertex( ter , i + 1 , j , hei[ i + 1 , j ] );
  38.             d3d_model_vertex( ter , i , j + 1 , hei[ i , j + 1 ] );
  39.             d3d_model_vertex( ter , i + 1 , j , hei[ i + 1 , j ] );
  40.             d3d_model_vertex( ter , i , j + 1 , hei[ i , j + 1 ] );
  41.             d3d_model_vertex( ter , i + 1 , j + 1 , hei[ i + 1 , j + 1 ] );
  42.         }
  43.     }
  44.     d3d_model_primitive_end( ter );
  45. }
  46.  
  47. Draw Event:
  48.  
  49. execute code:
  50.  
  51. {
  52.     tex = background_get_texture( bckGrass );
  53.     d3d_set_projection( 16 , 16 , 32 , 16 , 16 , 16 , 0 , 0 , 1 );
  54.     d3d_model_draw( ter , 0 , 0 , 0 , tex );
  55. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement