Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: carloscordeiro on September 26, 2020, 07:29:47 pm

Title: Line + Draw
Post by: carloscordeiro on September 26, 2020, 07:29:47 pm
Good night, Bplus
Me again here learning from you the instructions of Qbasic 64
This time I won't take your time too much.
I'm not used to code with graphics, I'm not familiar with graphics
The most I did was the boxes that I use in codes and that I want to use in the sequence code that you created for me.
Reading http://www.qb64.org/wiki/LINE I saw that the line is an excellent instruction for creating boxes.
The boxes that I create are with very obsolete instruction.
I managed to create a box with the line, but I wanted to make the lines a little thicker with the Draw statement.
As I mentioned, I have no knowledge of this instruction
I saw just one example of a slightly thick line that Draw created
Just below examples:
My obsolete boxes:

COLOR 11
LOCATE 1, 1: PRINT STRING$(80, CHR$(196)) 'box or frame
LOCATE 3, 1: PRINT STRING$(80, CHR$(196))
LOCATE 23, 1: PRINT STRING$(80, CHR$(196))
FOR R = 1 TO 23
    LOCATE R, 1: PRINT CHR$(179)
    LOCATE R, 80: PRINT CHR$(179)
NEXT R
LOCATE 3, 1: PRINT CHR$(195)
LOCATE 3, 80: PRINT CHR$(180)
LOCATE 1, 80: PRINT CHR$(191)
LOCATE 23, 80: PRINT CHR$(217)
LOCATE 23, 1: PRINT CHR$(192)
LOCATE 1, 1: PRINT CHR$(218)

Line instruction boxes: ‘Magnificent instruction
SCREEN 12
LINE (6, 5)-(632, 462), 11, B ' box or frame
'LINE (7, 6)-(631, 461), 11, B  'Slightly thicker lines
LINE (6, 5)-(632, 50), 11, B

Example I searched for at http://www.qb64.org/wiki/DRAW
SCREEN 12
PSET (20, 20), 12
DRAW "E2R30F2G2L30H2BR5P12,12" 'A little thick stroke

To summarize, I just want to make the box a little thicker.
I would like to know from you if there is this possibility.

Carlos
Title: Re: Line + Draw
Post by: bplus on September 26, 2020, 08:03:02 pm
When I was creating my current avatar I made a very nifty sub:

Code: QB64: [Select]
  1. SUB drawFrame (x, y, w, h, th, k AS _UNSIGNED LONG)
  2.     LINE (x, y)-STEP(w, th), k, BF 'two horizontal
  3.     LINE (x, y + h - th)-STEP(w, th), k, BF
  4.     LINE (x, y + th + 1)-STEP(th, h - 2 * th - 2), k, BF 'try not to overlap boxes in case k is transparent
  5.     LINE (x + w - th, y + th + 1)-STEP(th, h - 2 * th - 2), k, BF

This creates a box top left corner is x, y.
Width and height is w, h
Thickness of lines (really they are skinny filled boxes) = th
k is color and may work in screen 12

The modern way to setup your screen is with:
SCREEN _NEWIMAGE(MyScreenWidth, MyScreenHeight, 32)  ' < the 32 is for 32 bit colors = _RGB32(red, green, blue)

It (the frame SUB) is exactly what you could use.

Demo:
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2. drawFrame 0, 0, 800, 600, 10, _RGB32(0, 0, 128)
  3. drawFrame 10, 10, 780, 50, 10, _RGB(255, 0, 0)
  4. drawFrame 10, 60, 780, 530, 10, _RGB32(200)
  5. drawFrame 10, 60, 260, 530, 10, _RGB32(255, 255, 0)
  6. drawFrame 270, 60, 260, 530, 10, _RGB32(0, 128, 0)
  7. drawFrame 530, 60, 260, 530, 10, _RGB32(240, 120, 0)
  9.  
  10. SUB drawFrame (x, y, w, h, th, k AS _UNSIGNED LONG)
  11.     LINE (x, y)-STEP(w, th), k, BF 'two horizontal
  12.     LINE (x, y + h - th)-STEP(w, th), k, BF
  13.     LINE (x, y + th + 1)-STEP(th, h - 2 * th - 2), k, BF 'try not to overlap boxes in case k is transparent
  14.     LINE (x + w - th, y + th + 1)-STEP(th, h - 2 * th - 2), k, BF
  16.  
  17.  
Title: Re: Line + Draw
Post by: bplus on September 26, 2020, 08:42:45 pm
Here's another way to draw thick lines
Code: QB64: [Select]
  1. 'update 2020-01-24 to include PD2 inside the sub
  2. SUB thic (x1, y1, x2, y2, thick, K AS _UNSIGNED LONG)
  3.     DIM PD2 AS DOUBLE, t2 AS SINGLE, a AS SINGLE, x3 AS SINGLE, y3 AS SINGLE, x4 AS SINGLE, y4 AS SINGLE
  4.     DIM x5 AS SINGLE, y5 AS SINGLE, x6 AS SINGLE, y6 AS SINGLE
  5.     PD2 = 1.570796326794897
  6.     t2 = thick / 2
  7.     IF t2 < 1 THEN t2 = 1
  8.     a = _ATAN2(y2 - y1, x2 - x1)
  9.     x3 = x1 + t2 * COS(a + PD2)
  10.     y3 = y1 + t2 * SIN(a + PD2)
  11.     x4 = x1 + t2 * COS(a - PD2)
  12.     y4 = y1 + t2 * SIN(a - PD2)
  13.     x5 = x2 + t2 * COS(a + PD2)
  14.     y5 = y2 + t2 * SIN(a + PD2)
  15.     x6 = x2 + t2 * COS(a - PD2)
  16.     y6 = y2 + t2 * SIN(a - PD2)
  17.     ftri x6, y6, x4, y4, x3, y3, K
  18.     ftri x3, y3, x5, y5, x6, y6, K
  20.  
  21. '2019-12-16 fix by Steve saves some time with STATIC and saves and restores last dest
  22. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  23.     DIM D AS LONG
  24.     STATIC a&
  25.     D = _DEST
  26.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  27.     _DEST a&
  28.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  29.     PSET (0, 0), K
  30.     _BLEND a& '<<<< new 2019-12-16 fix
  31.     _DEST D
  32.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  34.  
  35.  
  36.  
