Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - SierraKen

Pages: [1] 2 3 ... 97
1
Programs / Re: ASCII Draw(BAM program in progress, QB64 version to follow)
« on: April 09, 2022, 08:44:08 pm »
Ah yeah, I know 9 won't work because it uses Windows internal commands. I would think 7 should work though, but I don't know hardly anything about Linux. Sorry they aren't much use. If you want, you can just look at the code and see how I used variables and circles and boxes, etc. You can break it apart if you wish and put it in your own code, etc.

2
Programs / Re: ASCII Draw(BAM program in progress, QB64 version to follow)
« on: April 09, 2022, 08:20:25 pm »
Here is my Paint Pixels 9. It might take awhile to learn, maybe you can learn sections at a time if you want to. It's been a couple years since I made this, using help from this forum, so I myself would have to relearn some of it. It is attached as Paint Pixels 9.zip
Put all the files in the same directory.



3
Programs / Re: ASCII Draw(BAM program in progress, QB64 version to follow)
« on: April 09, 2022, 08:13:11 pm »
Yeah, here's Paint Pixels 7, before I got into using window menus. I can't seem to find 8 or 9 on this forum, but I'll put 9 up after this post if you are interested.

https://qb64forum.alephc.xyz/index.php?topic=1992.msg112372#msg112372

4
Programs / Re: ASCII Draw(BAM program in progress, QB64 version to follow)
« on: April 07, 2022, 05:41:11 pm »
Wow stuff like that is old old school. :) I remember my first online friend made something like that, but the grid was smaller and it wasn't ASCII, instead it was a Sprite Editor, to be used with other games and programs. Nowadays a sprite editor would have to be a bit larger though, because of the larger monitors and better graphics.

5
Programs / Re: Just a silly "Hello World" Marquis
« on: April 06, 2022, 08:33:29 pm »
LOL Steve and B+!

My history of using BASIC is a bit scattered, but here you go:

1987 - Used my friend's Texas Instruments to program with using magazines.
1988 - My parents bought a Franklin 2000 (Apple 2e compatible - which Franklin was sued a bit later by Apple but I never knew about that) from Sears. Remember the HOME command instead of CLS?
1988 - I took 2 programming classes in school, one in High School (Apple 2e BASIC) and one in the summer in college (BASICA on IBM's) (while I was still in High School).
1992 - We sold the Franklin.
1995 - We bought a Pentium 90 with Windows 95 and that is when I met my first online buddies on the comp.lang.basic.misc newsgroup and made my own GeoCities website with my new QBasic programs.
1996 - I found a free small BASIC language with a compiler called ASIC 5.0. It was based a lot on GW-BASIC. I added a lot of these to the old All Basic Code monthly packets and put them on my website.
Then I got bored and didn't like trying to fix programs until midnight all the time so I stopped for awhile.
Around 2005 or so I tried Visual Basic a little bit but not much.
Then finally in 2019 I found QB64! :D

6
Programs / Re: Just a silly "Hello World" Marquis
« on: April 05, 2022, 06:46:33 pm »
That's cool Charlie!

I still remember my first "Hello World" in my High School Apple 2e BASIC class in the 1980's:

10 PRINT "HELLO WORLD"
20 GOTO 10

Muahahahahaha... well, we thought we were cool. :D

7
Programs / Re: B+'s Matrix Rain With World Map Backdrop
« on: April 05, 2022, 01:25:49 pm »
Wow that is a lot faster. Probably has something to do with the graphics card memory.

8
Programs / Re: B+'s Matrix Rain With World Map Backdrop
« on: April 02, 2022, 05:04:54 pm »
You know, it kinda resembles the world, digitally connected through the Internet and non-stop traffic. :)

9
Programs / Re: B+'s Matrix Rain With World Map Backdrop
« on: April 02, 2022, 04:49:32 pm »
Here's an even BETTER version! I inverted the colors to the world map.
B+, I finally figured out why you load the file from within the program, I had no idea that the symbols, letters, and numbers all come from THIS program! LOL Awesome!

Make sure and name it the same as before: Matrix Rain 4 mod by SierraKen.bas

