home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_1 / softstep / softstep3.msi / Data1.cab / drawballclk.ufn < prev    next >
Encoding:
Text File  |  2001-07-14  |  2.4 KB  |  133 lines
  1. 0
  2. 0
  3. 0
  4. 0
  5. 0. 
  6. 1. 
  7. 2. Initialize = nLED(8),~Ex(me+5),      ; do the initialize-once stuff~V0.(in7), V1.(in8),      ; initialize starting X, Y~v4.(in3+1), v5.(in4+1),  ; initialize ball size~v2.(1), v3.(1),          ; initialize direction flags~PixPenColor(255),~PixFillColor(255),~PixFillStyle(0),~PixPenWidth(3),~PixDrawMode(7),~PixEllipse(v0, v1, v4, v5),  ; draw first ball~goto(me+1)~
  8. 3. Run/Stop = Switch(run,me+1,0)
  9. 4. Draw Shape = pixactive(uid), PixAutoRepaint(0)~PixEllipse(v0, v1, v4, v5),  ; erase old~switch(((v6=in5) and (v7=in6)), 0, me+1) ; change size if changed~v4.(in3+3), v5.(in4+3),~e.(Edge(v0, v1, v4, v5, PixFrameWidth, PixFrameHeight)), ; check edges~f.(iif(e,e,f)), led(f),~v2.(iif( e and 3, iif(e and 1, -1, 1), v2)),      ; direction flags~v3.(iif( e and 12, iif(e and 4, -1, 1),v3)),~v0.(v0+(in1*v2)), v1.(v1+(in2*v3)),               ; update x,y position~PixEllipse(v0, v1, v4, v5),  ~out(e), ; output flags if direction changed~PixRepaint, PixAutoRepaint(1)
  10. 5. Change Frame Size = PixSize(FetchX(0, in5)+4, FetchX(0, in6)+4),~PixPatternSet(0, 0, 0),~PixShapeSet(1, 0, 1, rgb(128,128,128)),~PixShape(0, 0, PixFrameWidth, PixFrameHeight, 2000),~v6.(in5), v7.(in6) ; Only run when in4 or in5 has changed
  11. 6. Tool Tips = ToolTip(, ~"Step X", "Step Y",             ; In1, In2~"Ball Width", "Ball Height",    ; In3, In4~"Frame Width", "Frame Height",  ; In5, In6~"Start X", "Start Y")           ; In7, In8
  12. 7. Initialize Once = PixNumFrames(uid), pixactive(uid),~PixMove(uid * 100,100), ~pixon, pixontop(1),~MakeXTable(0, 300), ; initialize translation table for frame size~ex(me-2), ; set frame size~ex(me-1), ; set tool tips~numlabel(uid)~
  13. 8. 
  14. 9. 
  15. 10. 
  16. 11. 
  17. 12. 
  18. 13. 
  19. 14. 
  20. 15. 
  21. 16. 
  22. 17. 
  23. 18. 
  24. 19. 
  25. 20. 
  26. 21. 
  27. 22. 
  28. 23. 
  29. 24. 
  30. 25. 
  31. 26. 
  32. 27. 
  33. 28. 
  34. 29. 
  35. 30. 
  36. 31. 
  37. 32. 
  38. 33. 
  39. 34. 
  40. 35. 
  41. 36. 
  42. 37. 
  43. 38. 
  44. 39. 
  45. 40. 
  46. 41. 
  47. 42. 
  48. 43. 
  49. 44. 
  50. 45. 
  51. 46. 
  52. 47. 
  53. 48. 
  54. 49. 
  55. 50. 
  56. 51. 
  57. 52. 
  58. 53. 
  59. 54. 
  60. 55. 
  61. 56. 
  62. 57. 
  63. 58. 
  64. 59. 
  65. 60. 
  66. 61. 
  67. 62. 
  68. 63. 
  69. 64. 
  70. 65. 
  71. 66. 
  72. 67. 
  73. 68. 
  74. 69. 
  75. 70. 
  76. 71. 
  77. 72. 
  78. 73. 
  79. 74. 
  80. 75. 
  81. 76. 
  82. 77. 
  83. 78. 
  84. 79. 
  85. 80. 
  86. 81. 
  87. 82. 
  88. 83. 
  89. 84. 
  90. 85. 
  91. 86. 
  92. 87. 
  93. 88. 
  94. 89. 
  95. 90. 
  96. 91. 
  97. 92. 
  98. 93. 
  99. 94. 
  100. 95. 
  101. 96. 
  102. 97. 
  103. 98. 
  104. 99. 
  105. 100. 
  106. 101. 
  107. 102. 
  108. 103. 
  109. 104. 
  110. 105. 
  111. 106. 
  112. 107. 
  113. 108. 
  114. 109. 
  115. 110. 
  116. 111. 
  117. 112. 
  118. 113. 
  119. 114. 
  120. 115. 
  121. 116. 
  122. 117. 
  123. 118. 
  124. 119. 
  125. 120. 
  126. 121. 
  127. 122. 
  128. 123. 
  129. 124. 
  130. 125. 
  131. 126. 
  132. 127. 
  133.