changeset 161 | d8870bbf960e |
parent 160 | 207f520b9e83 |
child 173 | 004493dd60e4 |
160:207f520b9e83 | 161:d8870bbf960e |
---|---|
468 |
468 |
469 DrawBezierEdge(pa, COLOR_LAND); |
469 DrawBezierEdge(pa, COLOR_LAND); |
470 end; |
470 end; |
471 end; |
471 end; |
472 |
472 |
473 function SelectTemplate: integer; |
|
474 begin |
|
475 Result:= getrandom(Succ(High(EdgeTemplates))) |
|
476 end; |
|
477 |
|
473 procedure GenLandSurface; |
478 procedure GenLandSurface; |
474 var tmpsurf: PSDL_Surface; |
479 var tmpsurf: PSDL_Surface; |
475 begin |
480 begin |
476 WriteLnToConsole('Generating land...'); |
481 WriteLnToConsole('Generating land...'); |
477 |
482 |
478 GenBlank(EdgeTemplates[getrandom(Succ(High(EdgeTemplates)))]); |
483 GenBlank(EdgeTemplates[SelectTemplate]); |
479 |
484 |
480 AddProgress; |
485 AddProgress; |
481 with PixelFormat^ do |
486 with PixelFormat^ do |
482 tmpsurf:= SDL_CreateRGBSurface(SDL_HWSURFACE, 2048, 1024, BitsPerPixel, RMask, GMask, BMask, 0); |
487 tmpsurf:= SDL_CreateRGBSurface(SDL_HWSURFACE, 2048, 1024, BitsPerPixel, RMask, GMask, BMask, 0); |
483 TryDo(tmpsurf <> nil, 'Error creating pre-land surface', true); |
488 TryDo(tmpsurf <> nil, 'Error creating pre-land surface', true); |
571 |
576 |
572 procedure GenPreview; |
577 procedure GenPreview; |
573 var x, y, xx, yy, t, bit: integer; |
578 var x, y, xx, yy, t, bit: integer; |
574 begin |
579 begin |
575 WriteLnToConsole('Generating preview...'); |
580 WriteLnToConsole('Generating preview...'); |
576 GenBlank(EdgeTemplates[getrandom(Succ(High(EdgeTemplates)))]); |
581 GenBlank(EdgeTemplates[SelectTemplate]); |
577 |
582 |
578 for y:= 0 to 127 do |
583 for y:= 0 to 127 do |
579 for x:= 0 to 31 do |
584 for x:= 0 to 31 do |
580 begin |
585 begin |
581 Preview[y, x]:= 0; |
586 Preview[y, x]:= 0; |