equal
deleted
inserted
replaced
422 SkyColor.r:= t; |
422 SkyColor.r:= t; |
423 SkyColor.g:= t; |
423 SkyColor.g:= t; |
424 SkyColor.b:= t |
424 SkyColor.b:= t |
425 end; |
425 end; |
426 glClearColor(SkyColor.r / 255, SkyColor.g / 255, SkyColor.b / 255, 0.99); |
426 glClearColor(SkyColor.r / 255, SkyColor.g / 255, SkyColor.b / 255, 0.99); |
427 SDSkyColor.r:= byte(SkyColor.r * SDTint div 255); |
427 SDSkyColor.r:= SkyColor.r; |
428 SDSkyColor.g:= byte(SkyColor.g * SDTint div 255); |
428 SDSkyColor.g:= SkyColor.g; |
429 SDSkyColor.b:= byte(SkyColor.b * SDTint div 255); |
429 SDSkyColor.b:= SkyColor.b; |
430 end |
430 end |
431 else if key = 'border' then |
431 else if key = 'border' then |
432 begin |
432 begin |
433 i:= Pos(',', s); |
433 i:= Pos(',', s); |
434 c2.r:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
434 c2.r:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
659 RQSkyColor.r:= t; |
659 RQSkyColor.r:= t; |
660 RQSkyColor.g:= t; |
660 RQSkyColor.g:= t; |
661 RQSkyColor.b:= t |
661 RQSkyColor.b:= t |
662 end; |
662 end; |
663 glClearColor(RQSkyColor.r / 255, RQSkyColor.g / 255, RQSkyColor.b / 255, 0.99); |
663 glClearColor(RQSkyColor.r / 255, RQSkyColor.g / 255, RQSkyColor.b / 255, 0.99); |
664 SDSkyColor.r:= byte(RQSkyColor.r * SDTint div 255); |
664 SDSkyColor.r:= RQSkyColor.r; |
665 SDSkyColor.g:= byte(RQSkyColor.g * SDTint div 255); |
665 SDSkyColor.g:= RQSkyColor.g; |
666 SDSkyColor.b:= byte(RQSkyColor.b * SDTint div 255); |
666 SDSkyColor.b:= RQSkyColor.b; |
667 end |
667 end |
668 end |
668 end |
669 end; |
669 end; |
670 |
670 |
671 Close(f); |
671 Close(f); |