One more pattern challenge

[SMcNeill]

Here's a nice strange little pattern I created while playing around a bit earlier.  I thought I'd share it and see how long it'd take bplus (or anyone else) to reproduce it.

Trickiest part (for me, at least), was sorting out how to color the circles all pretty, as they are.  :P

[bplus]

Yes! Very nice coloring on circles, but what's happening with some of the large triangles?

OK, I'll start thinking about those circles :D

[SMcNeill]

To be honest, I have no idea what the heck is up with the left triangle side.  It’s  created via a series of lines and then paint filled.  As far as I can tell, there’s absolutely no reason for them to leave those black streaks in them. 

[Pete]

I tried out some code, but the pattern was too tight for my 15" monitor; so I hooked up my 27" 1950's TV/Monitor. Maybe I'm just missing a few circle statements, but this is the closet I could come to Steve's image...

  [ You are not allowed to view this attachment ]  

Pete

[Ashish]

Challenge accepted Steve! :D
I did this in about 3-4 hrs.

Code: QB64: [Select]

1. _TITLE "Pattern Challenge For Steve"
2. SCREEN _NEWIMAGE(700, 700, 32)
3. DO
4.     _LIMIT 40
5. LOOP
6. SUB _GL ()
7.     _glLineWidth 6.0
8.     FOR y = 1 TO -1 STEP -0.5
9.         IF k = 0 THEN
10.             f = 0
11.             k = 1
12.         ELSE
13.             k = 0
14.             f = 0.5
15.         END IF
16.         FOR x = -1 + f TO 1 + f STEP 1
17.             pattern x, y, 0.5, 3
18.         NEXT
19.     NEXT
20.     _glRotatef -30, 0, 1, 0
21. END SUB
22. SUB pattern (x, y, r, N)
23.     IF N > 7 THEN EXIT SUB
24.     gl_npoly x, y, r, 300
25.     gl_npoly x, y, r, N
26.     __x = ((x + r) + (x + r * COS(_PI(2) / N))) * 0.5
27.     __y = (y + (y + r * SIN(_PI(2) / N))) * 0.5
28.     nr = SQR((__x - x) ^ 2 + (__y - y) ^ 2)
29.     pattern x, y, nr - (1 / 50), N + 1 'nr - (1/(d*(2/width)))
30. END SUB
31. SUB gl_npoly (x, y, r, NOV)
32.     IF NOV MOD 2 = 1 THEN d = 1 / (2 * NOV)
33.     IF NOV = 3 THEN _glColor3f 1, 1, 0
34.     IF NOV = 4 THEN _glColor3f 0.5, 0.5, 0.5
35.     IF NOV = 5 THEN _glColor3f 1, 0, 0
36.     IF NOV = 6 THEN _glColor3f 1, 1, 1
37.     IF NOV = 7 THEN _glColor3f 0, 0, 1
38.     _glBegin _GL_LINE_LOOP
39.     FOR i = _PI(d) TO _PI(2 + d) STEP _PI(2) / NOV
40.         IF NOV > 7 THEN
41.             c~& = hsb(ABS(_R2D(i)), 1, 0.6, 255)
42.             _glColor3f _RED(c~&) / 255, _GREEN(c~&) / 255, _BLUE(c~&) / 255
43.         END IF
44.         _glVertex2f x + r * COS(i), y + r * SIN(i)
45.     NEXT
46.     _glEnd
47. END SUB
48. FUNCTION hsb~& (__H AS _FLOAT, __S AS _FLOAT, __B AS _FLOAT, A AS _FLOAT)
49.     DIM H AS _FLOAT, S AS _FLOAT, B AS _FLOAT
50.  
51.     H = __H 'map(__H, 0, 255, 0, 360)
52.     S = __S 'map(__S, 0, 255, 0, 1)
53.     B = __B ' map(__B, 0, 255, 0, 1)
54.  
55.     IF S = 0 THEN
56.         hsb~& = _RGBA32(B * 255, B * 255, B * 255, A)
57.         EXIT FUNCTION
58.     END IF
59.  
60.     DIM fmx AS _FLOAT, fmn AS _FLOAT
61.     DIM fmd AS _FLOAT, iSextant AS INTEGER
62.     DIM imx AS INTEGER, imd AS INTEGER, imn AS INTEGER
63.  
64.     IF B > .5 THEN
65.         fmx = B - (B * S) + S
66.         fmn = B + (B * S) - S
67.     ELSE
68.         fmx = B + (B * S)
69.         fmn = B - (B * S)
70.     END IF
71.  
72.     iSextant = INT(H / 60)
73.  
74.     IF H >= 300 THEN
75.         H = H - 360
76.     END IF
77.  
78.     H = H / 60
79.     H = H - (2 * INT(((iSextant + 1) MOD 6) / 2))
80.  
81.     IF iSextant MOD 2 = 0 THEN
82.         fmd = (H * (fmx - fmn)) + fmn
83.     ELSE
84.         fmd = fmn - (H * (fmx - fmn))
85.     END IF
86.  
87.     imx = _ROUND(fmx * 255)
88.     imd = _ROUND(fmd * 255)
89.     imn = _ROUND(fmn * 255)
90.  
91.     SELECT CASE INT(iSextant)
92.         CASE 1
93.             hsb~& = _RGBA32(imd, imx, imn, A)
94.         CASE 2
95.             hsb~& = _RGBA32(imn, imx, imd, A)
96.         CASE 3
97.             hsb~& = _RGBA32(imn, imd, imx, A)
98.         CASE 4
99.             hsb~& = _RGBA32(imd, imn, imx, A)
100.         CASE 5
101.             hsb~& = _RGBA32(imx, imn, imd, A)
102.         CASE ELSE
103.             hsb~& = _RGBA32(imx, imd, imn, A)
104.     END SELECT
105.  
106. END FUNCTION
107.  

