Advertisement
devinteske

logo-tributebw.4th

Mar 11th, 2018
1,260
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.81 KB | None | 0 0
  1. \ Copyright (c) 2013-2015 Devin Teske <dteske@FreeBSD.org>
  2. \ All rights reserved.
  3. \
  4. \ Redistribution and use in source and binary forms, with or without
  5. \ modification, are permitted provided that the following conditions
  6. \ are met:
  7. \ 1. Redistributions of source code must retain the above copyright
  8. \ notice, this list of conditions and the following disclaimer.
  9. \ 2. Redistributions in binary form must reproduce the above copyright
  10. \ notice, this list of conditions and the following disclaimer in the
  11. \ documentation and/or other materials provided with the distribution.
  12. \
  13. \ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  14. \ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  15. \ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  16. \ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  17. \ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  18. \ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  19. \ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  20. \ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  21. \ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  22. \ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  23. \ SUCH DAMAGE.
  24. \
  25. \ $FreeBSD$
  26.  
  27. 7 logoX ! 2 logoY ! \ Initialize logo placement defaults
  28.  
  29. \ Disable the brand art (we're going to use that space)
  30. set loader_brand="none"
  31.  
  32. \ Blank out the frame of the menu and move the title to left
  33. set loader_menu_title=""
  34. set loader_menu_frame="none"
  35.  
  36. \ Move the menu to the center of the screen
  37. set loader_menu_x="26"
  38. set loader_menu_y="12"
  39. set loader_menu_timeout_x="21"
  40. set loader_menu_timeout_y="24"
  41.  
  42. : qc! ( c-addr/u c -- c-addr/u )
  43. 2 pick 2 pick
  44. begin dup 0> while
  45. over c@ 3 pick = if over [char] " swap c! then
  46. 1- swap 1+ swap
  47. repeat
  48. 2drop drop
  49. ;
  50.  
  51. : logo+ ( x y c-addr/u -- x y' )
  52. 2swap 2dup at-xy 2swap \ position the cursor
  53. [char] @ qc! \ replace @ with "
  54. type \ print to the screen
  55. 1+ \ increase y for next time we're called
  56. ;
  57.  
  58. : logo ( x y -- ) \ color BSD mascot (19 rows x 34 columns)
  59.  
  60. s" ,d b." logo+
  61. s" ,d88] [88b." logo+
  62. s" ,d888P@ ,d88b. @Y888b." logo+
  63. s" , <888P@ ,dP@,db.@Yb. @Y888> ," logo+
  64. s" <88b.~ ,d888 @YP@ 888b. ~,d88>" logo+
  65. s" ,@Y888888P@,db.,db.@Y888888P@," logo+
  66. s" <88b.@YP@ _ @YP@@YP@ _ @YP@,d88>" logo+
  67. s" @Y88b.,dP Yb.,d88P@" logo+
  68. s" @YP@ @YP@" logo+
  69.  
  70. 2drop logoX @ logoY @ 2 + swap 35 + swap
  71.  
  72. s" CEO Workstation" logo+
  73. 1+
  74. s" Nakatomi Socrates FreeBSD Tribute" logo+
  75. s" Z-Level Central Core" logo+
  76. 1+
  77. s" Preliminary Clearance Approved." logo+
  78.  
  79. 2drop 0 25 at-xy
  80. ;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement