equal
deleted
inserted
replaced
103 |
103 |
104 procedure setStereoMode(tmp: LongInt); |
104 procedure setStereoMode(tmp: LongInt); |
105 begin |
105 begin |
106 GrayScale:= false; |
106 GrayScale:= false; |
107 {$IFDEF USE_S3D_RENDERING} |
107 {$IFDEF USE_S3D_RENDERING} |
108 if (tmp > 9) and (tmp < 16) then |
108 if (tmp > 6) and (tmp < 13) then |
109 begin |
109 begin |
110 // set the gray anaglyph rendering |
110 // set the gray anaglyph rendering |
111 GrayScale:= true; |
111 GrayScale:= true; |
112 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-9))) |
112 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-6))) |
113 end |
113 end |
114 else if tmp <= 9 then |
114 else if tmp <= 6 then |
115 // set the fullcolor anaglyph |
115 // set the fullcolor anaglyph |
116 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp))) |
116 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp))) |
117 else |
117 else |
118 // any other mode |
118 // any other mode |
119 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-6))); |
119 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-6))); |