Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: carloscordeiro on January 01, 2021, 08:33:28 pm

Title: reduce numbers of: for. next
Post by: carloscordeiro on January 01, 2021, 08:33:28 pm
Code: QB64: [Select]
  1. _TITLE "Qbasic 64"
  2. SCREEN _NEWIMAGE(920, 740, 256)
  3. _DELAY .25
  5.  
  6. 'Moldura...
  7. LINE (0, 0)-(929, 719), 11, B 'Moldura inteira
  8. LINE (1, 1)-(928, 718), 11, B
  9. LINE (2, 2)-(927, 717), 11, B
  10. LINE (3, 3)-(926, 716), 11, B
  11. LINE (4, 4)-(925, 715), 11, B
  12.  
  13. LINE (927, 40)-(2, 40), 11, B 'Linha Horizontal
  14. LINE (927, 41)-(2, 41), 11, B
  15. 'LINE (817, 45)-(2, 45), 11, B
  16.  
  17. 'Mostra Data
  18. d$ = MID$(DATE$, 1, 3)
  19. c$ = MID$(DATE$, 4, 3)
  20. e$ = MID$(DATE$, 7, 4)
  21. f$ = c$ + d$ + e$
  22. COLOR 11: LOCATE 2, 40: PRINT "* * * Repeated dozens  * * *"
  24. LOCATE 2, 4: PRINT f$: COLOR 7
  25. '----------------------------------------------------------------------------
  26.  
  27.  
  28. DIM n(1 TO 3000) AS STRING * 41 ' Is this variable declared correctly?
  29. DIM nt(1 TO 3000) AS STRING * 41 ' Is this variable declared correctly?
  30. DIM total AS _INTEGER64 ' Is this variable declared correctly?
  31. DIM ei AS _INTEGER64 ' Is this variable declared correctly?
  32. DIM v AS _INTEGER64 ' Is this variable declared correctly?
  33. DIM b AS _INTEGER64 ' Is this variable declared correctly?
  34. DIM r AS _INTEGER64 ' Is this variable declared correctly?
  35. DIM t AS _INTEGER64 ' Is this variable declared correctly?
  36.  
  37. 'Is there a need to declare all variables used in Qbasic 64?
  38.  
  39.  
  40. OPEN "complete.txt" FOR INPUT AS #1
  41. total = LOF(1) \ 41
  42. COLOR 15: LOCATE 4, 3: PRINT "Number of records =>"; total: COLOR 7
  43. FOR t = 1 TO total
  44.     LINE INPUT #1, n$(t)
  47.  
  48.  
  49. FOR r = 1 TO total '   Put the number 11 in order
  50.     FOR ei = 1 TO total - 1
  51.         IF VAL(MID$(n$(ei), 14, 3)) > VAL(MID$(n$(ei + 1), 14, 3)) THEN
  52.             SWAP n$(ei), n$(ei + 1)
  53.         END IF
  54.     NEXT ei
  56.  
  57. v = 5
  58. FOR b = total TO total - 38 STEP -1 ' Sort by highest number of times
  59.     v = v + 1
  60.     COLOR 15: LOCATE v, 3: PRINT LEFT$(n$(b), 4); " => ";: COLOR 11: PRINT ; MID$(n$(b), 9, 8);: COLOR 29: PRINT " - Times"
  62.  
  63. FOR r = 1 TO total 'Put the number 12 in order
  64.     FOR ei = 1 TO total - 1
  65.         IF VAL(MID$(n$(ei), 23, 2)) > VAL(MID$(n$(ei + 1), 23, 2)) THEN
  66.             SWAP n$(ei), n$(ei + 1)
  67.         END IF
  68.     NEXT ei
  70.  
  71. v = 5
  72. FOR b = total TO total - 38 STEP -1 'Sort by highest number of times
  73.     v = v + 1
  74.     COLOR 15: LOCATE v, 31: PRINT LEFT$(n$(b), 4); " => ";: COLOR 12: PRINT MID$(n$(b), 18, 7);: COLOR 29: PRINT " - Times"
  76.  
  77. FOR r = 1 TO total 'Put the number 13 in order
  78.     FOR ei = 1 TO total - 1
  79.         IF VAL(MID$(n$(ei), 31, 2)) > VAL(MID$(n$(ei + 1), 31, 2)) THEN
  80.             SWAP n$(ei), n$(ei + 1)
  81.         END IF
  82.     NEXT ei
  84.  
  85. v = 5
  86. FOR b = total TO total - 38 STEP -1 'Sort by highest number of times
  87.     v = v + 1
  88.     COLOR 15: LOCATE v, 58: PRINT LEFT$(n$(b), 4); " => ";: COLOR 13: PRINT MID$(n$(b), 26, 7);: COLOR 29: PRINT " - Times"
  90.  
  91. FOR r = 1 TO total 'Put the number 14 in order
  92.     FOR ei = 1 TO total
  93.         IF VAL(MID$(n$(ei), 39, 2)) > VAL(MID$(n$(ei + 1), 39, 2)) THEN
  94.             SWAP n$(ei), n$(ei + 1)
  95.         END IF
  96.     NEXT ei
  98.  
  99. v = 5
  100. FOR b = total TO total - 38 STEP -1 'Sort by highest number of times
  101.     v = v + 1
  102.     COLOR 15: LOCATE v, 85: PRINT LEFT$(n$(b), 4); " => ";: COLOR 14: PRINT MID$(n$(b), 34, 6);: COLOR 29: PRINT " - Times"