[Pete]

FAIL! The colors are wrong and patterns are missing inside the red pentagons.

OK, I'm just busting your balloons. You did remarkably well in just 100 lines of code to approximate the pattern and reproduce some of the colors correctly. It probably only took you an hour, to boot. (I'm on Windows 10, and an hour to boot is a good day!)

Pete

 

[Ashish]

Ok. I fixed the color. It is not missing the pattern. The shapes are just overlapping each other..... and I think it must be within the rule of this
challenge.

Code: QB64: [Select]

1. _TITLE "Pattern Challenge For Steve"
2. SCREEN _NEWIMAGE(600, 600, 32)
3. DIM SHARED w
4. w = 0.02
5. DO
6.     _LIMIT 40
7. LOOP
8. SUB _GL ()
9.     _glLineWidth (_WIDTH / 2) * w
10.     _glRotatef -90, 0, 0, 1
11.     FOR y = 1 TO -1 STEP -0.5
12.         IF k = 0 THEN
13.             f = 0
14.             k = 1
15.         ELSE
16.             k = 0
17.             f = 0.5
18.         END IF
19.         FOR x = -1 + f TO 1 + f STEP 1
20.             pattern x, y, 0.5, 3
21.         NEXT
22.     NEXT
23.  
24. END SUB
25. SUB pattern (x, y, r, N)
26.     IF N > 7 THEN EXIT SUB
27.     gl_npoly x, y, r, 300
28.     gl_npoly x, y, r, N
29.     __x = ((x + r) + (x + r * COS(_PI(2) / N))) * 0.5
30.     __y = (y + (y + r * SIN(_PI(2) / N))) * 0.5
31.     nr = SQR((__x - x) ^ 2 + (__y - y) ^ 2)
32.     pattern x, y, nr - w, N + 1 'nr - (1/(d*(2/width)))
33. END SUB
34. SUB gl_npoly (x, y, r, NOV)
35.     IF NOV MOD 2 = 1 THEN d = 2 / 3
36.     IF NOV = 3 THEN _glColor3f 1, 1, 0
37.     IF NOV = 4 THEN _glColor3f 0.5, 0.5, 0.5
38.     IF NOV = 5 THEN _glColor3f 1, 0, 0
39.     IF NOV = 6 THEN _glColor3f 1, 1, 1
40.     IF NOV = 7 THEN _glColor3f 0, 0, 1
41.     _glBegin _GL_LINE_LOOP
42.     FOR i = _PI(d) TO _PI(2 + d) STEP _PI(2) / NOV
43.         IF NOV > 7 THEN
44.             c~& = hsb(ABS(_R2D(i)), 1, 0.6, 255)
45.             _glColor3f _RED(c~&) / 255, _GREEN(c~&) / 255, _BLUE(c~&) / 255
46.         END IF
47.         _glVertex2f x + r * COS(i), y + r * SIN(i)
48.     NEXT
49.     _glEnd
50. END SUB
51. FUNCTION hsb~& (__H AS _FLOAT, __S AS _FLOAT, __B AS _FLOAT, A AS _FLOAT)
52.     DIM H AS _FLOAT, S AS _FLOAT, B AS _FLOAT
53.  
54.     H = __H 'map(__H, 0, 255, 0, 360)
55.     S = __S 'map(__S, 0, 255, 0, 1)
56.     B = __B ' map(__B, 0, 255, 0, 1)
57.  
58.     IF S = 0 THEN
59.         hsb~& = _RGBA32(B * 255, B * 255, B * 255, A)
60.         EXIT FUNCTION
61.     END IF
62.  
63.     DIM fmx AS _FLOAT, fmn AS _FLOAT
64.     DIM fmd AS _FLOAT, iSextant AS INTEGER
65.     DIM imx AS INTEGER, imd AS INTEGER, imn AS INTEGER
66.  
67.     IF B > .5 THEN
68.         fmx = B - (B * S) + S
69.         fmn = B + (B * S) - S
70.     ELSE
71.         fmx = B + (B * S)
72.         fmn = B - (B * S)
73.     END IF
74.  
75.     iSextant = INT(H / 60)
76.  
77.     IF H >= 300 THEN
78.         H = H - 360
79.     END IF
80.  
81.     H = H / 60
82.     H = H - (2 * INT(((iSextant + 1) MOD 6) / 2))
83.  
84.     IF iSextant MOD 2 = 0 THEN
85.         fmd = (H * (fmx - fmn)) + fmn
86.     ELSE
87.         fmd = fmn - (H * (fmx - fmn))
88.     END IF
89.  
90.     imx = _ROUND(fmx * 255)
91.     imd = _ROUND(fmd * 255)
92.     imn = _ROUND(fmn * 255)
93.  
94.     SELECT CASE INT(iSextant)
95.         CASE 1
96.             hsb~& = _RGBA32(imd, imx, imn, A)
97.         CASE 2
98.             hsb~& = _RGBA32(imn, imx, imd, A)
99.         CASE 3
100.             hsb~& = _RGBA32(imn, imd, imx, A)
101.         CASE 4
102.             hsb~& = _RGBA32(imd, imn, imx, A)
103.         CASE 5
104.             hsb~& = _RGBA32(imx, imn, imd, A)
105.         CASE ELSE
106.             hsb~& = _RGBA32(imx, imd, imn, A)
107.     END SELECT
108.  
109. END FUNCTION
110.  

