home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 123 / af123a.adf / af123a2.lzx / Selector / examples / flagga.sel < prev    next >
Encoding:
Text File  |  1999-03-04  |  1.6 KB  |  58 lines
  1. screen jump
  2.  
  3. defenv mess "Press anywhere!"
  4.  
  5. size 10
  6. windowsize 3 12
  7. background dark_blue
  8. drawcol green
  9. draw FilledBox % 0 77.8351 101.0601 100.5155
  10. drawcol white
  11. draw FilledBox % 40.2827 14.9485 42.0495 76.8041
  12. drawcol blue
  13. draw FilledBox % 42.4028 15.9794 68.5512 31.4433
  14. drawcol yellow
  15. draw FilledBox % 42.7562 21.6495 68.5512 25.7732
  16. draw FilledBox % 49.1166 15.9794 54.417 31.4433
  17. drawcol 4C4
  18. draw line % 64.311 77.3196 59.7173 72.1649
  19. draw line % 59.7173 70.1031
  20. draw line % 61.1307 69.5876
  21. draw line % 64.6643 77.3196
  22. draw line % 67.4912 70.1031
  23. draw line % 68.5512 69.5876
  24. draw line % 69.2579 69.0722
  25. draw line % 71.3781 70.1031
  26. draw line % 64.311 77.3196
  27. draw line % 64.6643 76.8041
  28. draw line % 64.6643 62.3711
  29. drawcol D34
  30. draw Figure % 59.364 58.2474 70.318 66.4949
  31. drawcol F84
  32. draw Figure % 61.4841 59.7938 68.1979 64.9484 1.5423
  33.  
  34. area % 42.4028 15.9794 68.5512 31.4433 setenv mess "This is the Swedish flag!" update
  35. area % 58.6572 58.2474 71.7314 77.3196 setenv mess "This is a flower!" update
  36. area % 0 77.8351 98.9399 99.4845 setenv mess "This is grass!" update
  37. area % 38.5159 13.9175 44.1696 77.3196 setenv mess "This is a flag-pole!!" update
  38.  
  39. drawcol FFF
  40. draw line % 7.0671 18.0412 10.2473 16.4948
  41. draw line % 11.6608 16.4948
  42. draw line % 12.0141 18.0412
  43. draw line % 13.4276 16.4948
  44. draw line % 16.2544 16.4948
  45. draw line % 17.6678 17.5258
  46. area % 4.2403 11.3402 20.8481 23.7113 setenv mess "This is a bird in the sky!" update
  47.  
  48. textcol white
  49. setpen 1 11
  50. text "[mess]"
  51.  
  52. setpen 2 0
  53. ;buttoncol black gray
  54. button "What?" setenv mess "This is a button :-)" update
  55.  
  56. area % 0 0 100 77 setenv mess "This is the sky!" update
  57.  
  58. unsetenv mess