Hi Bplus,
Happy New Year to you and everyone on the forum.

I come again to ask you an idea without sub. To to decrease the number of for ... next of the code that I made.
They are making the code slow. for excess of repeating the same thing.

I want to remind you that this code is similar to another one that you solved .: https://www.qb64.org/forum/index.php?topic=3209.msg124899#msg124899

I don't want association but to leave it faster.

In the file complete.txt, there are 2120 lines. Each line has 4 numbers from 11 to 14.

Each number has a result. This result is the repetition of times of himself.

Here is an example of the complete.txt file.

0001 => 11 = 208 12 = 38 13 = 04 14 = 0
0002 => 11 = 181 12 = 35 13 = 06 14 = 0
0003 => 11 = 178 12 = 41 13 = 02 14 = 0
0004 => 11 = 188 12 = 41 13 = 03 14 = 0

I believe, that this time, it is more explained for a better understanding.

Carlos.
Title: Re: reduce numbers of: for. next
Post by: bplus on January 01, 2021, 10:15:05 pm
Hi Carlos, happy New Year!

I am still working on a version of TTT that ARB got me wondering about. I'll be back to this tomorrow, maybe really late tonight.

Maybe someone else can work it out before me :)
Title: Re: reduce numbers of: for. next
Post by: bplus on January 02, 2021, 02:09:08 am
Quote
I come again to ask you an idea without sub.

Sorry, if you want kick-butt time you need a proper sort routine! Here is that!