[SMcNeill]

Excellent use of _GL commands, Ashish!  To be honest, I'd considered making use of them myself, to color my main circle, but I didn't.  Instead, I used a much more "BASIC" method:

Code: QB64: [Select]

1. _DEFINE A-Z AS _FLOAT
2. DIM BlendedScreen AS LONG
3.  
4. ViewScreen = _NEWIMAGE(800, 800, 32): SCREEN ViewScreen
5.  
6.  
7. CreateBlendedScreen 'Create a blended screen of colors
8. SCREEN BlendedScreen 'Display that  screen
9. SLEEP 'Pause so folks can view that screen
10.  
11. 'For fun, add some fontage to the screen also
12. COLOR &HFF000000, 0 'Black with transparent background
13. f = _LOADFONT("cour.ttf", 48)
14. IF f > 0 THEN
15.     _FONT f
16.     w = _PRINTWIDTH("Hello World! We love STEVE! He's Sooo AWESOME!")
17.     sw = _WIDTH: sh = _HEIGHT
18.     _PRINTSTRING ((sw - w) \ 2 + 1, 0), "Hello World! We love STEVE! He's Sooo AWESOME!"
19. END IF
20.  
21. SLEEP 'Give the user the time to see our nice screen pattern which we're going to "warp" to our circle.
22.  
23.  
24. SCREEN ViewScreen 'Swap back over to our main screen
25. CreateCircle 400, 400, 400, 100 'Use that blended screen as reference so we can plot/color our circle in that same pattern
26. SLEEP 'Pause to show the circle before ending the demo
27. SYSTEM
28.  
29.  
30. SUB CreateCircle (Xcenter, YCenter, radius AS LONG, width AS LONG)
31.     SHARED BlendedScreen AS LONG
32.     p = _PI(2) * radius
33.     tempimage = _NEWIMAGE(p, width, 32)
34.     _PUTIMAGE , BlendedScreen, tempimage
35.     _SOURCE tempimage
36.     FOR i = 0 TO p - 1 STEP .25
37.         FOR w = 0 TO width - 1
38.             ai = 360 / p
39.             a = _D2R(ai * i)
40.             x = Xcenter - SIN(a) * (radius - w)
41.             y = YCenter + COS(a) * (radius - w)
42.             PSET (x, y), POINT(i, w)
43.         NEXT
44.     NEXT
45.     _SOURCE 0
46.     _FREEIMAGE tempimage
47. END SUB
48.  
49.  
50. SUB CreateBlendedScreen
51.     SHARED BlendedScreen AS LONG
52.     IF NOT BlendedScreen THEN BlendedScreen = _NEWIMAGE(1536, 50, 32) ELSE EXIT SUB
53.     'step from red to green
54.     DIM kolor AS _FLOAT, i AS _FLOAT
55.     _DEST BlendedScreen
56.     FOR i = 0 TO 255
57.         kolor = kolor + 1
58.         LINE (i, 0)-STEP(0, 99), _RGB32(255, kolor, 0)
59.     NEXT
60.     FOR i = 256 TO 511
61.         kolor = kolor - 1
62.         LINE (i, 0)-STEP(0, 99), _RGB32(kolor, 255, 0)
63.     NEXT
64.     FOR i = 512 TO 767
65.         kolor = kolor + 1
66.         LINE (i, 0)-STEP(0, 99), _RGB32(0, 255, kolor)
67.     NEXT
68.     FOR i = 768 TO 1023
69.         kolor = kolor - 1
70.         LINE (i, 0)-STEP(0, 99), _RGB32(0, kolor, 255)
71.     NEXT
72.     FOR i = 1024 TO 1279
73.         kolor = kolor + 1
74.         LINE (i, 0)-STEP(0, 99), _RGB32(kolor, 0, 255)
75.     NEXT
76.     FOR i = 1280 TO 1535
77.         kolor = kolor - 1
78.         LINE (i, 0)-STEP(0, 99), _RGB32(255, 0, kolor)
79.     NEXT
80.     _DEST ViewScreen
81. END SUB
82.  

