Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: TempodiBasic on October 27, 2019, 08:28:01 pm

Title: CIRCLE vs LINE for LED effect
Post by: TempodiBasic on October 27, 2019, 08:28:01 pm
Hi
what are of two effects  better for a LED effect?

welcome Yours opinions

Here a little code in Old Style of programming with GOSUB blocks of commands...

Code: QB64: [Select]
  1. REM here we try to compare a circle + paint vs a line to LED a character
  2. CONST White = _RGBA32(255, 255, 255, 255), Black = _RGBA32(0, 0, 0, 255)
  3. CONST Red = _RGBA32(240, 0, 0, 255), Blu = _RGBA32(0, 0, 200, 255)
  4. DEFINT A-L
  6. SCREEN _NEWIMAGE(920, 600, 32)
  8. stringa = "ABab"
  9. PRINT stringa
  10.  
  11. FOR c = 1 TO 4
  12.  
  13.     kPoint = (c - 1) * 8
  14.     kDimension = 10
  15.     hLetter = 10
  16.     lLetter = 50
  17.     lCol~& = Blu
  18.     GOSUB PrintLetterL
  19.     hLetter = 450
  20.     GOSUB printletterC
  21.  
  22.     kDimension = 12
  23.     hLetter = 10
  24.     lLetter = 300
  25.     lCol~& = Red
  26.     GOSUB PrintLetterL
  27.     hLetter = 450
  28.     GOSUB printletterC
  29.  
  30.     kDimension = 5
  31.     hLetter = 10
  32.     lLetter = 200
  33.     lCol~& = White
  34.     GOSUB PrintLetterL
  35.     hLetter = 450
  36.     GOSUB printletterC
  37.  
  40.  
  41.  
  42.  
  43. PrintLetterL:
  44. FOR a = kPoint TO (kPoint + 7) ' horizonthal position on the raw
  45.     FOR b = 1 TO 13 ' vertical position on the raw
  46.         IF POINT(a, b) <> Black THEN col~& = lCol~& ELSE col~& = Black
  47.         LINE (hLetter + (a * kDimension), lLetter + (b * kDimension))-(hLetter + (a * kDimension) + kDimension, lLetter + (b * kDimension) + kDimension), col~&, BF
  48.     NEXT
  51.  
  52. printletterC:
  53. FOR a = kPoint TO (kPoint + 7) ' horizonthal position on the raw
  54.     FOR b = 1 TO 13 ' vertical position on the raw
  55.         IF POINT(a, b) <> Black THEN col~& = lCol~& ELSE col~& = Black
  56.         CIRCLE (hLetter + (a * kDimension), lLetter + (b * kDimension)), kDimension, col~&
  57.     NEXT
  60.  
Title: Re: CIRCLE vs LINE for LED effect
Post by: bplus on October 27, 2019, 08:45:08 pm
A little fix for the circle one:
Code: QB64: [Select]
  1. printletterC:
  2. FOR a = kPoint TO (kPoint + 7) ' horizonthal position on the raw
  3.     FOR b = 1 TO 13 ' vertical position on the raw
  4.         IF POINT(a, b) <> Black THEN col~& = lCol~& ELSE col~& = Black
  5.         CIRCLE (hLetter + (a * kDimension), lLetter + (b * kDimension)), kDimension / 3.1415, col~& '<<<<<<<<<<<<<<<<,,
  6.     NEXT
  9.  
Title: Re: CIRCLE vs LINE for LED effect
Post by: TempodiBasic on October 28, 2019, 08:52:58 am
Hi Bplus thanks
but it seems more a variant that a fix!
Title: Re: CIRCLE vs LINE for LED effect
Post by: bplus on October 28, 2019, 10:43:48 am
Quote from: TempodiBasic on October 28, 2019, 08:52:58 am
Hi Bplus thanks
but it seems more a variant that a fix!

With respect, I must debate that, before the "fix" the circles drawn were not whole because they were drawn so big the spaces printed after them overlapped and made the graphic just a little bit shoddy (sorry). Now circles overlapping themselves should look fine and if you like that effect then don't print the black spaces or whatever is causing the incomplete circle as shown below:

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: CIRCLE vs LINE for LED effect
Post by: TempodiBasic on October 28, 2019, 02:20:58 pm
Hi Bplus
1. I premise that I like your variation of the program...it gives me a good sense of order

2. You have got to draw whole circles with not overlapping area... and this is a goal

3. I have coded to draw circles at the place of squares without minding if they overlap themselves or are whole...

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

However about the incomplete circles I can agree in the manner that I have used Filled Squares to avoid the effect of incomplete shape that you can see with void circles...and that it comes out from overlapping colored shapes with black shapes...