Code: QB64: [Select]
  1. _TITLE "carlos Qbasic 64 mod bplus 2021-01-02  Any key to page down the whole table!"
  2. SCREEN _NEWIMAGE(930, 600, 32)
  3. _DELAY .25
  5.  
  6. 'Is there a need to declare all variables used in Qbasic 64?   >>>> don't have to  unless use OPTION _EXPLICT,  but good form!
  7.  
  8. DEFLNG A-Z '   make everything long unless $ for string
  9. TYPE record
  10.     index AS LONG
  11.     value AS LONG
  13. REDIM n11(1 TO 2120) AS record, n12(1 TO 2120) AS record, n13(1 TO 2120) AS record, n14(1 TO 2120) AS record
  14. OPEN "complete.txt" FOR INPUT AS #1
  15. total = LOF(1) \ 41
  16. FOR t = 1 TO 2120
  17.     LINE INPUT #1, fline$
  18.     n11(t).index = t: n11(t).value = VAL(MID$(fline$, 14, 3))
  19.     n12(t).index = t: n12(t).value = VAL(MID$(fline$, 23, 2))
  20.     n13(t).index = t: n13(t).value = VAL(MID$(fline$, 31, 2))
  21.     n14(t).index = t: n14(t).value = VAL(MID$(fline$, 39, 2))
  24. QuickSort 1, 2120, n11()
  25. QuickSort 1, 2120, n12()
  26. QuickSort 1, 2120, n13()
  27. QuickSort 1, 2120, n14()
  28. GOSUB drawFrame
  29. FOR i = 1 TO 2120
  30.     COLOR &HFFCCCCCC
  31.     LOCATE , 3: PRINT RIGHT$(SPC(4) + STR$(i), 4);
  32.     COLOR &HFFAAAAFF
  33.     LOCATE , 15: PRINT "N11: "; RIGHT$(SPC(4) + STR$(n11(i).index), 4); " = "; RIGHT$(SPC(3) + STR$(n11(i).value), 3);
  34.     COLOR &HFFFF0000
  35.     LOCATE , 40
  36.     PRINT "N12: "; RIGHT$(SPC(4) + STR$(n12(i).index), 4); " = "; RIGHT$(SPC(3) + STR$(n12(i).value), 3);
  37.     COLOR &HFFFFFF00
  38.     LOCATE , 65
  39.     PRINT "N13: "; RIGHT$(SPC(4) + STR$(n13(i).index), 4); " = "; RIGHT$(SPC(3) + STR$(n13(i).value), 3);
  40.     COLOR &HFF8800FF
  41.     LOCATE , 90
  42.     PRINT "N14: "; RIGHT$(SPC(4) + STR$(n14(i).index), 4); " = "; RIGHT$(SPC(3) + STR$(n14(i).value), 3)
  43.     IF i MOD 25 = 24 THEN SLEEP: CLS: GOSUB drawFrame
  47.  
  48. drawFrame:
  49. 'Moldura...
  50. LINE (0, 0)-(929, 599), &HFFCCCCCC, B 'Moldura inteira
  51. LINE (1, 1)-(928, 598), &HFFCCCCCC, B
  52. LINE (2, 2)-(927, 597), &HFFCCCCCC, B
  53. LINE (3, 3)-(926, 596), &HFFCCCCCC, B
  54. LINE (4, 4)-(925, 595), &HFFCCCCCC, B
  55.  
  56. LINE (927, 40)-(2, 40), &HFFCCCCCC, B 'Linha Horizontal
  57. LINE (927, 41)-(2, 41), &HFFCCCCCC, B
  58.  
  59. 'Mostra Data
  60. d$ = MID$(DATE$, 1, 3)
  61. c$ = MID$(DATE$, 4, 3)
  62. e$ = MID$(DATE$, 7, 4)
  63. f$ = c$ + d$ + e$
  64. COLOR &HFFCCCCCC: LOCATE 2, 40: PRINT "* * * Repeated dozens  * * *"
  66. LOCATE 2, 4: PRINT f$
  67. LOCATE 4, 3: PRINT "Number of records =>"; total
  70.  
  71. SUB QuickSort (start AS LONG, finish AS LONG, array() AS record)
  72.     DIM Hi AS LONG, Lo AS LONG, Middle AS SINGLE
  73.     Hi = finish: Lo = start
  74.     Middle = array((Lo + Hi) / 2).value 'find middle of array
  75.     DO
  76.         DO WHILE array(Lo).value > Middle: Lo = Lo + 1: LOOP
  77.         DO WHILE array(Hi).value < Middle: Hi = Hi - 1: LOOP
  78.         IF Lo <= Hi THEN
  79.             SWAP array(Lo), array(Hi)
  80.             Lo = Lo + 1: Hi = Hi - 1
  81.         END IF
  82.     LOOP UNTIL Lo > Hi
  83.     IF Hi > start THEN CALL QuickSort(start, Hi, array())
  84.     IF Lo < finish THEN CALL QuickSort(Lo, finish, array())
  86.  
  87.  
  88.  

 


EDIT: fixed alignment of numbers
Title: Re: reduce numbers of: for. next
Post by: carloscordeiro on January 02, 2021, 06:20:57 pm
Hi Bplus
I am very old to work with routines.
I always liked simple code ...
Your code is excellent, very fast compared to mine, full of FOR ... NEXT.
I saw many lines in your classification routine that I can take advantage of in another way, without many FOR.NEXT.
Since I registered in this forum, I have learned and enjoyed many lines of your codes and also Mr. SMcNeill codes, in the first posts.
Again, thanks for replying

