« previous next »
Pages: 1 [2]   Go Down

Author Topic: Pattern Challenge 2  (Read 2722 times)

0 Members and 1 Guest are viewing this topic.

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
Re: Pattern Challenge 2
« Reply #15 on: July 14, 2019, 07:36:02 am »
Fantastic, Ashish!
Logged

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
Re: Pattern Challenge 2
« Reply #16 on: July 14, 2019, 10:22:51 am »
I've figured out how to win this challenge... Just say: "KNOT IT!"

@Ashish: That's the worst shoe lace tying tutorial I've ever seen.

Pete :D
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
Re: Pattern Challenge 2
« Reply #17 on: July 14, 2019, 11:19:00 am »
Hi Ashish,

I still have that from:
Quote
'Coded in QB64 by Ashish on 9 March, 2018
'http://paulbourke.net/geometry/knots/
_TITLE "3D Knot [Press space for next knot]"

Still looks great!
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
Re: Pattern Challenge 2
« Reply #18 on: July 19, 2019, 04:28:50 pm »
No more eyeballing, let the program do the work!

Alas, the program is extremely temperamental. But still able to graph multiple Angle Functions:
Code: QB64: [Select]
  2. _TITLE "Knot Function of Angle" ' B+ 2019-07-18
  3. ' another attempt to get intersect points by computer rather than eyeball
  4.  
  5. CONST xmax = 740, ymax = 740, pi = 3.14159265
  6. SCREEN _NEWIMAGE(xmax, ymax, 32)
  8. DIM x0, y0, r0, rThick, rFill 'for knot  r is for equation, r1 is for thickness of rings, r2 is fill thicknes
  9.  
  10. x0 = xmax / 2: y0 = ymax / 2: r0 = 120: rThick = 4: rFill = 2
  11. x0 = xmax / 2: y0 = ymax / 2: r0 = 100: rThick = 8: rFill = 4
  12. knot xmax / 4, ymax / 4, 60, 15, 8, &HFF009900, &HFF0000FF, 1
  13. knot 3 * xmax / 4, ymax / 4 + 35, 100, 8, 4, &HFFFFFF00, &HFFFF0000, 2
  14. knot xmax / 4, ymax * 3 / 4, 98, 4, 1, &HFFFFFFFF, &HFF009900, 3
  15. knot xmax * 3 / 4, ymax * 3 / 4, 90, 4, 2, &HFF0000FF, &HFF00BBBB, 4
  16.  
  17. SUB knot (xc, yc, r, r1, r2, border AS _UNSIGNED LONG, fill AS _UNSIGNED LONG, functionNum)
  18.  
  20.     DIM a, x AS INTEGER, y AS INTEGER, stepper 'for plotting
  21.  
  22.     stepper = 1 / (2 * pi * r) 'how close to step   'orig 2*pi
  23.     'first pass draw in outline
  24.     FOR a = 0 TO 2 * pi - 2 * stepper STEP stepper 'collect data
  25.         SELECT CASE functionNum
  26.             CASE 1: FofA xc, yc, r, a, x, y
  27.             CASE 2: FofA2 xc, yc, r, a, x, y
  28.             CASE 3: FofA3 xc, yc, r, a, x, y
  29.             CASE 4: FofA4 xc, yc, r, a, x, y
  30.         END SELECT
  31.         IF counts(x, y) <> 0 THEN
  32.             IF ABS(ang(x, y) - a) > pi / 12 THEN 'not too close   pi/12 orig
  33.                 counts(x, y) = counts(x, y) + 1 'hopefully
  34.                 ang(x, y) = a 'update xy position with latest angle
  35.             END IF
  36.         ELSE
  37.             counts(x, y) = 1: ang(x, y) = a
  38.             fcirc x, y, r1, border
  39.         END IF
  40.     NEXT
  41.  
  42.     DIM intersects(100, 1) AS INTEGER, ii AS INTEGER, i, flag
  43.     'next pass draw in fill
  44.     FOR y = 0 TO ymax
  45.         FOR x = 0 TO xmax
  46.             IF counts(x, y) THEN fcirc x, y, r2, fill
  47.             IF counts(x, y) > 1 THEN
  48.                 IF ii > 0 THEN
  49.                     flag = 0
  50.                     FOR i = 0 TO ii
  51.                         IF ((intersects(i, 0) - x) ^ 2 + (intersects(i, 1) - y) ^ 2) ^ .5 < 2 THEN flag = 1: EXIT FOR
  52.                     NEXT
  53.                     IF flag = 0 THEN
  54.                         intersects(ii, 0) = x
  55.                         intersects(ii, 1) = y
  56.                         ii = ii + 1
  57.                     END IF
  58.                 ELSE
  59.                     intersects(ii, 0) = x
  60.                     intersects(ii, 1) = y
  61.                     ii = ii + 1
  62.                 END IF
  63.             END IF
  64.         NEXT
  65.     NEXT
  66.  
  67.     'For each intersect there is am angle it goes over and an angle it goes under
  68.     ' looking at figure from angle = 0, it alternates over, under, over, under....;
  69.     ' its the over angles that need the bridges. How to find the over angles?
  70.  
  71.     DIM lasta, toggle, b, xx AS INTEGER, yy AS INTEGER
  72.     FOR a = 0 TO 2 * pi - 2 * stepper STEP stepper 'collect data
  73.         SELECT CASE functionNum
  74.             CASE 1: FofA xc, yc, r, a, x, y
  75.             CASE 2: FofA2 xc, yc, r, a, x, y
  76.             CASE 3: FofA3 xc, yc, r, a, x, y
  77.             CASE 4: FofA4 xc, yc, r, a, x, y
  78.         END SELECT
  79.  
  80.         FOR i = 0 TO ii - 1
  81.             IF x = intersects(i, 0) AND y = intersects(i, 1) AND ABS(a - lasta) > pi / 24 THEN
  82.                 toggle = (toggle + 1) MOD 2
  83.                 IF toggle THEN 'save every other angle as positive for the overpasses
  84.                     'build a bridge
  85.                     FOR b = a - 3 * pi / 96 TO a + 3 * pi / 96 STEP stepper
  86.                         SELECT CASE functionNum
  87.                             CASE 1: FofA xc, yc, r, b, xx, yy
  88.                             CASE 2: FofA2 xc, yc, r, b, xx, yy
  89.                             CASE 3: FofA3 xc, yc, r, b, xx, yy
  90.                             CASE 4: FofA4 xc, yc, r, b, xx, yy
  91.                         END SELECT
  92.                         fcirc xx, yy, r1, border
  93.                     NEXT
  94.                     FOR b = a - 4 * pi / 96 TO a + 4 * pi / 96 STEP stepper
  95.                         SELECT CASE functionNum
  96.                             CASE 1: FofA xc, yc, r, b, xx, yy
  97.                             CASE 2: FofA2 xc, yc, r, b, xx, yy
  98.                             CASE 3: FofA3 xc, yc, r, b, xx, yy
  99.                             CASE 4: FofA4 xc, yc, r, b, xx, yy
  100.                         END SELECT
  101.                         fcirc xx, yy, r2, fill
  102.                     NEXT
  103.                 END IF
  104.                 lasta = a
  105.                 EXIT FOR
  106.             END IF
  107.         NEXT
  108.     NEXT
  110.  
  111. SUB FofA (xc, yc, r, a AS SINGLE, xReturn AS INTEGER, yReturn AS INTEGER)
  112.     xReturn = INT(xc + r * (COS(a) + COS(4 * a) / .7 + SIN(2 * a) / 12))
  113.     yReturn = INT(yc + r * (SIN(a) + SIN(4 * a) / .7 + COS(2 * a) / 12))
  115.  
  116. SUB FofA2 (xc, yc, r, a AS SINGLE, xReturn AS INTEGER, yReturn AS INTEGER)
  117.     xReturn = xc + r * (COS(a) + COS(5 * a) / 1.6 + SIN(2 * a) / 3)
  118.     yReturn = yc + r * (SIN(a) + SIN(5 * a) / 1.6 + COS(2 * a) / 3)
  120.  
  121. SUB FofA3 (xc, yc, r, a AS SINGLE, xReturn AS INTEGER, yReturn AS INTEGER)
  122.     xReturn = xc + r * (COS(a) + COS(7 * a) / 2 + SIN(2 * a) / 3)
  123.     yReturn = yc + r * (SIN(a) + SIN(7 * a) / 2 + COS(2 * a) / 3)
  125.  
  126. 'for function number 4, the following works best
  127.  
  128. SUB FofA4 (xc, yc, r, a AS SINGLE, xReturn AS INTEGER, yReturn AS INTEGER)
  129.     xReturn = xc + r * (COS(a) + COS(4 * a) / 2.9 + SIN(6 * a) / 2.1) '2.6 2.1 works
  130.     yReturn = yc + r * (SIN(a) + SIN(4 * a) / 2.9 + COS(6 * a) / 2.1) ' 2.7 2.2 better? 2.8 2.3 OK too  2.9 2.1 is it
  132.  
  133. '''''' ================= failed: bridges too close or passes do not alternate , too many loops?
  134. '''''  Toggle commented function blocks to see some fancy loops tried
  135.  
  136.  
  137. 'SUB FofA4 (xc, yc, r, a AS SINGLE, xReturn AS INTEGER, yReturn AS INTEGER)
  138. '    xReturn = xc + r * (COS(a) + COS(9 * a) / 2.5 + SIN(3 * a) / 2.6)
  139. '    yReturn = yc + r * (SIN(a) + SIN(9 * a) / 2.5 + COS(3 * a) / 2.6)
  140. 'END SUB
  141.  
  142. 'SUB FofA4 (xc, yc, r, a AS SINGLE, xReturn AS INTEGER, yReturn AS INTEGER)
  143. '    xReturn = xc + r * (COS(a) + COS(3 * a) / 2 + SIN(11 * a) / 2.7)
  144. '    yReturn = yc + r * (SIN(a) + SIN(3 * a) / 2 + COS(11 * a) / 2.7)
  145. 'END SUB
  146.  
  147. 'SUB FofA4 (xc, yc, r, a AS SINGLE, xReturn AS INTEGER, yReturn AS INTEGER)
  148. '    xReturn = xc + r * (COS(a) + COS(9 * a) / 2 + SIN(5 * a) / 2.5)
  149. '    yReturn = yc + r * (SIN(a) + SIN(9 * a) / 2 + COS(5 * a) / 2.5)
  150. 'END SUB
  151.  
  152. 'SUB FofA4 (xc, yc, r, a AS SINGLE, xReturn AS INTEGER, yReturn AS INTEGER)
  153. '    xReturn = xc + r * (COS(a) + COS(5 * a) / 2.7 + SIN(6 * a) / 2)
  154. '    yReturn = yc + r * (SIN(a) + SIN(5 * a) / 2.7 + COS(6 * a) / 2)
  155. 'END SUB
  156.  
  157. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  158.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  159.     DIM X AS INTEGER, Y AS INTEGER
  160.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  161.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  162.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  163.     WHILE X > Y
  164.         RadiusError = RadiusError + Y * 2 + 1
  165.         IF RadiusError >= 0 THEN
  166.             IF X <> Y + 1 THEN
  167.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  168.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  169.             END IF
  170.             X = X - 1
  171.             RadiusError = RadiusError - X * 2
  172.         END IF
  173.         Y = Y + 1
  174.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  175.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  176.     WEND
  178.  
  179.  
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
Re: Pattern Challenge 2
« Reply #19 on: July 20, 2019, 08:47:12 am »
Fantastic Job Bplus!
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
Re: Pattern Challenge 2
« Reply #20 on: July 20, 2019, 11:44:48 am »
« Last Edit: July 20, 2019, 02:14:16 pm by TempodiBasic »
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
Re: Pattern Challenge 2
« Reply #21 on: July 21, 2019, 09:16:48 am »
Thanks guys!

TempodiBasic, I thought I said, "No more eyeballing,.." :D
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
Re: Pattern Challenge 2
« Reply #22 on: July 21, 2019, 01:22:05 pm »
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
Re: Pattern Challenge 2
« Reply #23 on: July 21, 2019, 02:37:33 pm »
That's great, TempodiBasic. This view of women is an innovative connection for me.
Logged
Pages: 1 [2]   Go Up
« previous next »