so here the real fix to avoid the incomplete circle that occupies about the same area of the square and overlapping
Code: QB64: [Select]
  1. printletterC:
  2. FOR a = kPoint TO (kPoint + 7) ' horizonthal position on the raw
  3.     FOR b = 1 TO 13 ' vertical position on the raw
  4.         IF POINT(a, b) <> Black THEN CIRCLE (hLetter + (a * kDimension), lLetter + (b * kDimension)), kDimension, lCol~&
  5.     NEXT

and this is the result
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

and we must fix also the LINE part if we use LINE.....,B at the place of LINE.....,BF
Code: QB64: [Select]
  1. PrintLetterL:
  2. FOR a = kPoint TO (kPoint + 7) ' horizonthal position on the raw
  3.     FOR b = 1 TO 13 ' vertical position on the raw
  4.         IF POINT(a, b) <> Black THEN LINE (hLetter + (a * kDimension), lLetter + (b * kDimension))-(hLetter + (a * kDimension) + kDimension, lLetter + (b * kDimension) + kDimension), lCol~&, B
  5.     NEXT
  8.  

these two fix lead to this result
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

while the original code without fix and without LINE....,BF but with LINE ....,B leads to this other result
  [ This attachment cannot be displayed inline in 'Print Page' view ]  .

IMHO, You are drawing the inscripted circle of the square and I find it very cool, while I 'm drawing the circlescripted circle (I use the side of the square as radius and not diameter or the circle drawn)


PS it is always fine to talk and to get back different opinions and knownledge and experiences!
Title: Re: CIRCLE vs LINE for LED effect
Post by: bplus on October 28, 2019, 02:38:40 pm
Hi TempodiBasic

Yes the circumscribed circles are nice too, as long as they weren't blacked out by overlapping print and made to look
incomplete. Glad you understood :)
Title: Re: CIRCLE vs LINE for LED effect
Post by: TempodiBasic on October 29, 2019, 05:04:52 pm
Yes and I think you can appreciate the fullshape version

Code: QB64: [Select]
  1. REM here we try TO compare a CIRCLE + PAINT vs a LINE TO LED a character
  2. CONST White = _RGBA32(255, 255, 255, 255), Black = _RGBA32(0, 0, 0, 255)
  3. CONST Red = _RGBA32(240, 0, 0, 255), Blu = _RGBA32(0, 0, 200, 255)
  4. DEFINT A-L
  6. SCREEN _NEWIMAGE(920, 600, 32)
  8. stringa = "ABab"
  9. PRINT stringa
  10.  
  11. FOR c = 1 TO 4
  12.  
  13.     kPoint = (c - 1) * 8
  14.     kDimension = 10
  15.     hLetter = 10
  16.     lLetter = 50
  17.     lCol~& = Blu
  18.     GOSUB PrintLetterL
  19.     hLetter = 450
  20.     GOSUB printletterC
  21.  
  22.     kDimension = 12
  23.     hLetter = 10
  24.     lLetter = 300
  25.     lCol~& = Red
  26.     GOSUB PrintLetterL
  27.     hLetter = 450
  28.     GOSUB printletterC
  29.  
  30.     kDimension = 5
  31.     hLetter = 10
  32.     lLetter = 200
  33.     lCol~& = White
  34.     GOSUB PrintLetterL
  35.     hLetter = 450
  36.     GOSUB printletterC
  37.  
  40.  
  41.  
  42.  
  43. PrintLetterL:
  44. FOR a = kPoint TO (kPoint + 7) ' horizonthal position on the raw
  45.     FOR b = 1 TO 13 ' vertical position on the raw
  46.         IF POINT(a, b) <> Black THEN LINE (hLetter + (a * kDimension), lLetter + (b * kDimension))-(hLetter + (a * kDimension) + kDimension, lLetter + (b * kDimension) + kDimension), lCol~&, BF
  47.     NEXT
  50.  
  51. printletterC:
  52. FOR a = kPoint TO (kPoint + 7) ' horizonthal position on the raw
  53.     FOR b = 1 TO 13 ' vertical position on the raw
  54.         IF POINT(a, b) <> Black THEN CIRCLE (hLetter + (a * kDimension), lLetter + (b * kDimension)), kDimension / 2, lCol~&: PAINT STEP(0, 0), lCol~&
  55.     NEXT
  58.  
  59.  
 [ This attachment cannot be displayed inline in 'Print Page' view ]  
thanks for read and discuss.
Title: Re: CIRCLE vs LINE for LED effect
Post by: bplus on October 30, 2019, 12:50:08 am
Ha! TempodiBasic, it looks like you are on the way to yet another LED Scroller! ;-)
Title: Re: CIRCLE vs LINE for LED effect
Post by: johnno56 on October 31, 2019, 02:00:17 am
Slight side-step question. What would use more memory, the 'paint' command or a 'scanline fill', for the circles? Just curious as to the effect on memory and or speed for scrolling.... Perhaps the size of the circles are too small to make much of a difference? I'm sorry. My caffeine levels are quite low... You can probably guess by the way I am babbling, right?
Title: Re: CIRCLE vs LINE for LED effect
Post by: TempodiBasic on October 31, 2019, 01:19:56 pm
Hi Johnno56
here another led scroller in embryo
you can mod ShowString to get how much time it gets to accomplish the scrolling task (3-5 cycles) .