The magic all takes place inside the CreateCircle sub, where it basically reads the flat square screen, and then warps its contents and plots them onto a circular surface for us.

As you can see from the little demo above, it doesn't actually blend colors; it maps square points to a circular pattern, which allows us to bend text to fit the circle and look natural.

(If you don't have the "courier new, regular" font on your system, kindly change the line which loads it so that it'll point to a font of your choosing so the demo can display properly and in all its glory.)

[SMcNeill]

Ok. I fixed the color. It is not missing the pattern. The shapes are just overlapping each other..... and I think it must be within the rule of this
challenge.

Only thing I really noticed that seemed off is just a little math.  Your polygons are from the outer ring of your circle and not the inner ring.  ;)


Now, for some honesty on my part:  The screenshot produced wasn't the actual results which I was looking for -- it's a glitched pattern which I thought was kinda cute and decided to share.

The glitchy code to produce our perfectly imperfect pattern is this one:

Code: QB64: [Select]

1. _DEFINE A-Z AS _FLOAT
2.  
3. DIM SHARED ViewScreen, BlendedScreen
4. CONST Gold = &HFFFFD700~& ' _RGB32(255,215,0)
5. CONST Silver = &HFFC0C0C0~& ' _RGB32(192,192,192)
6.  
7. ViewScreen = _NEWIMAGE(800, 800, 32): SCREEN ViewScreen
8. BlendedScreen = _NEWIMAGE(1536, 100, 32)
9. CircleScreen = _NEWIMAGE(400, 400, 32) '200 radius outer circle
10.  
11. CreateBlendedScreen
12.  
13. width = 6
14. DIM k(3 TO 7) AS _UNSIGNED LONG
15. k(3) = Gold
16. k(4) = Silver
17. k(5) = &HFFFF0000 'Red
18. k(6) = &HFFFFFFFF 'White
19. k(7) = &HFF0000FF 'Blue
20.  
21. FOR x = 200 TO 600 STEP 400
22.     FOR y = 200 TO 600 STEP 400
23.         length = 200
24.         FOR i = 3 TO 7
25.             DrawPattern x, y, length, width, i, k(i)
26.             length = (length - 2 * width) * COS(_PI / i) - 1
27.         NEXT
28.     NEXT
29. NEXT
30.  
31. SLEEP
32. END
33.  
34. SUB DrawPattern (Xcenter, Ycenter, Radius, Width, N, Kolor AS _UNSIGNED LONG)
35.     CreateCircleScreen Xcenter, Ycenter, Radius, Width
36.     DisplayImage ViewScreen, Xcenter, Ycenter, 0, 0
37.     CreatePolygon Xcenter, Ycenter, Radius - Width, Width, N, Kolor
38. END SUB
39.  
40. SUB CreatePolygon (Xcenter, YCenter, Radius AS LONG, width AS LONG, N AS LONG, Kolor AS _UNSIGNED LONG)
41.     a = _PI(2) / N
42.     FOR i = 0 TO 1
43.         x = 0
44.         IF i THEN Radius = Radius - width
45.         FOR p = 0 TO _PI(2) STEP a
46.             IF x THEN oldx = x: oldy = y
47.             x = Xcenter + SIN(p) * Radius
48.             y = YCenter + COS(p) * Radius
49.             IF oldx THEN LINE (oldx, oldy)-(x, y), Kolor
50.         NEXT
51.         x2 = Xcenter + SIN(p) * Radius
52.         y2 = YCenter + COS(p) * Radius
53.         LINE (x, y)-(x2, y2), Kolor
54.     NEXT
55.     x = Xcenter + SIN(p) * (Radius + width / 2)
56.     y = YCenter + COS(p) * (Radius + width / 2)
57.     PAINT (x, y), Kolor
58. END SUB
59.  
60. SUB CreateCircleScreen (Xcenter, YCenter, radius AS LONG, width AS LONG)
61.     'CreateCircleScreen = _NEWIMAGE(radius * 2, radius * 2, 32)
62.     '_DEST CreateCircleScreen
63.     p = _PI(2) * radius
64.     tempimage = _NEWIMAGE(p, width, 32)
65.     _PUTIMAGE , BlendedScreen, tempimage
66.     _SOURCE tempimage
67.     FOR i = 0 TO p - 1 STEP .25
68.         FOR w = 0 TO width - 1
69.             ai = 360 / p
70.             a = _D2R(ai * i)
71.             x = Xcenter + SIN(a) * (radius - w)
72.             y = YCenter + COS(a) * (radius - w)
73.             PSET (x, y), POINT(i, w)
74.         NEXT
75.     NEXT
76.     _SOURCE ViewScreen
77.     ' _DEST ViewScreen
78.     _FREEIMAGE tempimage
79. END SUB
80.  
81.  
82. SUB CreateBlendedScreen
83.     'step from red to green
84.     DIM kolor AS _FLOAT, i AS _FLOAT
85.     _DEST BlendedScreen
86.     FOR i = 0 TO 255
87.         kolor = kolor + 1
88.         LINE (i, 0)-STEP(0, 99), _RGB32(255, kolor, 0)
89.     NEXT
90.     FOR i = 256 TO 511
91.         kolor = kolor - 1
92.         LINE (i, 0)-STEP(0, 99), _RGB32(kolor, 255, 0)
93.     NEXT
94.     FOR i = 512 TO 767
95.         kolor = kolor + 1
96.         LINE (i, 0)-STEP(0, 99), _RGB32(0, 255, kolor)
97.     NEXT
98.     FOR i = 768 TO 1023
99.         kolor = kolor - 1
100.         LINE (i, 0)-STEP(0, 99), _RGB32(0, kolor, 255)
101.     NEXT
102.     FOR i = 1024 TO 1279
103.         kolor = kolor + 1
104.         LINE (i, 0)-STEP(0, 99), _RGB32(kolor, 0, 255)
105.     NEXT
106.     FOR i = 1280 TO 1535
107.         kolor = kolor - 1
108.         LINE (i, 0)-STEP(0, 99), _RGB32(255, 0, kolor)
109.     NEXT
110.     _DEST ViewScreen
111. END SUB
112.  
113.  
114. SUB DisplayImage (Image AS LONG, x AS INTEGER, y AS INTEGER, angle AS SINGLE, mode AS _BYTE)
115.     'Image is the image handle which we use to reference our image.
116.     'x,y is the X/Y coordinates where we want the image to be at on the screen.
117.     'angle is the angle which we wish to rotate the image.
118.     'mode determines HOW we place the image at point X,Y.
119.     'Mode 0 we center the image at point X,Y
120.     'Mode 1 we place the Top Left corner of oour image at point X,Y
121.     'Mode 2 is Bottom Left
122.     'Mode 3 is Top Right
123.     'Mode 4 is Bottom Right
124.  
125.  
126.     DIM px(3) AS INTEGER, py(3) AS INTEGER, w AS INTEGER, h AS INTEGER
127.     DIM sinr AS SINGLE, cosr AS SINGLE, i AS _BYTE
128.     w = _WIDTH(Image): h = _HEIGHT(Image)
129.     SELECT CASE mode
130.         CASE 0 'center
131.             px(0) = -w \ 2: py(0) = -h \ 2: px(3) = w \ 2: py(3) = -h \ 2
132.             px(1) = -w \ 2: py(1) = h \ 2: px(2) = w \ 2: py(2) = h \ 2
133.         CASE 1 'top left
134.             px(0) = 0: py(0) = 0: px(3) = w: py(3) = 0
135.             px(1) = 0: py(1) = h: px(2) = w: py(2) = h
136.         CASE 2 'bottom left
137.             px(0) = 0: py(0) = -h: px(3) = w: py(3) = -h
138.             px(1) = 0: py(1) = 0: px(2) = w: py(2) = 0
139.         CASE 3 'top right
140.             px(0) = -w: py(0) = 0: px(3) = 0: py(3) = 0
141.             px(1) = -w: py(1) = h: px(2) = 0: py(2) = h
142.         CASE 4 'bottom right
143.             px(0) = -w: py(0) = -h: px(3) = 0: py(3) = -h
144.             px(1) = -w: py(1) = 0: px(2) = 0: py(2) = 0
145.     END SELECT
146.     sinr = SIN(angle / 57.2957795131): cosr = COS(angle / 57.2957795131)
147.     FOR i = 0 TO 3
148.         x2 = (px(i) * cosr + sinr * py(i)) + x: y2 = (py(i) * cosr - px(i) * sinr) + y
149.         px(i) = x2: py(i) = y2
150.     NEXT
151.     _MAPTRIANGLE (0, 0)-(0, h - 1)-(w - 1, h - 1), Image TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
152.     _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. END SUB