Carlos
Title: Re: reduce numbers of: for. next
Post by: carloscordeiro on January 06, 2021, 08:44:07 pm
Hi Bplus
good evening

I was able to create a code without SUB, copying several lines of its routine classification code.

I want to point out that you are very skilled at creating code.
I really like the lines you create.

I put a timer to compare the execution time. I was wondering if my code's time was approaching with yours.

Of course, that was just out of curiosity.

Nowhere has mine come close to yours in terms of execution time.
However, it is much better than the first one I did, full of FOR ... NEXT.

I want to end with a question:
Why did the COLOR statement change the value to hexadecimal?

Carlos
Code: QB64: [Select]
  1. _TITLE "Qbasic 64  Version Version without SUB, copied several lines of the Bplus friend code."
  2. SCREEN _NEWIMAGE(930, 600, 32)
  3. _DELAY .25
  5. REDIM n11(0 TO 1, 1 TO 2120)
  6. REDIM n12(0 TO 1, 1 TO 2120)
  7. REDIM n13(0 TO 1, 1 TO 2120)
  8. REDIM n14(0 TO 1, 1 TO 2120)
  9.  
  11. td# = TIMER(.001)
  12. PRINT td#
  13.  
  14. OPEN "complete.txt" FOR INPUT AS #1
  15. total = LOF(1) \ 41
  16. FOR t = 1 TO 2120
  17.     LINE INPUT #1, fline$
  18.     n11(0, t) = t: n11(1, t) = VAL(MID$(fline$, 14, 3))
  19.     n12(0, t) = t: n12(1, t) = VAL(MID$(fline$, 23, 2))
  20.     n13(0, t) = t: n13(1, t) = VAL(MID$(fline$, 31, 2))
  21.     n14(0, t) = t: n14(1, t) = VAL(MID$(fline$, 39, 2))
  24.  
  25. GOSUB drawFrame
  26.  
  27. FOR i = 1 TO 2119
  28.     FOR j = i + 1 TO 2120
  29.         IF n11(1, i) < n11(1, j) THEN
  30.             SWAP n11(0, j), n11(0, i)
  31.             SWAP n11(1, j), n11(1, i)
  32.         END IF
  33.         IF n12(1, i) < n12(1, j) THEN
  34.             SWAP n12(0, j), n12(0, i)
  35.             SWAP n12(1, j), n12(1, i)
  36.         END IF
  37.         IF n13(1, i) < n13(1, j) THEN
  38.             SWAP n13(0, j), n13(0, i)
  39.             SWAP n13(1, j), n13(1, i)
  40.         END IF
  41.         IF n14(1, i) < n14(1, j) THEN
  42.             SWAP n14(0, j), n14(0, i)
  43.             SWAP n14(1, j), n14(1, i)
  44.         END IF
  45.     NEXT
  47.  
  48. FOR i = 1 TO 2120
  49.     COLOR &HFFCCCCCC
  50.     LOCATE , 3: PRINT RIGHT$(SPC(3) + STR$(i), 4);
  51.     COLOR &HFFAAAAFF
  52.     LOCATE , 15: PRINT "N11: "; RIGHT$("0000" + LTRIM$(STR$(n11(0, i))), 4); " ="; n11(1, i);
  53.     COLOR &HFFFF0000
  54.     LOCATE , 40
  55.     PRINT "N12: "; RIGHT$("0000" + LTRIM$(STR$(n12(0, i))), 4); " ="; n12(1, i);
  56.     COLOR &HFFFFFF00
  57.     LOCATE , 65
  58.     PRINT "N13: "; RIGHT$("0000" + LTRIM$(STR$(n11(0, i))), 4); " ="; n13(1, i);
  59.     COLOR &HFF8800FF
  60.     LOCATE , 90
  61.     PRINT "N14: "; RIGHT$("0000" + LTRIM$(STR$(n11(0, i))), 4); " ="; n14(1, i)
  62.     'IF i MOD 25 = 24 THEN td# = TIMER(.001): PRINT td#: SLEEP: GOSUB drawFrame
  64.  
  66. drawFrame:
  67. 'Moldura...
  68. LINE (0, 0)-(929, 599), &HFFCCCCCC, B 'Moldura inteira
  69. LINE (1, 1)-(928, 598), &HFFCCCCCC, B
  70. LINE (2, 2)-(927, 597), &HFFCCCCCC, B
  71. LINE (3, 3)-(926, 596), &HFFCCCCCC, B
  72. LINE (4, 4)-(925, 595), &HFFCCCCCC, B
  73.  
  74. LINE (927, 40)-(2, 40), &HFFCCCCCC, B 'Linha Horizontal
  75. LINE (927, 41)-(2, 41), &HFFCCCCCC, B
  76.  
  77. 'Mostra Data
  78. 'd$ = MID$(DATE$, 1, 3)
  79. 'c$ = MID$(DATE$, 4, 3)
  80. 'e$ = MID$(DATE$, 7, 4)
  81. 'f$ = c$ + d$ + e$
  82. COLOR &HFFCCCCCC: LOCATE 2, 40: PRINT "* * * Repeated dozens  * * *"
  84. LOCATE 2, 4: PRINT f$
  85. LOCATE 4, 3: PRINT "Number of records =>"; total
  88.  
  89. ]