Code: QB64: [Select]
  1. REM here we try TO compare a CIRCLE + PAINT vs a LINE TO LED a character
  2. REM I like too much to use the block code so in the place
  3. REM of label: GOSUB ... RETURN that is a good first manner to use
  4. REM blocks of code  I prefer following the evolution to SUB and FUNCTION
  6. _TITLE "Scroller Circle vs Line vs Fillcircle, press ESC to quit"
  7. CONST White = _RGBA32(255, 255, 255, 255), Black = _RGBA32(0, 0, 0, 255)
  8. CONST Red = _RGBA32(240, 0, 0, 255), Blu = _RGBA32(0, 0, 200, 255)
  9. DEFINT A-L
  11. SCREEN _NEWIMAGE(920, 600, 32)
  13. stringa = " QB64 and QB64 community are  wonderful "
  14. Astr = LEN(stringa)
  15. stringa2 = stringa
  16.  
  18.     CLS
  19.     PRINT stringa2 ' here we have the info to draw led letters
  20.     ShowString stringa2
  21.     stringa2 = RIGHT$(stringa2, Astr - 1) + LEFT$(stringa2, 1)
  22.     _LIMIT 7 '<----- increase here if you want a faster scroller
  23.     _DISPLAY
  26.  
  27. SUB ShowString (strn)
  28.     FOR c = 1 TO LEN(strn)
  29.         kPoint = (c - 1) * 8
  30.         kDimension = 10
  31.         hLetter = 10
  32.         lLetter = 50
  33.         lCol~& = Blu
  34.         'fillcircle manner
  35.         printletterC2 kPoint, kDimension, hLetter, lLetter, lCol~&
  36.  
  37.         kDimension = 12
  38.         hLetter = 10
  39.         lLetter = 300
  40.         lCol~& = Red
  41.         ' circle + paint manner
  42.         printletterC kPoint, kDimension, hLetter, lLetter, lCol~&
  43.  
  44.         kDimension = 5
  45.         hLetter = 10
  46.         lLetter = 200
  47.         lCol~& = White
  48.         ' line manner
  49.         PrintLetterL kPoint, kDimension, hLetter, lLetter, lCol~&
  50.     NEXT c
  52.  
  53. SUB PrintLetterL (kpoi, dimension, hlet, llet, lC~&)
  54.     FOR a = kpoi TO (kpoi + 7) ' horizonthal position on the raw
  55.         FOR b = 1 TO 13 ' vertical position on the raw
  56.             IF POINT(a, b) <> Black THEN LINE (hlet + (a * dimension), llet + (b * dimension))-(hlet + (a * dimension) + dimension, llet + (b * dimension) + dimension), lC~&, BF
  57.         NEXT
  58.     NEXT
  60.  
  61. SUB printletterC (kPoi, Dimension, hLet, lLet, lC~&)
  62.     FOR a = kPoi TO (kPoi + 7) ' horizonthal position on the raw
  63.         FOR b = 1 TO 13 ' vertical position on the raw
  64.             IF POINT(a, b) <> Black THEN CIRCLE (hLet + (a * Dimension), lLet + (b * Dimension)), Dimension / 2, lC~&: PAINT STEP(0, 0), lC~&
  65.         NEXT
  66.     NEXT
  68.  
  69. SUB printletterC2 (kPoi, Dimension, hLet, lLet, lC~&)
  70.     FOR a = kPoi TO (kPoi + 7) ' horizonthal position on the raw
  71.         FOR b = 1 TO 13 ' vertical position on the raw
  72.             IF POINT(a, b) <> Black THEN CircleFill (hLet + (a * Dimension)), (lLet + (b * Dimension)), INT(Dimension / 2), lC~&
  73.         NEXT
  74.     NEXT
  76.  
  77. SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  78.     ' CX = center x coordinate
  79.     ' CY = center y coordinate
  80.     '  R = radius
  81.     '  C = fill color
  82.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  83.     DIM X AS INTEGER, Y AS INTEGER
  84.     Radius = ABS(R)
  85.     RadiusError = -Radius
  86.     X = Radius
  87.     Y = 0
  88.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  89.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  90.     WHILE X > Y
  91.         RadiusError = RadiusError + Y * 2 + 1
  92.         IF RadiusError >= 0 THEN
  93.             IF X <> Y + 1 THEN
  94.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  95.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  96.             END IF
  97.             X = X - 1
  98.             RadiusError = RadiusError - X * 2
  99.         END IF
  100.         Y = Y + 1
  101.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  102.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  103.     WEND
  105.  

thanks to give a look at
Text Only | Text with Attachments