The actual pattern I was looking for is this one (which requires only a single line remarked out):

Code: [Select]

_DEFINE A-Z AS _FLOAT

DIM SHARED ViewScreen, BlendedScreen
CONST Gold = &HFFFFD700~& ' _RGB32(255,215,0)
CONST Silver = &HFFC0C0C0~& ' _RGB32(192,192,192)

ViewScreen = _NEWIMAGE(800, 800, 32): SCREEN ViewScreen
BlendedScreen = _NEWIMAGE(1536, 100, 32)
CircleScreen = _NEWIMAGE(400, 400, 32) '200 radius outer circle

CreateBlendedScreen

width = 6
DIM k(3 TO 7) AS _UNSIGNED LONG
k(3) = Gold
k(4) = Silver
k(5) = &HFFFF0000 'Red
k(6) = &HFFFFFFFF 'White
k(7) = &HFF0000FF 'Blue

FOR x = 200 TO 600 STEP 400
    FOR y = 200 TO 600 STEP 400
        length = 200
        FOR i = 3 TO 7
            DrawPattern x, y, length, width, i, k(i)
            length = (length - 2 * width) * COS(_PI / i) - 1
        NEXT
    NEXT
NEXT

SLEEP
END

SUB DrawPattern (Xcenter, Ycenter, Radius, Width, N, Kolor AS _UNSIGNED LONG)
    CreateCircleScreen Xcenter, Ycenter, Radius, Width
    'DisplayImage ViewScreen, Xcenter, Ycenter, 0, 0
    CreatePolygon Xcenter, Ycenter, Radius - Width, Width, N, Kolor
