Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on August 28, 2020, 01:52:33 pm

Title: 3 Dogs Rebuses
Post by: bplus on August 28, 2020, 01:52:33 pm
https://www.qb64.org/forum/index.php?topic=2961.msg122153#msg122153

Google: What the heck is a rebus?

Ohhhh.... heh, heh

Here are 3 Dogs Rebuses, I just made up:
Code: QB64: [Select]
  1. _TITLE "3 Dogs Rebuses" 'b+ 2020-08-28
  2. ' who will get the 3rd one? ha, ha, ha
  3.  
  4. SCREEN _NEWIMAGE(800, 600, 32)
  5. _DELAY .25
  7.  
  8. f60 = _LOADFONT("Arial.ttf", 84)
  9. _FONT f60
  10. FOR i = 1 TO 3
  11.     LOCATE 2 + i, (800 - _PRINTWIDTH("dog")) / 2: PRINT "dog"; 'well that's wierd but works
  13. FOR r = 1 TO 3 STEP .1
  14.     Ellipse 400, 210, 150 + .5 * r, 50 + r, &HFFFFFFFF
  18. FOR i = 1 TO 3
  19.     _PRINTSTRING (i * 168, 450), "dog"
  21. fcirc 650, 120, 60, &HFFFFFFFF
  22. fcirc 600, 120, 60, &HFF000000
  25.  
  26. SUB Ellipse (CX, CY, xRadius AS INTEGER, yRadius AS INTEGER, C AS _UNSIGNED LONG)
  27.     '  CX = center x coordinate
  28.     '  CY = center y coordinate
  29.     '  xRadius = x axis radius
  30.     '  yRadius = y axis radius
  31.     '   C = fill color
  32.     DIM a, x, y, sq, delta, lastDelta
  33.     IF xRadius = 0 AND yRadius = 0 THEN EXIT SUB
  34.     IF xRadius = 0 THEN
  35.         LINE (CX, CY + yRadius)-(CX, CY - yRadius), C
  36.     ELSEIF yRadius = 0 THEN
  37.         LINE (CX + xRadius, CY)-(CX - xRadius, CY), C
  38.     ELSE
  39.         IF xRadius >= yRadius THEN
  40.             a = yRadius / xRadius: sq = xRadius * xRadius
  41.             FOR x = 0 TO xRadius
  42.                 IF x = 0 THEN
  43.                     lastDelta = SQR(sq - x * x) * a
  44.                 ELSE
  45.                     delta = SQR(sq - x * x) * a
  46.                     LINE (CX + (x - 1), CY + lastDelta)-(CX + x, CY + delta), C
  47.                     LINE (CX + (x - 1), CY - lastDelta)-(CX + x, CY - delta), C
  48.                     LINE (CX - (x - 1), CY + lastDelta)-(CX - x, CY + delta), C
  49.                     LINE (CX - (x - 1), CY - lastDelta)-(CX - x, CY - delta), C
  50.                     lastDelta = delta
  51.                 END IF
  52.             NEXT
  53.         ELSE
  54.             a = xRadius / yRadius: sq = yRadius * yRadius
  55.             FOR y = 0 TO yRadius
  56.                 IF y = 0 THEN
  57.                     lastDelta = SQR(sq - y * y) * a
  58.                 ELSE
  59.                     delta = SQR(sq - y * y) * a
  60.                     LINE (CX + lastDelta, CY + (y - 1))-(CX + delta, CY + y), C
  61.                     LINE (CX - lastDelta, CY + (y - 1))-(CX - delta, CY + y), C
  62.                     LINE (CX + lastDelta, CY - (y - 1))-(CX + delta, CY - y), C
  63.                     LINE (CX - lastDelta, CY - (y - 1))-(CX - delta, CY - y), C
  64.                     lastDelta = delta
  65.                 END IF
  66.             NEXT
  67.         END IF
  68.     END IF
  70.  
  71. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  72.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  73.     DIM X AS INTEGER, Y AS INTEGER
  74.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  75.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  76.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  77.     WHILE X > Y
  78.         RadiusError = RadiusError + Y * 2 + 1
  79.         IF RadiusError >= 0 THEN
  80.             IF X <> Y + 1 THEN
  81.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  82.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  83.             END IF
  84.             X = X - 1
  85.             RadiusError = RadiusError - X * 2
  86.         END IF
  87.         Y = Y + 1
  88.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  89.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  90.     WEND
  92.  
  93.  