Title: Re: Line + Draw
Post by: carloscordeiro on September 26, 2020, 08:49:21 pm
Bplus, it's like I said in the other posts, you make advanced codes. I wanted a code so I could choose the line thickness of the box. A very simple code.
It would be possible?
Carlos
Title: Re: Line + Draw
Post by: carloscordeiro on September 26, 2020, 08:55:43 pm
The latter does not appear the box on the screen
Title: Re: Line + Draw
Post by: OldMoses on September 26, 2020, 09:19:23 pm
You could run your line commands in a loop and just change its size to suit. Dead simple, unsophisticated, but if it works in your ap, go for it.

Code: QB64: [Select]
  2. thick = 5
  3. FOR x = 0 TO thick
  4.     LINE (6 + x, 5 + x)-(632 - x, 462 - x), 11, B ' box or frame
  5.     'LINE (7, 6)-(631, 461), 11, B  'Slightly thicker lines
  6.     LINE (6 + x, 5 + x)-(632 - x, 50 - x), 11, B
Title: Re: Line + Draw
Post by: carloscordeiro on September 26, 2020, 09:28:35 pm
Ok, great reasoning :)
I will do that.
thank you again

Carlos
Title: Re: Line + Draw
Post by: bplus on September 26, 2020, 09:31:26 pm
Here's a demo for thick

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2. DEFINT A-Z
  3. 'try a box target in middle of screem
  5. FOR i = 1 TO 20
  6.     IF i MOD 3 = 1 THEN k = _RGB32(255)
  7.     IF i MOD 3 = 2 THEN k = _RGB32(200, 0, 0)
  8.     IF i MOD 3 = 0 THEN k = _RGB32(0, 0, 200)
  9.  
  10.     thic _WIDTH / 2 - i * 10 - 3, _HEIGHT / 2 - i * 10, _WIDTH / 2 + i * 10 + 3, _HEIGHT / 2 - i * 10, 6, k
  11.     thic _WIDTH / 2 - i * 10, _HEIGHT / 2 - i * 10, _WIDTH / 2 - i * 10, _HEIGHT / 2 + i * 10, 6, k
  12.     thic _WIDTH / 2 + i * 10, _HEIGHT / 2 - i * 10, _WIDTH / 2 + i * 10, _HEIGHT / 2 + i * 10, 6, k
  13.     thic _WIDTH / 2 - i * 10 - 3, _HEIGHT / 2 + i * 10, _WIDTH / 2 + i * 10 + 3, _HEIGHT / 2 + i * 10, 6, k
  14.  
  15.     _LIMIT 10
  18.  
  19.  
  20. 'update 2020-01-24 to include PD2 inside the sub
  21. SUB thic (x1, y1, x2, y2, thick, K AS _UNSIGNED LONG)
  22.     DIM PD2 AS DOUBLE, t2 AS SINGLE, a AS SINGLE, x3 AS SINGLE, y3 AS SINGLE, x4 AS SINGLE, y4 AS SINGLE
  23.     DIM x5 AS SINGLE, y5 AS SINGLE, x6 AS SINGLE, y6 AS SINGLE
  24.     PD2 = 1.570796326794897
  25.     t2 = thick / 2
  26.     IF t2 < 1 THEN t2 = 1
  27.     a = _ATAN2(y2 - y1, x2 - x1)
  28.     x3 = x1 + t2 * COS(a + PD2)
  29.     y3 = y1 + t2 * SIN(a + PD2)
  30.     x4 = x1 + t2 * COS(a - PD2)
  31.     y4 = y1 + t2 * SIN(a - PD2)
  32.     x5 = x2 + t2 * COS(a + PD2)
  33.     y5 = y2 + t2 * SIN(a + PD2)
  34.     x6 = x2 + t2 * COS(a - PD2)
  35.     y6 = y2 + t2 * SIN(a - PD2)
  36.     ftri x6, y6, x4, y4, x3, y3, K
  37.     ftri x3, y3, x5, y5, x6, y6, K
  39.  
  40. '2019-12-16 fix by Steve saves some time with STATIC and saves and restores last dest
  41. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  42.     DIM D AS LONG
  43.     STATIC a&
  44.     D = _DEST
  45.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  46.     _DEST a&
  47.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  48.     PSET (0, 0), K
  49.     _BLEND a& '<<<< new 2019-12-16 fix
  50.     _DEST D
  51.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  53.  
  54.  
  55.  

Here is how to draw a simple line:
Code: QB64: [Select]
  1. line (x1, y1)-(x2, y2), Kolor

Here is how to draw a simple thick line:
Code: QB64: [Select]
  1. thic x1, y1, x2, y2, thickness, Kolor

Can't get simpler, where ever you want a line just use thic

Title: Re: Line + Draw
Post by: carloscordeiro on September 26, 2020, 09:40:23 pm
I wanted exactly that, but with few lines.
I will stay with your penultimate reasoning.

Code: QB64: [Select]
SCREEN 12
thick = 5
FOR x = 0 TO thick
    LINE (6 + x, 5 + x)-(632 - x, 462 - x), 11, B ' box or frame
    'LINE (7, 6)-(631, 461), 11, B  'Slightly thicker lines
    LINE (6 + x, 5 + x)-(632 - x, 50 - x), 11, B
