Greyscale bars/Display: Difference between revisions
Content added Content deleted
(→{{header|J}}: J9 revision) |
No edit summary |
||
Line 634: | Line 634: | ||
} |
} |
||
</lang> |
</lang> |
||
=={{header|FutureBasic}}== |
|||
[[File:GrayscalesR.png|thumb|right]] |
|||
<lang futurebasic> |
|||
_window = 1 |
|||
void local fn BuildGrayBarWindow |
|||
NSInteger i |
|||
float gray |
|||
CGRect r = fn CGRectMake( 0, 0, 640, 400 ) |
|||
window _window, @"Gray Scale Window", r |
|||
WindowSetBackgroundColor( _window, fn ColorBlack ) |
|||
gray = 0.0 |
|||
r = fn CGrectMake( 0, 300, 80, 100 ) |
|||
for i = 1 to 8 |
|||
textfield i, YES,,r,_window |
|||
TextFieldSetEditable( i, NO ) |
|||
TextFieldSetBackgroundColor( i, fn ColorWithRGB( gray, gray, gray, 1.0 ) ) |
|||
r = fn CGRectOffset( r, 80, 0 ) |
|||
gray += 0.125 |
|||
next |
|||
gray = 1.0 |
|||
r = fn CGrectMake( 0, 200, 40, 100 ) |
|||
for i = 10 to 26 |
|||
textfield i, YES,,r,_window |
|||
TextFieldSetEditable( i, NO ) |
|||
TextFieldSetBackgroundColor( i, fn ColorWithRGB( gray, gray, gray, 1.0 ) ) |
|||
r = fn CGRectOffset( r, 40, 0 ) |
|||
gray -= 0.0625 |
|||
next |
|||
gray = 0.0 |
|||
r = fn CGrectMake( 0, 100, 20, 100 ) |
|||
for i = 30 to 62 |
|||
textfield i, YES,,r,_window |
|||
TextFieldSetEditable( i, NO ) |
|||
TextFieldSetBackgroundColor( i, fn ColorWithRGB( gray, gray, gray, 1.0 ) ) |
|||
r = fn CGRectOffset( r, 20, 0 ) |
|||
gray += 0.03125 |
|||
next |
|||
gray = 1.0 |
|||
r = fn CGrectMake( 0, 0, 10, 100 ) |
|||
for i = 100 to 164 |
|||
textfield i, YES,,r,_window |
|||
TextFieldSetEditable( i, NO ) |
|||
TextFieldSetBackgroundColor( i, fn ColorWithRGB( gray, gray, gray, 1.0 ) ) |
|||
r = fn CGRectOffset( r, 10, 0 ) |
|||
gray -= 0.015625 |
|||
next |
|||
end fn |
|||
fn BuildGrayBarWindow |
|||
HandleEvents |
|||
</lang> |
|||
=={{header|Gambas}}== |
=={{header|Gambas}}== |