Here is a clue for the 3rd one: Meat Loaf

 
Title: Re: 3 Dogs Rebuses
Post by: bplus on August 28, 2020, 02:15:58 pm
Extra Bonus Dog Rebus:
Code: QB64: [Select]
  1. _TITLE "Dog Rebus xtra bonus" 'b+ 2020-08-28
  2.  
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. _DELAY .25
  6.  
  7. f60 = _LOADFONT("Arial.ttf", 84)
  8. _FONT f60
  9. LOCATE 4, (800 - _PRINTWIDTH("dog")) / 2: PRINT "dog"; 'well that's wierd but works
  10. FOR r = 1 TO 3 STEP .1
  11.     Ellipse 400, 410, 150 + .5 * r, 50 + r, &HFFFFFFFF
  15.  
  16. SUB Ellipse (CX, CY, xRadius AS INTEGER, yRadius AS INTEGER, C AS _UNSIGNED LONG)
  17.     '  CX = center x coordinate
  18.     '  CY = center y coordinate
  19.     '  xRadius = x axis radius
  20.     '  yRadius = y axis radius
  21.     '   C = fill color
  22.     DIM a, x, y, sq, delta, lastDelta
  23.     IF xRadius = 0 AND yRadius = 0 THEN EXIT SUB
  24.     IF xRadius = 0 THEN
  25.         LINE (CX, CY + yRadius)-(CX, CY - yRadius), C
  26.     ELSEIF yRadius = 0 THEN
  27.         LINE (CX + xRadius, CY)-(CX - xRadius, CY), C
  28.     ELSE
  29.         IF xRadius >= yRadius THEN
  30.             a = yRadius / xRadius: sq = xRadius * xRadius
  31.             FOR x = 0 TO xRadius
  32.                 IF x = 0 THEN
  33.                     lastDelta = SQR(sq - x * x) * a
  34.                 ELSE
  35.                     delta = SQR(sq - x * x) * a
  36.                     LINE (CX + (x - 1), CY + lastDelta)-(CX + x, CY + delta), C
  37.                     LINE (CX + (x - 1), CY - lastDelta)-(CX + x, CY - delta), C
  38.                     LINE (CX - (x - 1), CY + lastDelta)-(CX - x, CY + delta), C
  39.                     LINE (CX - (x - 1), CY - lastDelta)-(CX - x, CY - delta), C
  40.                     lastDelta = delta
  41.                 END IF
  42.             NEXT
  43.         ELSE
  44.             a = xRadius / yRadius: sq = yRadius * yRadius
  45.             FOR y = 0 TO yRadius
  46.                 IF y = 0 THEN
  47.                     lastDelta = SQR(sq - y * y) * a
  48.                 ELSE
  49.                     delta = SQR(sq - y * y) * a
  50.                     LINE (CX + lastDelta, CY + (y - 1))-(CX + delta, CY + y), C
  51.                     LINE (CX - lastDelta, CY + (y - 1))-(CX - delta, CY + y), C
  52.                     LINE (CX + lastDelta, CY - (y - 1))-(CX + delta, CY - y), C
  53.                     LINE (CX - lastDelta, CY - (y - 1))-(CX - delta, CY - y), C
  54.                     lastDelta = delta
  55.                 END IF
  56.             NEXT
  57.         END IF
  58.     END IF
  60.  
  61.  
Title: Re: 3 Dogs Rebuses
Post by: SierraKen on August 28, 2020, 04:33:17 pm
The band 3 Dog Night ?
Title: Re: 3 Dogs Rebuses
Post by: bplus on August 28, 2020, 06:04:45 pm
Quote from: SierraKen on August 28, 2020, 04:33:17 pm
The band 3 Dog Night ?

Yes that's the 2nd one ;-) Celebrate,...
Title: Re: 3 Dogs Rebuses
Post by: SpriggsySpriggs on August 31, 2020, 03:39:24 pm
Top dog?
Title: Re: 3 Dogs Rebuses
Post by: bplus on August 31, 2020, 04:10:51 pm
Quote from: SpriggsySpriggs on August 31, 2020, 03:39:24 pm
Top dog?

Yes sir! Two down, I will be really surprised if any one is weird enough to get the third. What third? you may well ask. :)  I may well answer that is part of the rebus. ;-))

The Bonus is pretty easy too. Of course its easy when you know the answer. Of course someone might come up with a perfectly good alternate interpretation.

I have one for 3 utilities connecting to 3 houses without crossing lines.
Text Only | Text with Attachments