NEXT x
Title: Re: Line + Draw
Post by: bplus on September 26, 2020, 09:47:40 pm
Here is simpler demo:

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2. DEFINT A-Z
  4.     FOR i = 1 TO 20
  5.         thic RND * _WIDTH, RND * _HEIGHT, RND * _WIDTH, RND * _HEIGHT, RND * 30, _RGB32(RND * 255)
  6.         _LIMIT 10
  7.     NEXT
  8.     _DELAY .5
  9.     CLS
  11.  
  12. 'update 2020-01-24 to include PD2 inside the sub
  13. SUB thic (x1, y1, x2, y2, thick, K AS _UNSIGNED LONG)
  14.     DIM PD2 AS DOUBLE, t2 AS SINGLE, a AS SINGLE, x3 AS SINGLE, y3 AS SINGLE, x4 AS SINGLE, y4 AS SINGLE
  15.     DIM x5 AS SINGLE, y5 AS SINGLE, x6 AS SINGLE, y6 AS SINGLE
  16.     PD2 = 1.570796326794897
  17.     t2 = thick / 2
  18.     IF t2 < 1 THEN t2 = 1
  19.     a = _ATAN2(y2 - y1, x2 - x1)
  20.     x3 = x1 + t2 * COS(a + PD2)
  21.     y3 = y1 + t2 * SIN(a + PD2)
  22.     x4 = x1 + t2 * COS(a - PD2)
  23.     y4 = y1 + t2 * SIN(a - PD2)
  24.     x5 = x2 + t2 * COS(a + PD2)
  25.     y5 = y2 + t2 * SIN(a + PD2)
  26.     x6 = x2 + t2 * COS(a - PD2)
  27.     y6 = y2 + t2 * SIN(a - PD2)
  28.     ftri x6, y6, x4, y4, x3, y3, K
  29.     ftri x3, y3, x5, y5, x6, y6, K
  31.  
  32. '2019-12-16 fix by Steve saves some time with STATIC and saves and restores last dest
  33. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  34.     DIM D AS LONG
  35.     STATIC a&
  36.     D = _DEST
  37.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  38.     _DEST a&
  39.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  40.     PSET (0, 0), K
  41.     _BLEND a& '<<<< new 2019-12-16 fix
  42.     _DEST D
  43.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  45.  

Just copy paste the 2 subs into your code and ignore them, all you need to know is

Code: QB64: [Select]
  1. thic x1, y1, x2, y2, thickness, Kolor

Draws a thick line with thickness of thickness and color of Kolor. It's one line of code to draw a thick line!



Title: Re: Line + Draw
Post by: carloscordeiro on September 26, 2020, 10:05:57 pm
You are very funny today, this is what I like about human beings. Witty.

Thanks Bplus for your reasoning of the loop, I will keep it, as it is the simplest and with few lines.

Thanks
Carlos
Title: Re: Line + Draw
Post by: FellippeHeitor on September 26, 2020, 11:03:13 pm
Here's sub box. Pass it the x, y coordinates and the width, height of the box, then the thickness and color to draw.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2.  
  3. box 0, 0, 200, 130, 10, _RGB32(183, 133, 33)
  4.  
  5. SUB box (x, y, w, h, thickness, theColor AS _UNSIGNED LONG)
  6.     LINE (x, y)-STEP(w, h), theColor, BF
  7.     LINE (x + thickness, y + thickness)-STEP(w - thickness * 2, h - thickness * 2), _BACKGROUNDCOLOR, BF
Title: Re: Line + Draw
Post by: bplus on September 26, 2020, 11:04:18 pm
Quote from: carloscordeiro on September 26, 2020, 10:05:57 pm
You are very funny today, this is what I like about human beings. Witty.

Thanks Bplus for your reasoning of the loop, I will keep it, as it is the simplest and with few lines.

Thanks
Carlos

Well now hold on, Old Moses had a great idea too!

Here I added something to make it look like a frame to a picture!

Again just copy/paste the sub into the program, ignore how it works and enjoy the one line call

Code: QB64: [Select]
  1. framed2 x1, y1, x2, y2, thickness, kolor

x1, y1 has to top left corner of frame/box,  x2, y2 bottom right corner of frame or box, kolor best in mid range or more.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  4.     FOR i = 1 TO 10
  5.         x1 = RND * _WIDTH: y1 = RND * _HEIGHT: x2 = RND * _WIDTH: y2 = RND * _HEIGHT
  6.         IF x1 > x2 THEN SWAP x1, x2: SWAP y1, y2
  7.         IF y1 > y2 THEN SWAP y1, y2
  8.         k = _RGB32(RND * 200 + 55, RND * 255, RND * 255)
  9.         framed2 x1, y1, x2, y2, RND * 15 + 2, k
  10.         LOCATE 1, 1: PRINT SPACE$(50)
  11.         LOCATE 1, 1: PRINT x1, y1, x2, y2
  12.         SLEEP
  13.     NEXT
  14.     _DELAY .5
  15.     CLS
  17.  
  18. SUB framed2 (x1, y1, x2, y2, thick, kolor AS _UNSIGNED LONG)
  19.     red = _RED32(kolor)
  20.     green = _GREEN32(kolor)
  21.     blue = _BLUE32(kolor)
  22.     FOR i = 0 TO thick
  23.         LINE (x1 + i, y1 + i)-(x2 - i, y2 - i), _RGB32(red - 10 * i, green - 10 * i, blue - 10 * i), B
  24.     NEXT
  26.  

Title: Re: Line + Draw
Post by: bplus on September 26, 2020, 11:40:33 pm
Yeah, I like Fellippe's width and height better as parameters x, y is top left corner and then width w to right and height h down:
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  4.     COLOR , _RGB32(255 * RND, 255 * RND, 100 * RND + 155)
  5.     CLS
  6.     FOR i = 1 TO 10
  7.         x1 = RND * (_WIDTH - 200) + 100: y1 = RND * (_HEIGHT - 200) + 100: w = 200 * RND + 35: h = RND * 200 + 35
  8.         framed3 x1, y1, w, h, RND * 20 + 4, _RGB32(170 * RND + 80, 255 * RND, 255 * RND)
  9.         LOCATE 1, 1: PRINT SPACE$(50)
  10.         LOCATE 1, 1: PRINT x1, y1, w, h
  11.         SLEEP
  12.     NEXT
  13.     _DELAY .5
  14.     CLS
  16.  
  17. SUB framed3 (x, y, w, h, thick, kolor AS _UNSIGNED LONG)
  18.     red = _RED32(kolor)
  19.     green = _GREEN32(kolor)
  20.     blue = _BLUE32(kolor)
  21.     FOR i = 0 TO thick
  22.         LINE (x + i, y + i)-(x + w - i, y + h - i), _RGB32(red - 10 * i, green - 10 * i, blue - 10 * i), B
  23.     NEXT
  25.  

 


Again to use copy/paste sub into program and call with:
Code: QB64: [Select]
  1. framed3 x, y, w, h, thick, Kolor