Title: Re: reduce numbers of: for. next
Post by: bplus on January 06, 2021, 09:26:42 pm
Quote
Why did the COLOR statement change the value to hexadecimal?

Hi @carloscordeiro,

I changed the colors.

SCREEN _NEWIMAGE(930, 600, 32)  '<<<< the 32 here allows me to use the full blown range of color QB64 is capable of giving us 255 * 255 * 255 colors at 255 transparency levels.

&H FF FF FF FF 'white at full opaque or solid color, no see through

the first set of FF is transparency or lack of 0 is transparent 255 or hex FF is solid
2nd set of FF's are red 0 to 255, or 00 to FF in hex
3rd set of FF's are green 0 to 255 or 00 to FF in hex
4th set of FF's are blue 0 to 255 or 00 toFF in hex

&HFFFFFFFF (white) = _RGB32(255, 255, 255, 255) 

&HFFFFFF00 (yellow  = full red + full green) = _RGB32(255, 255, 0) ' without 4th transparent = 255 default

&HFF0000FF (blue) = _RGB32(0, 0, 255)

half transparent blue &H880000FF or _RGB32(0, 0, 255, 128)

notice alpha = transparent level is on left in the hex number but last on right 4th place in _RGB32(red, green, blue, alpha ) number.

Title: Re: reduce numbers of: for. next
Post by: carloscordeiro on January 07, 2021, 07:31:48 am
Bplus, would it be like this image? Or have more colors in HEX?

You may have already noticed that I love colors. :)
Title: Re: reduce numbers of: for. next
Post by: bplus on January 07, 2021, 10:15:36 am
Quote from: carloscordeiro on January 07, 2021, 07:31:48 am
Bplus, would it be like this image? Or have more colors in HEX?

You may have already noticed that I love colors. :)

Yeah, colors are saver for me for Winters in N. Ohio, USA, we have clouds and occasional snow move in November and do not really leave until April.

Both Hex color method or _RGB32 have 255 * 255 * 255 color mixes = 16,581,375 plus 255 levels of transparencies.

Hex is just a quicker way to input color for me and might be slightly faster compiling as they are constant literals, maybe you'd like _RGB32() better because the numbers are base 10 instead of base 16.

