1199767f8SToomas Soome\ Copyright (c) 2003 Scott Long <scottl@FreeBSD.org> 2199767f8SToomas Soome\ Copyright (c) 2003 Aleksander Fafula <alex@fafula.com> 3199767f8SToomas Soome\ Copyright (c) 2006-2015 Devin Teske <dteske@FreeBSD.org> 4199767f8SToomas Soome\ All rights reserved. 59890ff83SToomas Soome\ 6199767f8SToomas Soome\ Redistribution and use in source and binary forms, with or without 7199767f8SToomas Soome\ modification, are permitted provided that the following conditions 8199767f8SToomas Soome\ are met: 9199767f8SToomas Soome\ 1. Redistributions of source code must retain the above copyright 10199767f8SToomas Soome\ notice, this list of conditions and the following disclaimer. 11199767f8SToomas Soome\ 2. Redistributions in binary form must reproduce the above copyright 12199767f8SToomas Soome\ notice, this list of conditions and the following disclaimer in the 13199767f8SToomas Soome\ documentation and/or other materials provided with the distribution. 149890ff83SToomas Soome\ 15199767f8SToomas Soome\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 16199767f8SToomas Soome\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 17199767f8SToomas Soome\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 18199767f8SToomas Soome\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 19199767f8SToomas Soome\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 20199767f8SToomas Soome\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 21199767f8SToomas Soome\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 22199767f8SToomas Soome\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 23199767f8SToomas Soome\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 24199767f8SToomas Soome\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 25199767f8SToomas Soome\ SUCH DAMAGE. 269890ff83SToomas Soome\ 27199767f8SToomas Soome 28199767f8SToomas Soome46 logoX ! 4 logoY ! \ Initialize logo placement defaults 29199767f8SToomas Soome 30199767f8SToomas Soome: logo+ ( x y c-addr/u -- x y' ) 31199767f8SToomas Soome 2swap 2dup at-xy 2swap \ position the cursor 32199767f8SToomas Soome [char] @ escc! \ replace @ with Esc 33199767f8SToomas Soome type \ print to the screen 34199767f8SToomas Soome 1+ \ increase y for next time we're called 35199767f8SToomas Soome; 36199767f8SToomas Soome 3709b64481SAndy Fiddaman: logo ( x y -- ) \ color illumos logo 389890ff83SToomas Soome 3963f9f2ffSToomas Soome framebuffer? if 4063f9f2ffSToomas Soome s" term-putimage" sfind if 4163f9f2ffSToomas Soome >r over 0 swap ( x y 0 x ) 4263f9f2ffSToomas Soome 12 0 22 ( x y 0 x 12 0 22 ) 4363f9f2ffSToomas Soome s" /boot/illumos-logo.png" 4463f9f2ffSToomas Soome r> execute if 2drop exit then 4563f9f2ffSToomas Soome else 4663f9f2ffSToomas Soome drop 4763f9f2ffSToomas Soome then 4863f9f2ffSToomas Soome then 49199767f8SToomas Soome 505c1597bcSToomas Soome s" @[33m,@[m " logo+ 515c1597bcSToomas Soome s" @[33m,./% @[31m&@[m " logo+ 525c1597bcSToomas Soome s" @[33m(****@[31m*(@[m " logo+ 535c1597bcSToomas Soome s" @[33m*/*@[31m//@[m " logo+ 545c1597bcSToomas Soome s" @[33m*,//@[31m/((@[m " logo+ 555c1597bcSToomas Soome s" @[33m,*/@[31m/((/%@[m " logo+ 565c1597bcSToomas Soome s" @[33m//@[31m/((((%@[m " logo+ 575c1597bcSToomas Soome s" @[33m,*@[31m/(((((%@[m @[33m&@[31m#///((&@[m" logo+ 585c1597bcSToomas Soome s" @[33m./@[31m//((((((%@[m @[31m%/(((/@[m " logo+ 595c1597bcSToomas Soome s" @[33m./@[31m///(((((///((,@[m " logo+ 605c1597bcSToomas Soome s" @[33m.*//@[31m//((((((((((@[m " logo+ 615c1597bcSToomas Soome s" @[31m./((((((((/@[m " logo+ 625c1597bcSToomas Soome s" @[31m(/(((((((@[m " logo+ 635c1597bcSToomas Soome s" @[31m,,((((((/@[m " logo+ 645c1597bcSToomas Soome s" @[31m/((((@[m " logo+ 655c1597bcSToomas Soome s" @[31m%/((((@[m " logo+ 665c1597bcSToomas Soome s" @[33m&@[31m%#/((((.@[m " logo+ 675c1597bcSToomas Soome s" @[33m,@[31m(@[m @[31m,/@[m @[31m/(/@[m " logo+ 685c1597bcSToomas Soome s" @[31m,/@[m " logo+ 69199767f8SToomas Soome 70199767f8SToomas Soome 2drop 71199767f8SToomas Soome; 72