Title: Re: Line + Draw
Post by: bplus on September 27, 2020, 02:36:14 pm
Another 3D version of frame probably best yet:
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  4.     COLOR , _RGB32(128 + RND * 128 - 64)
  5.     CLS
  6.     FOR i = 1 TO 10
  7.         x1 = RND * (_WIDTH - 200) + 100: y1 = RND * (_HEIGHT - 200) + 100: w = 200 * RND + 35: h = RND * 200 + 35
  8.         framed4 x1, y1, w, h, RND * 10 + 4, _RGB32(128 + RND * 128 - 64, 128 + RND * 128 - 64, 128 + RND * 128 - 64)
  9.         LOCATE 1, 1: PRINT SPACE$(50)
  10.         LOCATE 1, 1: PRINT x1, y1, w, h
  11.         SLEEP
  12.     NEXT
  13.     _DELAY .5
  14.     CLS
  16.  
  17. SUB framed4 (x, y, w, h, thick, kolor AS _UNSIGNED LONG)
  18.     red = _RED32(kolor)
  19.     green = _GREEN32(kolor)
  20.     blue = _BLUE32(kolor)
  21.     DIM saveC AS _UNSIGNED LONG
  22.     FOR i = 0 TO thick * .5
  23.         red = red + 15: green = green + 15: blue = blue + 15
  24.         LINE (x + i, y + i)-(x + w - i, y + h - i), _RGB32(red, green, blue), B
  25.     NEXT
  26.     FOR i = thick * .5 TO thick
  27.         red = red - 15: green = green - 15: blue = blue - 15
  28.         LINE (x + i, y + i)-(x + w - i, y + h - i), _RGB32(red, green, blue), B
  29.     NEXT
  31.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Line + Draw
Post by: Unseen Machine on September 27, 2020, 02:56:24 pm
Hmmmm....looks a lot like my VQB_Frame command!

Code: QB64: [Select]
  1. SUB VQB_Frame (X%, Y%, Width%, Height%, CLR&)
  2. OldCLR& = CLR&
  3. LINE (X%, Y%)-(X% + Width%, Y% + Height%), CLR&, BF
  4. FOR Border% = 0 TO 4
  5.   IF CLR& > _RGB(0, 0, 0) THEN
  6.     NewRed& = _RED(CLR&) - (6 * Border%)
  7.     NewGreen& = _GREEN(CLR&) - (6 * Border%)
  8.     NewBlue& = _BLUE(CLR&) - (6 * Border%)
  9.     CLR& = _RGB(NewRed&, NewGreen&, NewBlue&)
  10.   ELSE
  11.     NewRed& = _RED(CLR&) + (6 * Border%)
  12.     NewGreen& = _GREEN(CLR&) + (6 * Border%)
  13.     NewBlue& = _BLUE(CLR&) + (6 * Border%)
  14.     CLR& = _RGBA(NewRed&, NewGreen&, NewBlue&, 120)
  15.   END IF
  16.   LINE (X% - Border%, Y% - Border%)-(X% + Width% + Border%, Y% - Border%), CLR&, BF
  17.   LINE (X% - Border%, Y% + Height% + Border%)-(X% + Width% + Border%, Y% + Height% + Border%), CLR&, BF
  18.   LINE (X% - Border%, Y% - Border%)-(X% - Border%, Y% + Height% + Border%), CLR&, BF
  19.   LINE (X% + Width% + Border%, Y% - Border%)-(X% + Width% + Border%, Y% + Height% + Border%), CLR&, BF
  21. CLR& = OldCLR&

I found this on my dropbox the other day, the code is ten years old but should still be good for shapes and lines etc...