I added a 2 on the world_map.jpg so you can keep both.

Code: QB64: [Select]
  1. _Title "Matrix Rain 4 mod by SierraKen" 'B+ started 2019-03-16
  2. ' from Matrix Rain 2019-03-14
  3. ' or QB64 Purple Rain!
  4.  
  5. '>>> Save this file as: Matrix Rain 4 mod by SierraKen.bas, so the program can load the strings from it.  <<<
  6.  
  7. '2019-03-15 This will attempt to spin the drops as they fall
  8. '2019-03-16  Don't need no damn Character Set.DAT file!!!
  9. '2019-03-16 Ijust want to see the vertical code strings dangle and twist.
  10.  
  11. '2019-03-19 Matrix Rain 4
  12. ' + added randWeight to weight the random sizes chosen so many more on small side than large
  13. ' + draw letters on a transparent background so the background of the letter does not cover
  14. '   the drops behind it.
  15.  
  16. 'Mod by SierraKen - Added World Map as the backdrop. - April 2, 2022.
  17.  
  19. Const xmax = 1500
  20. Const ymax = 659
  21. Const nDrops = 500
  22. Type dropType
  23.     x As Single
  24.     sz As Single
  25.     curY As Integer
  26.     dxs As Single 'direction and change of spin some small fraction of 1, +-1/3, +-1/4, +-1/5...
  28.  
  29. 'SierraKen's World Map code with the array, GET, and DEST ---------------------------------------------
  30. Dim map As Long
  31.  
  32. map& = _LoadImage("world_map2.jpg", 32)
  33. Screen map&
  34. wide& = _Width(map&): deep& = _Height(map&)
  35.  
  36. Dim Array(wide& * deep&) As Long
  37.  
  38. _Source map& 'REQUIRED to GET the proper image area!
  39. Get (0, 0)-(wide& - 1, deep& - 1), Array(0)
  40.  
  42.  
  43. '-------------------------------------------------------------------------------------------------------
  44.  
  45. 'Screen _NewImage(xmax, ymax, 32)
  46. _ScreenMove 80, 0 'for snap shot
  47. '_FULLSCREEN 'as screen saver
  48.  
  49. ReDim Shared fileStrings$(1000) 'container for these program lines that will be dangling
  50. Open "Matrix Rain 4 mod by SierraKen.bas" For Input As #1
  52.     Line Input #1, fs$
  53.     If Len(LTrim$(fs$)) <> 0 Then 'less empty spaces
  54.         fileStrings$(i) = LTrim$(fs$)
  55.         i = i + 1
  56.     End If
  59. ReDim _Preserve fileStrings$(i - 1)
  60. ' check loading
  61. 'FOR i = 0 TO UBOUND(fileStrings$)
  62. '    PRINT i, fileStrings$(i)
  63. 'NEXT
  64. 'END
  65.  
  66. 'setup drops
  67. Dim Shared drop(nDrops) As dropType
  68. Dim Shared s$(nDrops)
  69.  
  70. For i = 0 To nDrops
  71.     newDrop i, 1
  73.  
  74. While _KeyDown(27) = 0
  75.     Cls
  76.     'SierraKen's PUT statement ----------------------------
  77.     Put (0, 0), Array(0), PSet , _RGB(0, 0, 0)
  78.     '------------------------------------------------------
  79.  
  80.     For i = 0 To nDrops
  81.         drawDrop (i)
  82.         drop(i).curY = drop(i).curY + 1
  83.         If drop(i).curY > Len(s$(i)) Then newDrop i, 0
  84.     Next
  85.     _Display
  86.     _Limit 25
  88.  
  89. Sub newDrop (i, start)
  90.     drop(i).x = Rnd * xmax 'set location
  91.     drop(i).sz = randWeight(.3, 5, 3) 'set size  weighted on small sizes
  92.     'length of text string can fit on screen
  93.     charLength = ymax \ (drop(i).sz * 16) + 1 'from size determine how many chars fit on screen
  94.     randLine = Int(Rnd * UBound(fileStrings$)) 'pick a random program line
  95.     s$(i) = Mid$(fileStrings$(randLine), 1, charLength) 'here is text string to dangle
  96.     While Len(s$(i)) < charLength
  97.         If randLine + 1 > UBound(fileStrings$) Then randLine = 0 Else randLine = randLine + 1
  98.         s$(i) = Mid$(s$(i) + " : " + fileStrings$(randLine), 1, charLength)
  99.     Wend
  100.     If start <> 0 Then drop(i).curY = Int(Rnd * (charLength)) + 1 Else drop(i).curY = 1 'flat and readable at curY
  101.     drop(i).dxs = 1 / (Int(Rnd * 7) + 3) 'change of spin rate +-1/3, +-1/4, ... +-1/9
  102.     If Rnd < .5 Then drop(i).dxs = -drop(i).dxs
  104.  
  105. Sub drawDrop (i)
  106.     For j = 1 To drop(i).curY
  107.         d = drop(i).curY - j
  108.         If d = 0 Then
  109.             c~& = _RGBA32(0, 255, 0, 225)
  110.         ElseIf d = 1 Then
  111.             c~& = _RGBA32(50, 255, 0, 205)
  112.         ElseIf d = 2 Then
  113.             c~& = _RGBA32(25, 255, 0, 180)
  114.         ElseIf d >= 3 Then
  115.             c~& = _RGBA32(0, 255, 0, 190 - d * 5)
  116.         End If
  117.         rot = 1: dir = -1
  118.         For k = 0 To d
  119.             rot = rot + drop(i).dxs * dir
  120.             If rot > 1 Then dir = -1 * dir: rot = 1 + drop(i).dxs * dir
  121.             If rot < -1 Then dir = dir * -1: rot = -1 + drop(i).dxs * dir
  122.         Next
  123.         drwChar Mid$(s$(i), j, 1), c~&, drop(i).x + 4 * drop(i).sz, drop(i).sz * 16 * (j - 1) + 8 * drop(i).sz, rot * drop(i).sz, drop(i).sz, 0
  124.     Next
  126.  
  127. Sub drwChar (char$, c As _Unsigned Long, midX, midY, xScale, yScale, Rotation) 'what ever the present color is set at
  128.     I& = _NewImage(8, 16, 32)
  129.     _Dest I&
  130.     Color c, _RGBA32(0, 0, 0, 0)
  131.     _PrintString (0, 0), char$
  132.     _Dest 0
  133.     RotoZoom2 midX, midY, I&, xScale, yScale, Rotation
  134.     _FreeImage I&
  136.  
  137. Sub RotoZoom2 (X As Long, Y As Long, Image As Long, xScale As Single, yScale As Single, Rotation As Single)
  138.     Dim px(3) As Single: Dim py(3) As Single
  139.     W& = _Width(Image&): H& = _Height(Image&)
  140.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
  141.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
  142.     sinr! = Sin(-Rotation): cosr! = Cos(-Rotation)
  143.     For i& = 0 To 3
  144.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * xScale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * yScale + Y
  145.         px(i&) = x2&: py(i&) = y2&
  146.     Next
  147.     _MapTriangle (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& To(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
  148.     _MapTriangle (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& To(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
  150.  
  151. Function randWeight (manyValue, fewValue, power)
  152.     randWeight = manyValue + Rnd ^ power * (fewValue - manyValue)
  154.  

10
Programs / Re: B+'s Matrix Rain With World Map Backdrop
« on: April 02, 2022, 04:27:33 pm »
Here is a green version. I like it better myself because it's easier on the eyes with the white map background.
I'll add the map file also again.
Make sure and name this also: Matrix Rain 4 mod by SierraKen.bas

Code: QB64: [Select]
  1. _Title "Matrix Rain 4 mod by SierraKen" 'B+ started 2019-03-16
  2. ' from Matrix Rain 2019-03-14
  3. ' or QB64 Purple Rain!
  4.  
  5. '>>> Save this file as: Matrix Rain 4 mod by SierraKen.bas, so the program can load the strings from it.  <<<
  6.  
  7. '2019-03-15 This will attempt to spin the drops as they fall
  8. '2019-03-16  Don't need no damn Character Set.DAT file!!!
  9. '2019-03-16 Ijust want to see the vertical code strings dangle and twist.
  10.  
  11. '2019-03-19 Matrix Rain 4
  12. ' + added randWeight to weight the random sizes chosen so many more on small side than large
  13. ' + draw letters on a transparent background so the background of the letter does not cover
  14. '   the drops behind it.
  15.  
  16. 'Mod by SierraKen - Added World Map as the backdrop. - April 2, 2022.
  17.  
  19. Const xmax = 1500
  20. Const ymax = 659
  21. Const nDrops = 500
  22. Type dropType
  23.     x As Single
  24.     sz As Single
  25.     curY As Integer
  26.     dxs As Single 'direction and change of spin some small fraction of 1, +-1/3, +-1/4, +-1/5...
  28.  
  29. 'SierraKen's World Map code with the array, GET, and DEST ---------------------------------------------
  30. Dim map As Long
  31.  
  32. map& = _LoadImage("world_map.jpg", 32)
  33. Screen map&
  34. wide& = _Width(map&): deep& = _Height(map&)
  35.  
  36. Dim Array(wide& * deep&) As Long
  37.  
  38. _Source map& 'REQUIRED to GET the proper image area!
  39. Get (0, 0)-(wide& - 1, deep& - 1), Array(0)
  40.  
  42.  
  43. '-------------------------------------------------------------------------------------------------------
  44.  
  45. 'Screen _NewImage(xmax, ymax, 32)
  46. _ScreenMove 80, 0 'for snap shot
  47. '_FULLSCREEN 'as screen saver
  48.  
  49. ReDim Shared fileStrings$(1000) 'container for these program lines that will be dangling
  50. Open "Matrix Rain 4 mod by SierraKen.bas" For Input As #1
  52.     Line Input #1, fs$
  53.     If Len(LTrim$(fs$)) <> 0 Then 'less empty spaces
  54.         fileStrings$(i) = LTrim$(fs$)
  55.         i = i + 1
  56.     End If
  59. ReDim _Preserve fileStrings$(i - 1)
  60. ' check loading
  61. 'FOR i = 0 TO UBOUND(fileStrings$)
  62. '    PRINT i, fileStrings$(i)
  63. 'NEXT
  64. 'END
  65.  
  66. 'setup drops
  67. Dim Shared drop(nDrops) As dropType
  68. Dim Shared s$(nDrops)
  69.  
  70. For i = 0 To nDrops
  71.     newDrop i, 1
  73.  
  74. While _KeyDown(27) = 0
  75.     Cls
  76.     'SierraKen's PUT statement ----------------------------
  77.     Put (0, 0), Array(0), PSet , _RGB(0, 0, 0)
  78.     '------------------------------------------------------
  79.  
  80.     For i = 0 To nDrops
  81.         drawDrop (i)
  82.         drop(i).curY = drop(i).curY + 1
  83.         If drop(i).curY > Len(s$(i)) Then newDrop i, 0
  84.     Next
  85.     _Display
  86.     _Limit 25
  88.  
  89. Sub newDrop (i, start)
  90.     drop(i).x = Rnd * xmax 'set location
  91.     drop(i).sz = randWeight(.3, 5, 3) 'set size  weighted on small sizes
  92.     'length of text string can fit on screen
  93.     charLength = ymax \ (drop(i).sz * 16) + 1 'from size determine how many chars fit on screen
  94.     randLine = Int(Rnd * UBound(fileStrings$)) 'pick a random program line
  95.     s$(i) = Mid$(fileStrings$(randLine), 1, charLength) 'here is text string to dangle
  96.     While Len(s$(i)) < charLength
  97.         If randLine + 1 > UBound(fileStrings$) Then randLine = 0 Else randLine = randLine + 1
  98.         s$(i) = Mid$(s$(i) + " : " + fileStrings$(randLine), 1, charLength)
  99.     Wend
  100.     If start <> 0 Then drop(i).curY = Int(Rnd * (charLength)) + 1 Else drop(i).curY = 1 'flat and readable at curY
  101.     drop(i).dxs = 1 / (Int(Rnd * 7) + 3) 'change of spin rate +-1/3, +-1/4, ... +-1/9
  102.     If Rnd < .5 Then drop(i).dxs = -drop(i).dxs
  104.  
  105. Sub drawDrop (i)
  106.     For j = 1 To drop(i).curY
  107.         d = drop(i).curY - j
  108.         If d = 0 Then
  109.             c~& = _RGBA32(0, 255, 0, 225)
  110.         ElseIf d = 1 Then
  111.             c~& = _RGBA32(50, 255, 0, 205)
  112.         ElseIf d = 2 Then
  113.             c~& = _RGBA32(25, 255, 0, 180)
  114.         ElseIf d >= 3 Then
  115.             c~& = _RGBA32(0, 255, 0, 190 - d * 5)
  116.         End If
  117.         rot = 1: dir = -1
  118.         For k = 0 To d
  119.             rot = rot + drop(i).dxs * dir
  120.             If rot > 1 Then dir = -1 * dir: rot = 1 + drop(i).dxs * dir
  121.             If rot < -1 Then dir = dir * -1: rot = -1 + drop(i).dxs * dir
  122.         Next
  123.         drwChar Mid$(s$(i), j, 1), c~&, drop(i).x + 4 * drop(i).sz, drop(i).sz * 16 * (j - 1) + 8 * drop(i).sz, rot * drop(i).sz, drop(i).sz, 0
  124.     Next
  126.  
  127. Sub drwChar (char$, c As _Unsigned Long, midX, midY, xScale, yScale, Rotation) 'what ever the present color is set at
  128.     I& = _NewImage(8, 16, 32)
  129.     _Dest I&
  130.     Color c, _RGBA32(0, 0, 0, 0)
  131.     _PrintString (0, 0), char$
  132.     _Dest 0
  133.     RotoZoom2 midX, midY, I&, xScale, yScale, Rotation
  134.     _FreeImage I&
  136.  
  137. Sub RotoZoom2 (X As Long, Y As Long, Image As Long, xScale As Single, yScale As Single, Rotation As Single)
  138.     Dim px(3) As Single: Dim py(3) As Single
  139.     W& = _Width(Image&): H& = _Height(Image&)
  140.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
  141.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
  142.     sinr! = Sin(-Rotation): cosr! = Cos(-Rotation)
  143.     For i& = 0 To 3
  144.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * xScale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * yScale + Y
  145.         px(i&) = x2&: py(i&) = y2&
  146.     Next
  147.     _MapTriangle (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& To(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
  148.     _MapTriangle (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& To(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
  150.  
  151. Function randWeight (manyValue, fewValue, power)
  152.     randWeight = manyValue + Rnd ^ power * (fewValue - manyValue)
  154.  
  155.  


11
Programs / B+'s Matrix Rain With World Map Backdrop
« on: April 02, 2022, 03:17:31 pm »
Almost all of this code is from B+'s Matrix Rain 4. I tried to find the original post but one link didn't work anymore. Anyhow, for 2 days I've tried to add a world map as the backdrop to it and  finally succeeded using GET and PUT from the QB64 Wiki pages. I remembered that back in the 1990's I used to use XOR to make a background image with moving graphics over it. But instead of having to use XOR, DEST works pretty similar, with PUT and GET. Here is the code, photo, and the required world_map.jpg needed in the same folder as the code. I tried to section-off where I added my own code to this. Thank you B+!

Make sure and name this file, it won't work if you don't: Matrix Rain 4 mod by SierraKen.bas

Code: QB64: [Select]
  1. _Title "Matrix Rain 4 mod by SierraKen" 'B+ started 2019-03-16
  2. ' from Matrix Rain 2019-03-14
  3. ' or QB64 Purple Rain!
  4.  
  5. '>>> Save this file as: Matrix Rain 4 mod by SierraKen.bas, so the program can load the strings from it.  <<<
  6.  
  7. '2019-03-15 This will attempt to spin the drops as they fall
  8. '2019-03-16  Don't need no damn Character Set.DAT file!!!
  9. '2019-03-16 Ijust want to see the vertical code strings dangle and twist.
  10.  
  11. '2019-03-19 Matrix Rain 4
  12. ' + added randWeight to weight the random sizes chosen so many more on small side than large
  13. ' + draw letters on a transparent background so the background of the letter does not cover
  14. '   the drops behind it.
  15.  
  16. 'Mod by SierraKen - Added World Map as the backdrop. - April 2, 2022.
  17.  
  19. Const xmax = 1500
  20. Const ymax = 659
  21. Const nDrops = 500
  22. Type dropType
  23.     x As Single
  24.     sz As Single
  25.     curY As Integer
  26.     dxs As Single 'direction and change of spin some small fraction of 1, +-1/3, +-1/4, +-1/5...
  28.  
  29. 'SierraKen's World Map code with the array, GET, and DEST ---------------------------------------------
  30. Dim map As Long
  31.  
  32. map& = _LoadImage("world_map.jpg", 32)
  33. Screen map&
  34. wide& = _Width(map&): deep& = _Height(map&)
  35.  
  36. Dim Array(wide& * deep&) As Long
  37.  
  38. _Source map& 'REQUIRED to GET the proper image area!
  39. Get (0, 0)-(wide& - 1, deep& - 1), Array(0)
  40.  
  42.  
  43. '-------------------------------------------------------------------------------------------------------
  44.  
  45. 'Screen _NewImage(xmax, ymax, 32)
  46. _ScreenMove 80, 0 'for snap shot
  47. '_FULLSCREEN 'as screen saver
  48.  
  49. ReDim Shared fileStrings$(1000) 'container for these program lines that will be dangling
  50.  
  51. 'Changed this name. ----------------------------------------
  52. Open "Matrix Rain 4 mod by SierraKen.bas" For Input As #1
  53. '----------------------------------------------------------------
  55.     Line Input #1, fs$
  56.     If Len(LTrim$(fs$)) <> 0 Then 'less empty spaces
  57.         fileStrings$(i) = LTrim$(fs$)
  58.         i = i + 1
  59.     End If
  62. ReDim _Preserve fileStrings$(i - 1)
  63. ' check loading
  64. 'FOR i = 0 TO UBOUND(fileStrings$)
  65. '    PRINT i, fileStrings$(i)
  66. 'NEXT
  67. 'END
  68.  
  69. 'setup drops
  70. Dim Shared drop(nDrops) As dropType
  71. Dim Shared s$(nDrops)
  72.  
  73. For i = 0 To nDrops
  74.     newDrop i, 1
  76.  
  77. While _KeyDown(27) = 0
  78.     Cls
  79.     'SierraKen's PUT statement ----------------------------
  80.     Put (0, 0), Array(0), PSet , _RGB(0, 0, 0)
  81.     '------------------------------------------------------
  82.  
  83.     For i = 0 To nDrops
  84.         drawDrop (i)
  85.         drop(i).curY = drop(i).curY + 1
  86.         If drop(i).curY > Len(s$(i)) Then newDrop i, 0
  87.     Next
  88.     _Display
  89.     _Limit 25
  91.  
  92. Sub newDrop (i, start)
  93.     drop(i).x = Rnd * xmax 'set location
  94.     drop(i).sz = randWeight(.3, 5, 3) 'set size  weighted on small sizes
  95.     'length of text string can fit on screen
  96.     charLength = ymax \ (drop(i).sz * 16) + 1 'from size determine how many chars fit on screen
  97.     randLine = Int(Rnd * UBound(fileStrings$)) 'pick a random program line
  98.     s$(i) = Mid$(fileStrings$(randLine), 1, charLength) 'here is text string to dangle
  99.     While Len(s$(i)) < charLength
  100.         If randLine + 1 > UBound(fileStrings$) Then randLine = 0 Else randLine = randLine + 1
  101.         s$(i) = Mid$(s$(i) + " : " + fileStrings$(randLine), 1, charLength)
  102.     Wend
  103.     If start <> 0 Then drop(i).curY = Int(Rnd * (charLength)) + 1 Else drop(i).curY = 1 'flat and readable at curY
  104.     drop(i).dxs = 1 / (Int(Rnd * 7) + 3) 'change of spin rate +-1/3, +-1/4, ... +-1/9
  105.     If Rnd < .5 Then drop(i).dxs = -drop(i).dxs
  107.  
  108. Sub drawDrop (i)
  109.     For j = 1 To drop(i).curY
  110.         d = drop(i).curY - j
  111.         If d = 0 Then
  112.             c~& = _RGBA32(255, 100, 255, 225)
  113.         ElseIf d = 1 Then
  114.             c~& = _RGBA32(255, 50, 255, 205)
  115.         ElseIf d = 2 Then
  116.             c~& = _RGBA32(255, 25, 255, 180)
  117.         ElseIf d >= 3 Then
  118.             c~& = _RGBA32(255, 0, 255, 190 - d * 5)
  119.         End If
  120.         rot = 1: dir = -1
  121.         For k = 0 To d
  122.             rot = rot + drop(i).dxs * dir
  123.             If rot > 1 Then dir = -1 * dir: rot = 1 + drop(i).dxs * dir
  124.             If rot < -1 Then dir = dir * -1: rot = -1 + drop(i).dxs * dir
  125.         Next
  126.         drwChar Mid$(s$(i), j, 1), c~&, drop(i).x + 4 * drop(i).sz, drop(i).sz * 16 * (j - 1) + 8 * drop(i).sz, rot * drop(i).sz, drop(i).sz, 0
  127.     Next
  129.  
  130. Sub drwChar (char$, c As _Unsigned Long, midX, midY, xScale, yScale, Rotation) 'what ever the present color is set at
  131.     I& = _NewImage(8, 16, 32)
  132.     _Dest I&
  133.     Color c, _RGBA32(0, 0, 0, 0)
  134.     _PrintString (0, 0), char$
  135.     _Dest 0
  136.     RotoZoom2 midX, midY, I&, xScale, yScale, Rotation
  137.     _FreeImage I&
  139.  
  140. Sub RotoZoom2 (X As Long, Y As Long, Image As Long, xScale As Single, yScale As Single, Rotation As Single)
  141.     Dim px(3) As Single: Dim py(3) As Single
  142.     W& = _Width(Image&): H& = _Height(Image&)
  143.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
  144.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
  145.     sinr! = Sin(-Rotation): cosr! = Cos(-Rotation)
  146.     For i& = 0 To 3
  147.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * xScale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * yScale + Y
  148.         px(i&) = x2&: py(i&) = y2&
  149.     Next
  150.     _MapTriangle (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& To(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
  151.     _MapTriangle (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& To(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
  153.  
  154. Function randWeight (manyValue, fewValue, power)
  155.     randWeight = manyValue + Rnd ^ power * (fewValue - manyValue)
  157.  

12
Programs / Re: Easter Egg Decorating
« on: April 01, 2022, 11:49:51 pm »
Awesome stuff B+. Way beyond what I know. I'm still learning the basics of the Matrix example Steve posted.

13
Programs / Re: Easter Egg Decorating
« on: April 01, 2022, 11:06:23 pm »
Dang B+, you surprise me all the time. I wasted a couple hours trying to figure out how to make the Matrix symbols flow over a map of the world, but the map always disappears because of the LINE command. LOL I think it's impossible, even with the BLEND command. I tried DEST and SOURCE in different places, etc, no luck. The best I could do is show the map and make the symbols go over it but without deleting anything, so eventually the symbols fill up the screen.

14
Programs / Re: Easter Egg Decorating
« on: April 01, 2022, 01:40:24 pm »
ROFL.... you might chuckle even more to find out that I'm a preacher at my Christian church. :)

Your other one is awesome! I might have to use your Matrix code on stuff sometimes.

15
Programs / Re: Easter Egg Decorating
« on: April 01, 2022, 01:29:24 pm »
Steve I found the problem, I accidentally didn't copy/paste the first line WorkScreen = _NewImage(800, 800, 32)   
LOL DOH.
I'll try your other one now.

Pages: [1] 2 3 ... 97