END SUB

SUB CreatePolygon (Xcenter, YCenter, Radius AS LONG, width AS LONG, N AS LONG, Kolor AS _UNSIGNED LONG)
    a = _PI(2) / N
    FOR i = 0 TO 1
        x = 0
        IF i THEN Radius = Radius - width
        FOR p = 0 TO _PI(2) STEP a
            IF x THEN oldx = x: oldy = y
            x = Xcenter + SIN(p) * Radius
            y = YCenter + COS(p) * Radius
            IF oldx THEN LINE (oldx, oldy)-(x, y), Kolor
        NEXT
        x2 = Xcenter + SIN(p) * Radius
        y2 = YCenter + COS(p) * Radius
        LINE (x, y)-(x2, y2), Kolor
    NEXT
    x = Xcenter + SIN(p) * (Radius + width / 2)
    y = YCenter + COS(p) * (Radius + width / 2)
    PAINT (x, y), Kolor
END SUB

SUB CreateCircleScreen (Xcenter, YCenter, radius AS LONG, width AS LONG)
    'CreateCircleScreen = _NEWIMAGE(radius * 2, radius * 2, 32)
    '_DEST CreateCircleScreen
    p = _PI(2) * radius
    tempimage = _NEWIMAGE(p, width, 32)
    _PUTIMAGE , BlendedScreen, tempimage
    _SOURCE tempimage
    FOR i = 0 TO p - 1 STEP .25
        FOR w = 0 TO width - 1
            ai = 360 / p
            a = _D2R(ai * i)
            x = Xcenter + SIN(a) * (radius - w)
            y = YCenter + COS(a) * (radius - w)
            PSET (x, y), POINT(i, w)
        NEXT
    NEXT
    _SOURCE ViewScreen
    ' _DEST ViewScreen
    _FREEIMAGE tempimage