Code: QB64: [Select]
  1. SUB GDK_Triangle (x1%, y1%, x2%, y2%, x3%, y3%, CLR&)
  2. LINE (x1%, y1%)-(x2%, y2%), CLR&
  3. LINE (x1%, y1%)-(x3%, y3%), CLR&
  4. LINE (x2%, y2%)-(x3%, y3%), CLR&
  6.  
  7.  
  8. SUB GDK_TriangleFill (x1%, y1%, x2%, y2%, x3%, y3%, CLR&, FillCLR&)
  9. LINE (x1%, y1%)-(x2%, y2%), CLR&
  10. LINE (x1%, y1%)-(x3%, y3%), CLR&
  11. LINE (x2%, y2%)-(x3%, y3%), CLR&
  12. paintx% = (x1% + x2% + x3%) / 3
  13. painty% = (y1% + y2% + y3%) / 3
  14. PAINT (paintx%, painty%), FillCLR&, CLR&
  16.  
  17.  
  18. SUB GDK_Ellipse (X%, Y%, XRadius!, YRadius!, CLR&)
  19. IF XRadius! > YRadius! THEN Radius! = XRadius! ELSE Radius! = YRadius!
  20. MinStep! = 1 / (2 * 3.1415926535 * Radius!)
  21. FOR i = 0 TO 8 * ATN(1) STEP MinStep!
  22.   pointx% = X% + (XRadius! * COS(i))
  23.   pointy% = Y% + (YRadius! * SIN(i))
  24.   PSET (pointx%, pointy%), CLR&
  27.  
  28.  
  29. SUB GDK_EllipseFill (X%, Y%, XRadius!, YRadius!, CLR&, FillCLR&)
  30. IF XRadius! > YRadius! THEN Radius! = XRadius! ELSE Radius! = YRadius!
  31. MinStep! = 1 / (2 * 3.1415926535 * Radius!)
  32. FOR i = 0 TO 8 * ATN(1) STEP MinStep!
  33.   pointx% = X% + (XRadius! * COS(i))
  34.   pointy% = Y% + (YRadius! * SIN(i))
  35.   PSET (pointx%, pointy%), CLR&
  37. PAINT (X%, Y%), FillCLR&, CLR&
  39.  
  40.  
  41. SUB GDK_EllipseSegment (X%, Y%, XRadius!, YRadius!, Start!, End!, CLR&)
  42. Firstloop% = 0
  43. IF XRadius! > YRadius! THEN Radius! = XRadius! ELSE Radius! = YRadius!
  44. MinStep! = 1 / (2 * 3.1415926535 * Radius!)
  45. FOR i = Start! TO End! STEP MinStep!
  46.   pointx% = X% + (XRadius! * COS(i))
  47.   pointy% = Y% + (YRadius! * SIN(i))
  48.   IF Firstloop% = 0 THEN
  49.     LINE (X%, Y%)-(pointx%, pointy%), CLR&
  50.     Firstloop% = 1
  51.   END IF
  52.   PSET (pointx%, pointy%), CLR&
  54. LINE (X%, Y%)-(pointx%, pointy%), CLR&
  56.  
  57.  
  58. SUB GDK_EllipseSegmentFill (X%, Y%, XRadius!, YRadius!, Start!, End!, CLR&, FillClr&)
  59. Firstloop% = 0
  60. DIM Firstloopxy(2) AS INTEGER
  61. IF XRadius! > YRadius! THEN Radius! = XRadius! ELSE Radius! = YRadius!
  62. MinStep! = 1 / (2 * 3.1415926535 * Radius!)
  63. FOR i = Start! TO End! STEP MinStep!
  64.   pointx% = X% + (XRadius! * COS(i))
  65.   pointy% = Y% + (YRadius! * SIN(i))
  66.   IF Firstloop% = 0 THEN
  67.     Firstloopxy(0) = pointx%
  68.     Firstloopxy(1) = pointy%
  69.     LINE (X%, Y%)-(pointx%, pointy%), CLR&
  70.     Firstloop% = 1
  71.   END IF
  72.   PSET (pointx%, pointy%), CLR&
  74. LINE (X%, Y%)-(pointx%, pointy%), CLR&
  75. IF End! - Start! > 4 * ATN(1) THEN
  76.   i = (End! / 4)
  77.   pointx% = X% + (XRadius! * COS(i))
  78.   pointy% = Y% + (YRadius! * SIN(i))
  80. paintx% = (X% + Firstloopxy(0) + pointx%) / 3
  81. painty% = (Y% + Firstloopxy(1) + pointy%) / 3
  82. PAINT (paintx%, painty%), FillClr&, CLR&
  84.  
  85.  
  86. SUB GDK_Circle (X%, Y%, Radius!, CLR&)
  87. MinStep! = 1 / (2 * 3.1415926535 * Radius!)
  88. FOR i = 0 TO 8 * ATN(1) STEP MinStep!
  89.   pointx% = X% + (Radius! * COS(i))
  90.   pointy% = Y% + (Radius! * SIN(i))
  91.   PSET (pointx%, pointy%), CLR&
  94.  
  95.  
  96. SUB GDK_CircleFill (X%, Y%, Radius!, CLR&, FillCLR&)
  97. MinStep! = 1 / (2 * 3.1415926535 * Radius!)
  98. FOR i = 0 TO 8 * ATN(1) STEP MinStep!
  99.   pointx% = X% + (Radius! * COS(i))
  100.   pointy% = Y% + (Radius! * SIN(i))
  101.   PSET (pointx%, pointy%), CLR&
  103. PAINT (X%, Y%), FillCLR&, CLR&
  105.  
  106.  
  107. SUB GDK_CircleSegment (X%, Y%, Radius!, CLR&, CircleStart!, CircleEnd!)
  108. Firstloop% = 0
  109. MinStep! = 1 / (2 * 3.1415926535 * Radius!)
  110. FOR i = CircleStart! TO CircleEnd! STEP MinStep!
  111.   pointx% = X% + (Radius! * COS(i))
  112.   pointy% = Y% + (Radius! * SIN(i))
  113.   IF Firstloop% = 0 THEN
  114.     LINE (X%, Y%)-(pointx%, pointy%), CLR&
  115.     Firstloop% = 1
  116.   END IF
  117.   PSET (pointx%, pointy%), CLR&
  119. LINE (X%, Y%)-(pointx%, pointy%), CLR&
  121.  
  122.  
  123. SUB GDK_CircleSegmentFill (X%, Y%, Radius!, CLR&, FillClr&, CircleStart!, CircleEnd!)
  124. Firstloop% = 0
  125. DIM Firstloopxy(2) AS INTEGER
  126. MinStep! = 1 / (2 * 3.1415926535 * Radius!)
  127. FOR i = CircleStart! TO CircleEnd! STEP MinStep!
  128.   pointx% = X% + (Radius! * COS(i))
  129.   pointy% = Y% + (Radius! * SIN(i))
  130.   IF Firstloop% = 0 THEN
  131.     LINE (X%, Y%)-(pointx%, pointy%), CLR&
  132.     Firstloopxy(0) = pointx%
  133.     Firstloopxy(1) = pointy%
  134.     Firstloop% = 1
  135.   END IF
  136.   PSET (pointx%, pointy%), CLR&
  138. LINE (X%, Y%)-(pointx%, pointy%), CLR&
  139. IF CircleEnd! - CircleStart! > 4 * ATN(1) THEN
  140.   i = (CircleEnd! / 4)
  141.   pointx% = X% + (Radius! * COS(i))
  142.   pointy% = Y% + (Radius! * SIN(i))
  144. paintx% = (X% + Firstloopxy(0) + pointx%) / 3
  145. painty% = (Y% + Firstloopxy(1) + pointy%) / 3
  146. PAINT (paintx%, painty%), FillClr&, CLR&
  148.  
  149.  
  150. SUB GDK_Line (X%, Y%, XX%, YY%, CLR&, WIDTH%)
  151. IF WIDTH% MOD 2 = 0 THEN
  152.   FOR offset = -(WIDTH% / 2) TO WIDTH% / 2
  153.     LINE (X%, Y% + offset)-(XX%, YY% + offset), CLR&
  154.   NEXT
  156.   FOR offset = -((WIDTH% + 1) / 2) TO (WIDTH% + 1) / 2
  157.     LINE (X%, Y% + offset)-(XX%, YY% + offset), CLR&
  158.   NEXT
  161.  
  162.  
  163. SUB GDK_LineAngle (X%, Y%, Angle!, Length!, CLR&)
  164. x2% = X% + (Length! * COS(Angle!))
  165. y2% = Y% + (Length! * SIN(Angle!))
  166. LINE (X%, Y%)-(x2%, y2%), CLR&
  168.  
  169.  
  170. SUB GDK_LineH (X%, XX%, Y%, CLR&, WIDTH%)
  171. IF WIDTH% MOD 2 = 0 THEN
  172.   FOR offset = -(WIDTH% / 2) TO WIDTH% / 2
  173.     LINE (X%, Y% + offset)-(XX%, Y% + offset), CLR&
  174.   NEXT
  176.   FOR offset = -((WIDTH% + 1) / 2) TO (WIDTH% - 1) / 2
  177.     LINE (X%, Y% + offset)-(XX%, Y% + offset), CLR&
  178.   NEXT
  181.  
  182.  
  183. SUB GDK_LineV (Y%, YY%, X%, CLR&, WIDTH%)
  184. IF WIDTH% MOD 2 = 0 THEN
  185.   FOR offset = -(WIDTH% / 2) TO WIDTH% / 2
  186.     LINE (X% + offset, Y%)-(X% + offset, YY%), CLR&
  187.   NEXT
  189.   FOR offset = -((WIDTH% + 1) / 2) TO (WIDTH% - 1) / 2
  190.     LINE (X% + offset, Y%)-(X% + offset, YY%), CLR&
  191.   NEXT
  194.  
  195.  
  196. SUB GDK_Box (X%, Y%, Width%, Height%, CLR&)
  197. LINE (X%, Y%)-(X% + Width%, Y% + Height%), CLR&, B
  199.  
  200.  
  201. SUB GDK_BoxFill (X%, Y%, Width%, Height%, CLR&, FillCLR&)
  202. LINE (X%, Y%)-(X% + Width%, Y% + Height%), CLR&, B
  203. PAINT (X% + 2, Y% + 2), FillCLR&, CLR&
  205.  
  206.  
  207. SUB GDK_BoxXS (X%, Y%, Width%, Height%, XWidth%, CLR&, ShadeClr&)
  208. Oldclr& = CLR&
  209. FOR j% = 0 TO XWidth% - 1
  210.   IF _RED(CLR&) <= 255 AND _RED(ShadeClr&) > 0 THEN newred& = _RED(CLR&) - _RED(ShadeClr&)
  211.   IF _BLUE(CLR&) <= 255 AND _BLUE(ShadeClr&) > 0 THEN newblue& = _BLUE(CLR&) - _BLUE(ShadeClr&)
  212.   IF _GREEN(CLR&) <= 255 AND _GREEN(ShadeClr&) > 0 THEN newgreen& = _GREEN(CLR&) - _GREEN(ShadeClr&)
  213.   CLR& = _RGB(newred&, newgreen&, newblue&)
  214.   LINE (X% - j%, Y% - j%)-(X% + Width% + j%, Y% + Height% + j%), CLR&, B
  216. CLR& = Oldclr&
  218.  
  219.  
  220. SUB GDK_EllipseXS (X%, Y%, XRadius!, YRadius!, CLR&, Width%, ShadeClr&)
  221. FOR j% = 0 TO Width% - 1
  222.   IF _RED(CLR&) <= 255 AND _RED(ShadeClr&) > 0 THEN newred& = _RED(CLR&) - _RED(ShadeClr&)
  223.   IF _BLUE(CLR&) <= 255 AND _BLUE(ShadeClr&) > 0 THEN newblue& = _BLUE(CLR&) - _BLUE(ShadeClr&)
  224.   IF _GREEN(CLR&) <= 255 AND _GREEN(ShadeClr&) > 0 THEN newgreen& = _GREEN(CLR&) - _GREEN(ShadeClr&)
  225.   CLR& = _RGB(newred&, newgreen&, newblue&)
  226.   IF XRadius! > YRadius! THEN Radius! = XRadius! ELSE Radius! = YRadius!
  227.   MinStep! = 1 / (2 * 3.1415926535 * Radius!)
  228.   FOR i = 0 TO 8 * ATN(1) STEP MinStep!
  229.     pointx% = X% + (XRadius! * COS(i))
  230.     pointy% = Y% + (YRadius! * SIN(i))
  231.     PSET (pointx%, pointy%), CLR&
  232.   NEXT
  233.   XRadius! = XRadius! + 1
  234.   YRadius! = YRadius! + 1
  237.  
  238.  
  239. SUB GDK_CircleXS (X%, Y%, Radius!, CLR&, Width%, ShadeClr&)
  240. OldClr& = CLR&
  241. FOR j% = 0 TO Width% - 1
  242.   IF _RED(ShadeClr&) > 0 THEN newred& = _RED(CLR&) - _RED(ShadeClr&)
  243.   IF _BLUE(ShadeClr&) > 0 THEN newblue& = _BLUE(CLR&) - _BLUE(ShadeClr&)
  244.   IF _GREEN(ShadeClr&) > 0 THEN newgreen& = _GREEN(CLR&) - _GREEN(ShadeClr&)
  245.   CLR& = _RGB(newred&, newgreen&, newblue&)
  246.   MinStep! = 1 / (2 * 3.1415926535 * Radius!)
  247.   FOR i = 0 TO 8 * ATN(1) STEP MinStep!
  248.     pointx% = X% + (Radius! * COS(i))
  249.     pointy% = Y% + (Radius! * SIN(i))
  250.     PSET (pointx%, pointy%), CLR&
  251.   NEXT
  252.   Radius! = Radius! + 1
  254. CLR& = OldClr&
  256.  
  257.  
  258. SUB GDK_EllipseX (X%, Y%, XRadius!, YRadius!, CLR&, Width%)
  259. FOR j% = 0 TO Width% - 1
  260.   IF XRadius! > YRadius! THEN Radius! = XRadius! ELSE Radius! = YRadius!
  261.   MinStep! = 1 / (2 * 3.1415926535 * Radius!)
  262.   FOR i = 0 TO 8 * ATN(1) STEP MinStep!
  263.     pointx% = X% + (XRadius! * COS(i))
  264.     pointy% = Y% + (YRadius! * SIN(i))
  265.     PSET (pointx%, pointy%), CLR&
  266.   NEXT
  267.   XRadius! = XRadius! + 1
  268.   YRadius! = YRadius! + 1
  271.  
  272.  
  273. SUB GDK_CircleX (X%, Y%, Radius!, CLR&, Width%)
  274. MinStep! = 1 / (2 * 3.1415926535 * Radius!)
  275. FOR j% = 0 TO Width% - 1
  276.   FOR i = 0 TO 8 * ATN(1) STEP MinStep!
  277.     pointx% = X% + (Radius! * COS(i))
  278.     pointy% = Y% + (Radius! * SIN(i))
  279.     PSET (pointx%, pointy%), CLR&
  280.   NEXT
  281.   Radius! = Radius! + 1
  284.  

