home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_1 / softstep / softstep3.msi / Data1.cab / draw4balls1.ufn < prev    next >
Text File  |  2001-06-30  |  2KB  |  133 lines
  1. 0
  2. 0
  3. 0
  4. 0
  5. 0. 
  6. 1. 
  7. 2. Initialize = V0.(10), V1.(10),     ; initialize starting X, Y~v4.(12), v5.(12),     ; initialize ball size~switch(v2, 0, me+4)   ; do the initialize-once stuff~v2.(1), v3.(1),       ; initialize direction flags~PixPenColor(128),~PixFillColor(255),~PixFillStyle(0),~PixPenWidth(1),~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(v9), PixAutoRepaint(0)~PixEllipse(v0, v1, v4, v5),  ; erase old~switch((v6<>in3) or (v7<>in4), me+1, 0) ; change size~e.(Edge(v0, v1, v4, v5, PixFrameWidth, PixFrameHeight)), ; check edges~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, in3)+4, FetchX(0, in4)+4),~PixPatternSet(0, 0, 0),~PixShapeSet(1, 0, 1, rgb(128,128,128))~PixShape(0, 0, PixFrameWidth, PixFrameHeight, 2000)
  11. 6. Initialize Once = nLED(4),~PixNumFrames(PixMaxFrame+1), ~v9.(PixMaxFrame), pixactive(v9),  ; v9 is this module's frame~PixMove(v9 * 100,20), ~pixon, pixontop(1),~MakeXTable(0, 300), ; initialize translation table for frame size~ex(me-1), ; set frame size~ToolTip(,"Step X", "Step Y", "Frame Width", "Frame Height")~numlabel(v9)~
  12. 7. 
  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.