Write language name in 3D ASCII: Difference between revisions
Content added Content deleted
Simple9371 (talk | contribs) |
No edit summary |
||
Line 1,710: | Line 1,710: | ||
</pre> |
</pre> |
||
=={{header|FutureBasic}}== |
|||
<syntaxhighlight lang="futurebasic"> |
|||
_window = 1 |
|||
begin enum 1 |
|||
_asciiField |
|||
end enum |
|||
void local fn BuildWindow |
|||
CGRect r = fn CGRectMake( 0, 0, 610, 140 ) |
|||
window _window, @"Rosetta Code — FutureBasic in 3D ASCII", r, NSWindowStyleMaskTitled + NSWindowStyleMaskClosable |
|||
WindowSetBackgroundColor( _window, fn ColorBlack ) |
|||
CFStringRef asciiFB = @" ¬ |
|||
/$$$$$$$$ / $$ /$$$$$$$ /$$ \n¬ |
|||
| $$_____/ | $$ | $$__ $$ |__/ \n¬ |
|||
| $$ /$$ /$$ /$$$$$$ /$$ /$$ /$$$$$$ /$$$$$$ | $$ \\ $$ /$$$$$$ /$$$$$$$ /$$ /$$$$$$$\n¬ |
|||
| $$$$$ | $$ | $$|_ $$_/ | $$ | $$ /$$__ $$ /$$__ $$| $$$$$$$ |____ $$ /$$_____/| $$ /$$_____/\n¬ |
|||
| $$__/ | $$ | $$ | $$ | $$ | $$| $$ \\__/| $$$$$$$$| $$__ $$ /$$$$$$$| $$$$$$ | $$| $$ \n¬ |
|||
| $$ | $$ | $$ | $$ /$$| $$ | $$| $$ | $$_____/| $$ \\ $$ /$$__ $$ \\____ $$| $$| $$ \n¬ |
|||
| $$ | $$$$$$/ | $$$$/| $$$$$$/| $$ | $$$$$$$| $$$$$$$/| $$$$$$$ /$$$$$$$/| $$| $$$$$$$\n¬ |
|||
|__/ \\______/ \\___/ \\______/ |__/ \\_______/|_______/ \\_______/|_______/ |__/ \\_______/\n" |
|||
r = fn CGRectMake( 22, 20, 582, 100 ) |
|||
textfield _asciiField, YES, asciiFB, r, _window |
|||
TextFieldSetTextColor( _asciiField, fn ColorYellow ) |
|||
TextFieldSetBordered( _asciiField, NO ) |
|||
TextFieldSetBackgroundColor( _asciiField, fn ColorBlack ) |
|||
ControlSetFontWithName( _asciiField, @"Menlo", 9.0 ) |
|||
end fn |
|||
void local fn DoDialog( ev as long, tag as long, wnd as long ) |
|||
select ( ev ) |
|||
case _windowWillClose : end |
|||
end select |
|||
end fn |
|||
on dialog fn DoDialog |
|||
fn BuildWindow |
|||
HandleEvents |
|||
</syntaxhighlight> |
|||
{{output}} |
|||
[[File:FutureBasic in ASCII Art.png]] |
|||
=={{header|Go}}== |
=={{header|Go}}== |