Unseen
Title: Re: Line + Draw
Post by: OldMoses on September 27, 2020, 04:12:57 pm
I did something very similar to Fellippe's "box" subroutine for making buttons in my star system simulator. SierraKen's calculator buttons inspired me to add a "beveling" SUB to add some 3D pop to them, also similar to the frame examples above. I also made it so that the button label would show any associated hotkeys in a highlight color. Easy to change the position & parameters of the buttons.

All that's required is to call:
Con_Blok x position, y position, width, height, button label, hotkey position, button color

Code: QB64: [Select]
  1. A& = _NEWIMAGE(600, 400, 32)
  3. 'DIM SHARED f&
  4. 'f& = _LOADFONT("c:\windows\fonts\arialbd.ttf", 16, "monospace")
  5. Con_Blok 50, 50, 80, 48, "Sit", 1, &HFF00FF00
  6. Con_Blok 150, 50, 80, 48, "Stay", 2, &HFF0000FF
  7. Con_Blok 300, 150, 80, 48, "Fetch", 1, &HFF04500FF
  8. Con_Blok 500, 320, 80, 48, "Roll", 1, &HFFFF00FF
  9.  
  10.  
  11.  
  12. SUB Con_Blok (xpos AS INTEGER, ypos AS INTEGER, xsiz AS INTEGER, ysiz AS INTEGER, label AS STRING, high AS INTEGER, col AS _UNSIGNED LONG)
  13.  
  14.     'Create control block
  15.     CN& = _NEWIMAGE(xsiz, ysiz, 32)
  16.     _DEST CN&
  17.     COLOR , col
  18.     CLS
  19.     BevelB xsiz, ysiz, col
  21.     x = LEN(label)
  22.     IF f& > 0 THEN '                                            if font is available
  23.         sx = (xsiz / 2) - (x * _FONTWIDTH(f&)) / 3
  24.         sy = ysiz / 2 - 6
  25.         _FONT f&
  26.     ELSE '                                                      if not
  27.         sx = xsiz / 2 - x * 4: sy = ysiz / 2 - 8
  28.     END IF
  29.     FOR p = 1 TO x '                                            iterate through label characters
  30.         IF p = high THEN '                                      print hotkey highlight color (red) else (black)
  31.             COLOR &HFFFF0000
  32.         ELSE
  33.             COLOR &HFF000000
  34.         END IF
  35.         IF col = &HFFC80000 THEN COLOR 15
  36.         _PRINTSTRING (sx + (p - 1) * 8, sy), MID$(label, p, 1)
  37.     NEXT p
  38.     _FONT 16
  39.     _PUTIMAGE (xpos, ypos), CN&, A&
  40.     _FREEIMAGE CN&
  41.  
  42. END SUB 'Con_Blok
  43.  
  44. SUB BevelB (xsiz AS INTEGER, ysiz AS INTEGER, col AS _UNSIGNED LONG)
  45.  
  46.     'Create control button bevels for 3D effect - called from Con_Blok
  47.     'Inspiration and basic algorithm by SierraKen
  48.     SELECT CASE ysiz
  49.         CASE IS <= xsiz
  50.             brdr = INT(ysiz / 4)
  51.         CASE IS > xsiz
  52.             brdr = INT(xsiz / 4)
  53.     END SELECT
  54.     FOR bb = 0 TO brdr
  55.         c = c + 100 / brdr
  56.         LINE (0 + bb, 0 + bb)-(xsiz - 1 - bb, ysiz - 1 - bb), _RGBA32(_RED32(col) - 100 + c, _GREEN32(col) - 100 + c, _BLUE32(col) - 100 + c, _ALPHA(col)), B
  57.     NEXT bb
  58.  
  59. END SUB 'BevelB
  60.  
