equal
deleted
inserted
replaced
347 |
347 |
348 if State <> 0 then |
348 if State <> 0 then |
349 gear^.State:= State; |
349 gear^.State:= State; |
350 |
350 |
351 case Gear^.Kind of |
351 case Gear^.Kind of |
352 vgtFlake: if cFlattenFlakes then |
352 vgtFlake: |
353 gear^.Layer:= 0 |
353 if random(3) = 0 then |
354 else if random(3) = 0 then |
|
355 begin |
354 begin |
356 gear^.Scale:= 0.5; |
355 gear^.Scale:= 0.5; |
357 gear^.Layer:= 0 // 33% - far back |
356 gear^.Layer:= 0 // 33% - far back |
358 end |
357 end |
359 else if random(3) = 0 then |
358 else if random(3) = 0 then |
361 gear^.Scale:= 0.8; |
360 gear^.Scale:= 0.8; |
362 gear^.Layer:= 4 // 22% - mid-distance |
361 gear^.Layer:= 4 // 22% - mid-distance |
363 end |
362 end |
364 else if random(3) <> 0 then |
363 else if random(3) <> 0 then |
365 gear^.Layer:= 5 // 30% - just behind land |
364 gear^.Layer:= 5 // 30% - just behind land |
366 else if random(2) = 0 then |
365 else if (not cFlattenFlakes) and (random(2) = 0) then |
367 gear^.Layer:= 6 // 7% - just in front of land |
366 gear^.Layer:= 6 // 7% - just in front of land |
368 else |
367 else if not cFlattenFlakes then |
369 begin |
368 begin |
370 gear^.Scale:= 1.5; |
369 gear^.Scale:= 1.5; |
371 gear^.Layer:= 2; // 7% - close up |
370 gear^.Layer:= 2 // 7% - close up |
372 end; |
371 end |
|
372 else begin |
|
373 gear^.Layer:= 0; |
|
374 gear^.Scale:= 0.5 |
|
375 end; |
373 |
376 |
374 vgtCloud: if cFlattenClouds then gear^.Layer:= 5 |
377 vgtCloud: if cFlattenClouds then gear^.Layer:= 5 |
375 else if random(3) = 0 then |
378 else if random(3) = 0 then |
376 begin |
379 begin |
377 gear^.Scale:= 0.25; |
380 gear^.Scale:= 0.25; |