Just waves of color, press spacebar for different patterns.
Code: QB64: [Select]
  1. _TITLE "Wavy with Plama:  Press Spacebar for New Plasma Injection."
  2. ' for QB64 fork (B+=MGA) 2017-05-05
  3. ' Wavy with Plasma Treatment.bas SmallBASIC 0.12.9 (B+=MGA) 2017-05-03
  4. ' from: animated circles started by Admin at SdlBasic 2017-05-03
  5. ' I added Plasma treatment and spacebar  changer
  6.  
  7. ' 2018-08-04 updated with better circle fill
  8.  
  9. '===================================================================
  10.  
  11. ' Instructions: press spacebar for new injection of plasma
  12.  
  13. '==================================================================
  14.  
  16.  
  17. CONST xmax = 1100
  18. CONST ymax = 700
  19. CONST DPI = 3.141516 * 2
  20. CONST PHIDELTA = DPI / 15
  21. CONST PHISTEP = DPI / 50
  22. CONST RADIUS = 20
  23. CONST SMALL_R = 20
  24. CONST DISTANCE = 23
  25. CONST W = xmax
  26. CONST H = ymax
  27.  
  28. SCREEN _NEWIMAGE(xmax, ymax, 32)
  29. _SCREENMOVE (1280 - xmax) / 2 + 30, (760 - ymax) / 2
  31. DIM SHARED pR, pG, pB AS INTEGER
  32. DIM x, y, xball, yball AS INTEGER
  33. DIM current_phi, phiIndex, phi AS DOUBLE
  34. current_phi = 0
  35. cN = 1
  36. resetPlasma
  38.     CLS
  39.     _LIMIT 10
  40.     IF _KEYHIT = 32 THEN cN = 1: resetPlasma
  41.     current_phi = current_phi + PHISTEP
  42.     FOR x = 0 TO (W + RADIUS) STEP DISTANCE
  43.         FOR y = 0 TO (H + RADIUS) STEP DISTANCE
  44.             phiIndex = ((x + y) MOD (2 * W)) / RADIUS
  45.             phi = phiIndex * PHIDELTA + current_phi
  46.             xball = COS(phi) * RADIUS + x
  47.             yball = SIN(phi) * RADIUS + y
  48.             changePlasma
  49.             fcirc xball, yball, SMALL_R
  50.         NEXT
  51.     NEXT
  52.     _DISPLAY
  54.  
  55. SUB changePlasma ()
  56.     cN = cN + 1
  57.     COLOR _RGB(127 + 127 * SIN(pR * cN), 127 + 127 * SIN(pG * cN), 127 + 127 * SIN(pB * cN))
  59.  
  60. SUB resetPlasma ()
  61.     pR = RND: pG = RND: pB = RND
  63.  
  64. 'Steve McNeil's  copied from his forum   note: Radius is too common a name
  65. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG)
  66.     DIM subRadius AS LONG, RadiusError AS LONG
  67.     DIM X AS LONG, Y AS LONG
  68.  
  69.     subRadius = ABS(R)
  70.     RadiusError = -subRadius
  71.     X = subRadius
  72.     Y = 0
  73.  
  74.     IF subRadius = 0 THEN PSET (CX, CY): EXIT SUB
  75.  
  76.     ' Draw the middle span here so we don't draw it twice in the main loop,
  77.     ' which would be a problem with blending turned on.
  78.     LINE (CX - X, CY)-(CX + X, CY), , BF
  79.  
  80.     WHILE X > Y
  81.         RadiusError = RadiusError + Y * 2 + 1
  82.         IF RadiusError >= 0 THEN
  83.             IF X <> Y + 1 THEN
  84.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), , BF
  85.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), , BF
  86.             END IF
  87.             X = X - 1
  88.             RadiusError = RadiusError - X * 2
  89.         END IF
  90.         Y = Y + 1
  91.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), , BF
  92.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), , BF
  93.     WEND
  95.  

Ohpe! here is another, better not get me going on color, hahahah! This is simple demo of what I call plasma.
Code: QB64: [Select]
  1. _TITLE "Scrolling Plasma Lines, press spacebar for new colors" 'B+ 2019-10-09
  2. CONST xmax = 800, ymax = 600
  3. SCREEN _NEWIMAGE(xmax, ymax, 32)
  4. _SCREENMOVE 300, 40
  5. DIM ln(0 TO ymax) AS _UNSIGNED LONG
  6. r = RND ^ 2: g = RND ^ 2: b = RND ^ 2
  8.     IF INKEY$ = " " THEN r = RND ^ 2: g = RND ^ 2: b = RND ^ 2
  9.     FOR i = UBOUND(ln) - 1 TO 0 STEP -1
  10.         ln(i + 1) = ln(i)
  11.         LINE (0, i)-STEP(xmax, 1), ln(i + 1), BF
  12.     NEXT
  13.     ln(0) = _RGB32(127 + 127 * SIN(r * c), 127 + 127 * SIN(g * c), 127 + 127 * SIN(b * c))
  14.     c = c + 1
  15.     _DISPLAY
  16.     _LIMIT 60
  18.  