Title: Re: Line + Draw
Post by: bplus on September 27, 2020, 04:22:19 pm
@Unseen Machine  yeah, yours look like 3D pads sticking up from a surface. You might like the fill triangle I used for thic line, no PAINT so no possible interference by other objects.

@OldMoses yeah I like those buttons too.
Title: Re: Line + Draw
Post by: bplus on September 27, 2020, 04:48:34 pm
@carloscordeiro

Seeing as you've just begun using graphics screens you might like the QB4.5 colors used in SCREEN 12 converted to _RGB32() colors for your custom designed screen made with _NEWIMAGE

You can tinker with the numbers but I use an qb~& FUNCTION for 0-15 colors converted to 32 bit EGB
Code: QB64: [Select]
  2.     SELECT CASE n
  3.         CASE 0: qb~& = &HFF000000
  4.         CASE 1: qb~& = &HFF000088
  5.         CASE 2: qb~& = &HFF008800
  6.         CASE 3: qb~& = &HFF008888
  7.         CASE 4: qb~& = &HFF880000
  8.         CASE 5: qb~& = &HFF880088
  9.         CASE 6: qb~& = &HFF888800
  10.         CASE 7: qb~& = &HFFCCCCCC
  11.         CASE 8: qb~& = &HFF888888
  12.         CASE 9: qb~& = &HFF0000FF
  13.         CASE 10: qb~& = &HFF00FF00
  14.         CASE 11: qb~& = &HFF00FFFF
  15.         CASE 12: qb~& = &HFFFF0000
  16.         CASE 13: qb~& = &HFFFF00FF
  17.         CASE 14: qb~& = &HFFFFFF00
  18.         CASE 15: qb~& = &HFFFFFFFF
  19.     END SELECT
  21.  

If I want red 12, I use qb~&(12), blue qb~&(9)....

the ~& are the suffix to _UNSIGNED LONG the best type to use for 32 bit colors.

So to PRINT s$ in red on black:
COLOR qb~&(12), qb~&(0)
PRINT s$

What is also cool is you can adjust the colors to your liking! So you can get a real orange and green.
Title: Re: Line + Draw
Post by: carloscordeiro on September 27, 2020, 05:56:39 pm
I will keep the two simpler ones for the box I want.

OldMoses:

Code: QB64: [Select]
SCREEN 12
thick = 5
FOR x = 0 TO thick
    LINE (6 + x, 5 + x)-(632 - x, 462 - x), 11, B ' box or frame
    'LINE (7, 6)-(631, 461), 11, B  'Slightly thicker lines
    LINE (6 + x, 5 + x)-(632 - x, 50 - x), 11, B
NEXT x

And Felipe:

Código: QB64 : [Selecionar]
TELA _NOVAIMAGEM ( 800 , 600 , 32 )
caixa 0 , 0 , 200 , 130 , 10 , _RGB32 ( 183 , 133 , 33 )
SUB box ( x , y , w , h , espessura , a cor AS _UNSIGNED LONG )
    LINE ( x , y ) - STEP ( w , h ) , theColor , BF
    LINHA ( x + espessura , y + espessura ) - PASSO ( w - espessura * 2 , h - espessura * 2 ) , _BACKGROUNDCOLOR , BF
END SUB

Felipe's line code is great.
Simple and with few lines.

Thank you all

Carlos
Title: Re: Line + Draw
Post by: TempodiBasic on September 27, 2020, 06:07:40 pm
Hi
I must admit that all you guys are very active and have so fantastic ideas to develope the request of  carloscordeiro!
I find very interesting your solutions, only Bplus have posted nothing!
However I post my raw two cents :
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2. Makeframe 100, 300, 500, 350, 5, _RGB32(255, 0, 0)
  3. Makeframe 70, 400, 700, 10, 5, _RGB32(0, 150, 0)
  4. Makeframe 150, 400, 170, 10, 5, _RGB32(50, 50, 50)
  5. MakeLine 10, 300, 700, 400, 5, _RGB32(10, 100, 255)
  6. MakeLine 100, 200, 500, 400, 4, _RGB32(100, 10, 55)
  8.  
  9. SUB Makeframe (xStart, yStart, xEnd, yEnd, Thik, C AS _UNSIGNED LONG)
  10.     IF xStart > xEnd THEN SWAP xStart, xEnd
  11.     IF yStart > yEnd THEN SWAP yStart, yEnd
  12.     LINE (xStart, yStart)-(xEnd, yEnd), C, B
  13.     LINE (xStart + Thik, yStart + Thik)-(xEnd - Thik, yEnd - Thik), C, B
  14.     PAINT (xStart + INT(Thik / 2), yStart + INT(Thik / 2)), C, POINT(xStart, yStart)
  16.  
  17. SUB MakeLine (xStart, yStart, xEnd, yEnd, Thik, C AS _UNSIGNED LONG)
  18.     LINE (xStart, yStart)-(xEnd, yEnd), C
  19.     LINE (xStart, yStart + Thik)-(xEnd, yEnd + Thik), C
  20.     LINE (xStart, yStart)-(xStart, yStart + Thik), C
  21.     LINE (xEnd, yEnd)-(xEnd, yEnd + Thik), C
  22.     PAINT (xStart + INT(Thik / 2), yStart + INT(Thik / 2)), C, POINT(xStart, yStart)
  24.  
  25. SUB grid (xMin, yMin, xMax, yMax, xDelta, yDelta, C AS _UNSIGNED LONG)
  26.     'this sub creates a costumizable grid on the screen
  27.     FOR a = xMin TO xMax STEP xDelta
  28.         LINE (a, yMin)-(a, yMax), C
  29.     NEXT
  30.     FOR a = yMin TO yMax STEP yDelta
  31.         LINE (xMin, a)-(xMax, a), C
  32.     NEXT

@carloscordeiro
I must point out that with Draw you can increase only one dimension of the line that you draw...
see here this code show this concept.
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2. grid 1, 800, 10, 1, 600, 5, _RGB32(0, 155, 0)
  3. LINE (100, 100)-(500, 100), _RGB32(255, 0, 0)
  4. DRAW "s16bm100,200m500,200"
  5. DRAW "s16bm100,300r100" ' the effect is on the direction of movement s4 = 1 pixel
  6. DRAW "s32bm100,350r50" ' s8= 2 pixels, s16 = 4 pixels, s32 = 8 pixels
  7. LINE (100, 400)-(500, 400), _RGB32(255, 0, 0)
  9.  
  10. SUB grid (xMin, yMin, xMax, yMax, xDelta, yDelta, C AS _UNSIGNED LONG)
  11.     'this sub creates a costumizable grid on the screen
  12.     FOR a = xMin TO xMax STEP xDelta
  13.         LINE (a, yMin)-(a, yMax), C
  14.     NEXT
  15.     FOR a = yMin TO yMax STEP yDelta
  16.         LINE (xMin, a)-(xMax, a), C
  17.     NEXT

Thanks to read
Title: Re: Line + Draw
Post by: carloscordeiro on September 27, 2020, 07:21:48 pm


"  TempodiBasic Thanks to read "


I read and executed all the codes

Title: Re: Line + Draw
Post by: bplus on September 27, 2020, 07:45:06 pm
Quote
I find very interesting your solutions, only Bplus have posted nothing!

@TempodiBasic  what?

What do you mean by this? I doubt it is how it looks. :)
Title: Re: Line + Draw
Post by: carloscordeiro on September 27, 2020, 08:30:37 pm
Bplus
Why the error in Felipe's box?
Title: Re: Line + Draw
Post by: bplus on September 27, 2020, 08:39:09 pm
@carloscordeiro

All SUBs and FUNCTIONs have to be listed after Main code, data statements and or GOSUBS from main code.

Should be OK to cut and paste the SUB lower or last in code.

Caution: Fellippe's box blacks out the interior space but if you use it first and then fill in the space with text you should be OK.

Old Moses has just what you would like I think, he did it without SUBs or FUNCTIONs which I don't think you are use to yet.
Title: Re: Line + Draw
Post by: TempodiBasic on September 28, 2020, 01:47:57 pm
@bplus
Quote
What do you mean by this?

Yes so we can say that this is a joke, can we?
Title: Re: Line + Draw
Post by: bplus on September 28, 2020, 01:51:08 pm
Quote from: TempodiBasic on September 28, 2020, 01:47:57 pm
@bplus
Yes so we can say that this is a joke, can we?

LOL OK but you had me wondering :)
Text Only | Text with Attachments