END SUB


SUB CreateBlendedScreen
    'step from red to green
    DIM kolor AS _FLOAT, i AS _FLOAT
    _DEST BlendedScreen
    FOR i = 0 TO 255
        kolor = kolor + 1
        LINE (i, 0)-STEP(0, 99), _RGB32(255, kolor, 0)
    NEXT
    FOR i = 256 TO 511
        kolor = kolor - 1
        LINE (i, 0)-STEP(0, 99), _RGB32(kolor, 255, 0)
    NEXT
    FOR i = 512 TO 767
        kolor = kolor + 1
        LINE (i, 0)-STEP(0, 99), _RGB32(0, 255, kolor)
    NEXT
    FOR i = 768 TO 1023
        kolor = kolor - 1
        LINE (i, 0)-STEP(0, 99), _RGB32(0, kolor, 255)
    NEXT
    FOR i = 1024 TO 1279
        kolor = kolor + 1
        LINE (i, 0)-STEP(0, 99), _RGB32(kolor, 0, 255)
    NEXT
    FOR i = 1280 TO 1535
        kolor = kolor - 1
        LINE (i, 0)-STEP(0, 99), _RGB32(255, 0, kolor)
    NEXT
    _DEST ViewScreen
END SUB


SUB DisplayImage (Image AS LONG, x AS INTEGER, y AS INTEGER, angle AS SINGLE, mode AS _BYTE)
    'Image is the image handle which we use to reference our image.
    'x,y is the X/Y coordinates where we want the image to be at on the screen.
    'angle is the angle which we wish to rotate the image.
    'mode determines HOW we place the image at point X,Y.
    'Mode 0 we center the image at point X,Y
    'Mode 1 we place the Top Left corner of oour image at point X,Y
    'Mode 2 is Bottom Left
    'Mode 3 is Top Right
    'Mode 4 is Bottom Right


    DIM px(3) AS INTEGER, py(3) AS INTEGER, w AS INTEGER, h AS INTEGER
    DIM sinr AS SINGLE, cosr AS SINGLE, i AS _BYTE
    w = _WIDTH(Image): h = _HEIGHT(Image)
    SELECT CASE mode
        CASE 0 'center
            px(0) = -w \ 2: py(0) = -h \ 2: px(3) = w \ 2: py(3) = -h \ 2
            px(1) = -w \ 2: py(1) = h \ 2: px(2) = w \ 2: py(2) = h \ 2
        CASE 1 'top left
            px(0) = 0: py(0) = 0: px(3) = w: py(3) = 0
            px(1) = 0: py(1) = h: px(2) = w: py(2) = h
        CASE 2 'bottom left
            px(0) = 0: py(0) = -h: px(3) = w: py(3) = -h
            px(1) = 0: py(1) = 0: px(2) = w: py(2) = 0
        CASE 3 'top right
            px(0) = -w: py(0) = 0: px(3) = 0: py(3) = 0
            px(1) = -w: py(1) = h: px(2) = 0: py(2) = h
        CASE 4 'bottom right
            px(0) = -w: py(0) = -h: px(3) = 0: py(3) = -h
            px(1) = -w: py(1) = 0: px(2) = 0: py(2) = 0
    END SELECT
    sinr = SIN(angle / 57.2957795131): cosr = COS(angle / 57.2957795131)
    FOR i = 0 TO 3
        x2 = (px(i) * cosr + sinr * py(i)) + x: y2 = (py(i) * cosr - px(i) * sinr) + y
        px(i) = x2: py(i) = y2
    NEXT
    _MAPTRIANGLE (0, 0)-(0, h - 1)-(w - 1, h - 1), Image TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
    _MAPTRIANGLE (0, 0)-(w - 1, 0)-(w - 1, h - 1), Image TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
