equal
deleted
inserted
replaced
956 begin |
956 begin |
957 if (cReducedQuality and rqKillFlakes) <> 0 then |
957 if (cReducedQuality and rqKillFlakes) <> 0 then |
958 exit; |
958 exit; |
959 |
959 |
960 if hasBorder or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then |
960 if hasBorder or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then |
961 for i:= 0 to Pred(vobCount * cScreenSpace div LAND_WIDTH) do |
961 for i:= 0 to Pred(vobCount * cScreenSpace div 4096) do |
962 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake) |
962 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake) |
963 else |
963 else |
964 for i:= 0 to Pred((vobCount * cScreenSpace div LAND_WIDTH) div 3) do |
964 for i:= 0 to Pred((vobCount * cScreenSpace div 4096) div 3) do |
965 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |
965 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |
966 end; |
966 end; |
967 |
967 |
968 procedure ChangeToSDFlakes; |
968 procedure ChangeToSDFlakes; |
969 var i: LongInt; |
969 var i: LongInt; |