Title: Re: reduce numbers of: for. next
Post by: carloscordeiro on January 07, 2021, 06:18:11 pm
Bplus, I couldn't find the numerals of each value corresponding to the colors in your two examples.

Would this be the way to know all the corresponding numbers of each _RGB32 () color values? Or do you have a better idea for showing all color values?
Carlos
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(820, 700, 32)
  2.  
  3. FOR i = 1 TO 255
  4.     COLOR _RGB32(i, 255, 255)
  5.     PRINT "Carlos"; i;
  6.  
  7.     COLOR _RGB32(255, i, 255)
  8.     PRINT "Carlos"; i;
  9.  
  10.     COLOR _RGB32(255, 255, i)
  11.     PRINT "Carlos"; i;
  12.  
  13.     COLOR _RGB32(i, i, 255)
  14.     PRINT "Carlos"; i;
  15.  
  16.     COLOR _RGB32(i, 255, i)
  17.     PRINT "Carlos"; i;
  18.  
  19.     COLOR _RGB32(255, i, i)
  20.     PRINT "Carlos"; i;
  21.  
  22.     _DELAY .1
  24.  
  25. ]
Title: Re: reduce numbers of: for. next
Post by: bplus on January 07, 2021, 07:34:41 pm
Ha! That's inspiring! ;-))

Here is the complete list:
Code: QB64: [Select]
  1. _TITLE "ALL the colors, got a minute? hahaha!"
  2. SCREEN _NEWIMAGE(800, 700, 32)
  3. _DELAY .25
  5. x$ = SPC(80)
  6. FOR r = 0 TO 255
  7.     FOR g = 0 TO 255
  8.         FOR b = 0 TO 255
  9.             COLOR _RGB32(r, g, b)
  10.             i = i + 1
  11.             MID$(x$, 1, 80) = "This is color " + TS$(i) + ", _RGB32(" + TS$(r) + ", " + TS$(g) + ", " + TS$(b) + ")"
  12.             PRINT x$
  13.             _LIMIT 60
  14.         NEXT
  15.     NEXT
  18.  
  19. FUNCTION TS$ (n AS LONG)
  20.     TS$ = _TRIM$(STR$(n))
  22.  
  23.  

1000 times faster, all the colors /1000
Code: QB64: [Select]
  1. _TITLE "ALL the colors / 1000, got a minute? hahaha!"
  2. SCREEN _NEWIMAGE(800, 700, 32)
  3. _DELAY .25
  5. x$ = SPC(80)
  6. FOR r = 0 TO 255 STEP 10
  7.     FOR g = 0 TO 255 STEP 10
  8.         FOR b = 0 TO 255 STEP 10
  9.             COLOR _RGB32(r, g, b)
  10.             i = i + 1
  11.             MID$(x$, 1, 80) = "This is color " + TS$(i) + ", _RGB32(" + TS$(r) + ", " + TS$(g) + ", " + TS$(b) + ")"
  12.             PRINT x$
  13.             _LIMIT 60
  14.         NEXT
  15.     NEXT
  18.  
  19. FUNCTION TS$ (n AS LONG)
  20.     TS$ = _TRIM$(STR$(n))
  22.  
  23.  
Title: Re: reduce numbers of: for. next
Post by: carloscordeiro on January 07, 2021, 08:32:06 pm
Okay, Bplus,
You have made a simple routine that I can use in the future. I thought that routines would be just complex. I see it can be done without advanced lines as you are used to doing them.

thank you very much

Carlos
Text Only | Text with Attachments