END SUB
Line 36 is remarked out, as I changed my methodology in the midst of my coding.  At first, I was going to take blended lines as well, rotate them and place them at their midpoints so they'd fit in the proper slots, but then I decided not to worry with it.  I would've had to map segments of the overall blended colors to each side, to run the blended pattern across the whole polygon, and I just didn't think it was worth the hassle.  All I needed was a nice little pattern set so I could print out some colorful CD/DVD labels, and to be honest, I was just too lazy to go through the effort to blend the  lines as well.  :P

In the steps of removing the polygon line blending (and use of DisplayImage for rotational ease at the center point), I tested what I *thought* should produce my desired pattern -- only to blink stupidly and say, "What the Taco Bell????????"...

... And thus, I shared the glitch, just 'cause I found it rather amusing.  ;D

[Ashish]

Steve,
Cool to know you were using this method for circle. I think you already posted a similar demo for printing text in this way somewhere before....

[SMcNeill]

Steve,
Cool to know you were using this method for circle. I think you already posted a similar demo for printing text in this way somewhere before....

Aye, a CircleText demo routine, which I've shared before. You've got a good memory.  ;)

Here's another trick which I like to do, using this method:  Slowly reduce the radius as you plot the square around onto your circle.  Doing so, you can make a spiral, and if you animate it by scrolling the text across the square source page, you can make it seem as if you're flushing the text down a toilet... 

[Ashish]

Only thing I really noticed that seemed off is just a little math.  Your polygons are from the outer ring of your circle and not the inner ring.  ;)

I am already subtracting radius with line width but it is not working as expected. See on line 32 of my second code.

[SMcNeill]

I am already subtracting radius with line width but it is not working as expected. See on line 32 of my second code.

In sub pattern, subtract the width of the circle before drawing the polygon.

Code: QB64: [Select]

1. SUB pattern (x, y, r, N)
2.     IF N > 7 THEN EXIT SUB
3.     gl_npoly x, y, r, 300
4.     r = r - w 'Add this little line into the code so the polygon draws to the inner edge of the circle and not the outer.  
5.     gl_npoly x, y, r, N
6.     __x = ((x + r) + (x + r * COS(_PI(2) / N))) * 0.5
7.     __y = (y + (y + r * SIN(_PI(2) / N))) * 0.5
8.     nr = SQR((__x - x) ^ 2 + (__y - y) ^ 2)
9.     pattern x, y, nr - w, N + 1 'nr - (1/(d*(2/width)))
10. END SUB

[Pete]

Oh, it's a sub pattern! Apparently I failed the challenge, because I was using a test pattern!

Well the code is interesting to look at, but I tend to not get involved in these types of challenges, because I just can't think of a practical use for it in the type of apps I'm interested in.

Pete

[bplus]

I scaled and overlapped different, took too long to get those color rings going (completely different method) and match the color of triangles. What do you call that Steve? :D

Edit: oops missing stuff on right side, fixed.