home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / EXAMPLES / FLO_CUST.LF < prev    next >
Text File  |  1996-06-04  |  5KB  |  134 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  3. %
  4. %                  Customization of the application.
  5. %
  6. % This file contains the definition of the fonts and colors used in the
  7. % interface. 
  8. % It also contains default values for colors of flowers, distances,...
  9. %         
  10. % This file is loaded automatically by the main file of the demo. 
  11. %                                                                           
  12. % Author: Bruno Dumant                                                        
  13. %                                                                             
  14. % Copyright 1992 Digital Equipment Corporation                                
  15. % All Rights Reserved                                                         
  16. %
  17. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  18. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  19.  
  20. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  21. %
  22. % Interface
  23. %
  24. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  25.  
  26. %
  27. % Fonts (Fonts in comments are suggestions for use instead of the font
  28. % appearing in the xLoadFont predicate).
  29. %
  30.  
  31. xLoadFont(default_display,ButtonFont,
  32.          "-*-helvetica-bold-r-*-*-14-*-*-*-*-*-*-*"),
  33.                                                       %% avantgarde_demi10 
  34.                                                       %% 8x13Bold
  35.                               %% times_bold10
  36.                               %% courier_bold10
  37. setq(button_font,ButtonFont) ?
  38.  
  39. xLoadFont(default_display,TextFieldFont,
  40.     "-*-helvetica-medium-r-*-*-14-*-*-*-*-*-*-*"),
  41.                                                       %% helvetica10
  42.                                                           %% avantgarde_book10
  43.                                                       %% r14
  44.                                                       %% souvenir_light10
  45.                                                       %% times_roman10
  46.                                                       %% courier_bold10
  47. setq(textfield_font,TextFieldFont) ?
  48.  
  49. xLoadFont(default_display,ColorNameFont,
  50.     "-*-helvetica-bold-r-*-*-*-180-*-*-*-*-*-*"),
  51.                                                       %% helvetica_bold18
  52.                                                           %% avantgarde_demi18 
  53.                                                       %% times_bold18
  54.                               %% vr-20
  55.                               %% courier_bold18
  56. setq(color_name_font,ColorNameFont) ?
  57.  
  58.  
  59. %
  60. % Colors
  61. %
  62.  
  63. xRequestColor(default_window,63,106,106,X),
  64. assert(( shade_color(on_off_color) -> X)) ?
  65. xRequestColor(default_window,118,197,197,X),
  66. assert(( highlight_color(on_off_color) -> X)) ?
  67. X = 'cadet blue',
  68. assert(( button_color(on_off_color) -> X)) ?
  69. xRequestColor(default_window,158,32,32,X),
  70. assert(( text_color(on_off_color) -> X)) ?
  71.  
  72. X = 'lime green',
  73. assert(( led_shade_color(on_off_color) -> X)) ?
  74. X = 'green yellow',
  75. assert(( led_highlight_color(on_off_color) -> X)) ?
  76. X = green,
  77. assert(( led_color(on_off_color) -> X)) ?
  78.  
  79. X = 'dim grey',
  80. assert(( shade_color(toggle_color) -> X)) ?
  81. X = white,
  82. assert(( highlight_color(toggle_color) -> X)) ?
  83. X = grey,
  84. assert(( button_color(toggle_color) -> X)) ?
  85. X = firebrick,
  86. assert(( text_color(toggle_color) -> X)) ?
  87. X = firebrick,
  88. assert(( led_shade_color(toggle_color) -> X)) ?
  89. X = 'orange red',
  90. assert(( led_highlight_color(toggle_color) -> X)) ?
  91. X = red,
  92. assert(( led_color(toggle_color) -> X)) ?
  93.  
  94. setq(textfield_color, 'light grey') ?
  95. xRequestColor(default_window,255,240,225,X),
  96. setq(selected_textfield_color,X)?
  97. setq(text_in_field_color,black) ?
  98. setq(text_in_selected_field_color,black) ?
  99.  
  100. xRequestColor(default_window,180,190,190,X),
  101. setq(def_led_color,X) ?
  102. X = 'dim grey', setq(def_led_shade,X) ?
  103. X = 'light grey', setq(def_led_highlight,X) ?
  104.  
  105. setq(panel_color,'light grey') ?
  106. setq(panel_highlight,white) ?
  107. setq(panel_shade,grey) ?
  108.  
  109. setq(color_name_textfield_color, white) ?
  110.  
  111. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  112. %
  113. % Main Initialization
  114. %
  115. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  116.  
  117. init_default_values :-
  118.  
  119.     setq(petal_color,red),
  120.     setq(stamen_color,gold),
  121.     setq(leaf_color,green),
  122.     setq(defaultColor,'forest green'),
  123.     setq(background_color,black),
  124.     
  125.     setq(xstart,350) ,
  126.     setq(ystart,650) ,
  127.     setq(axstart,-30) ,
  128.     setq(aystart,150) ,
  129.     setq(azstart,0) ,
  130.     setq(deriv_num,4) ,
  131.     setq(zoom_fact,1) ,
  132.  
  133.     setq(postout_filename,"flowers.ps").
  134.