Author Topic: All BASIC (reaching out)  (Read 9799 times)

B+

  • Guest
All BASIC (reaching out)
« on: October 20, 2018, 02:28:52 PM »
Hey John, I agree the Rosetta Word Search challenge should be in 2 parts:
1A. get warmed up by building code to do a general newspaper type puzzle where a list of words to find is provided and it can be assumed they appear only once in the puzzle.
1B. step up the functionality of 1A  by finding and counting all instances of a word found in a puzzle
1C. further power functionality, find all words in the puzzle, without a given word list.

2. Code for building Word Search Puzzles, because that is certainly a more advanced level of challenge, IMHOOC (In My Humble ;-)) Opinion, Of Course) specially when it is expected to insert secret message or "ROSETTA" in the non used letters of the puzzle.

Speaking of Word Search, I'd like to announce I have my rotating arrays method working for a couple of test Letter grids for newspaper style puzzles.



On a different topic we share an interest with more folks (than just John and I) I think:

Should O2 be considered a BASIC since both Aurel and John seem to advocate it ;-))
https://en.wikipedia.org/wiki/List_of_BASIC_dialects#X
BTW On this list, the blue means Wiki has stuff on the Dialect and the black means NOT in Wiki? (I think so.)
« Last Edit: October 20, 2018, 02:48:24 PM by B+ »

Tomaaz

  • Guest
Re: All BASIC (reaching out)
« Reply #1 on: October 23, 2018, 06:08:59 PM »
When I was registered there, it was dead. Now, AIR's posting examples in Bash, Python, Ruby, Nim... And this place here is... dead. Guys, why can't we have one forum for everything?  ;D

B+

  • Guest
Re: All BASIC (reaching out)
« Reply #2 on: October 23, 2018, 07:25:23 PM »
Hi Tomaaz,

It was pretty dead here until you showed up and things erupted with John which brought Mike (no L needed) in to defend John's honor. ;D

AIR is nice to have at any forum but I doubt he will last long, he is retired after all, like Mike.
https://www.youtube.com/watch?v=MN3x-kAbgFU

I have Word Search code, the alternate method worked out but I think I am the only one interested...

Also doing variations on Pig Game but it's just having fun with code nothing serious...

Quote
Guys, why can't we have one forum for everything?
https://www.youtube.com/watch?v=iNalya_4VkQ

Tomaaz

  • Guest
Re: All BASIC (reaching out)
« Reply #3 on: October 23, 2018, 08:16:36 PM »
Well, I think it's time to play this song, then:

https://m.youtube.com/watch?v=JSUIQgEVDM4

B+

  • Guest
Re: All BASIC (reaching out)
« Reply #4 on: October 23, 2018, 08:36:25 PM »

Aurel

  • Guest
Re: All BASIC (reaching out)
« Reply #5 on: October 23, 2018, 10:08:08 PM »
forum for everything
because then must be named as Everything Basic with JRS as Admin  :D
 /in your case probably  {}
Anything just not Basic Forum  ;D

Tomaaz

  • Guest
Re: All BASIC (reaching out)
« Reply #6 on: October 24, 2018, 10:31:00 AM »
Abother great joke. Yeah...

Mike Lobanovsky

  • Guest
Re: All BASIC (reaching out)
« Reply #7 on: October 24, 2018, 02:01:54 PM »
Mark,

You've posted a few pieces of real nice British music that I like, so I guess we shouldn't be so different ideologically. But I must confess that your peculiar sense of, er, English humoUr is what keeps eluding me:

... Mike (no L needed) ...  to defend John's honor. ;D

What am I supposed to laugh at — Mike, or L, or John? ;D

Or are you inviting us for another round of measuring whose one is longer? Why can't you guys just run this challenge among yourselves? ;)
« Last Edit: October 24, 2018, 02:05:16 PM by Mike Lobanovsky »

B+

  • Guest
Re: All BASIC (reaching out)
« Reply #8 on: October 24, 2018, 04:23:39 PM »
Mark,

You've posted a few pieces of real nice British music that I like, so I guess we shouldn't be so different ideologically. But I must confess that your peculiar sense of, er, English humoUr is what keeps eluding me:

... Mike (no L needed) ...  to defend John's honor. ;D

What am I supposed to laugh at — Mike, or L, or John? ;D

Or are you inviting us for another round of measuring whose one is longer? Why can't you guys just run this challenge among yourselves? ;)

Just keeping in practice of invoking the gods of Basic, it's nice to know they are looking over my shoulder. The sense of humor is more from Ohio (full of wackos, just look at who they vote for) than from England.

So how can we get AIR back? I am wondering, because he mentioned trying to sign up here. Shame for him to be just a lurker.  ;) maybe if AIR tries again and Cybermonkey looks...
\_?_/
   |
  /\
  | \

B+

  • Guest
Re: All BASIC (reaching out)
« Reply #9 on: October 28, 2018, 06:11:46 PM »
Hey John, here is how to draw a circle (too bad you can't see it rotate):

Oh wait, you probably can't see it at all!  :P
« Last Edit: October 28, 2018, 07:32:50 PM by B+ »

B+

  • Guest
Re: All BASIC (reaching out)
« Reply #10 on: October 28, 2018, 08:22:37 PM »
OK John for your circle drawing challenge, try this link reply #65
https://www.qb64.org/forum/index.php?topic=250.msg1761#msg1761

You will see where the stars hangout. ;-))
« Last Edit: October 28, 2018, 08:25:03 PM by B+ »

ZXDunny

  • Guest
Re: All BASIC (reaching out)
« Reply #11 on: October 30, 2018, 01:57:21 PM »
This one got me thinking - what's the smallest possible, but visually believable sphere mapping I could do? It took a couple of days to figure it out, as it turns out - I tried various things to get it running as fast as possible including using bitmap scaling on individual lines, but in the end you just have to work on each and every pixel to get a decent effect.

Here's a link to a Youtube video of it in action:

https://www.youtube.com/watch?v=0EGDJybA_HE

And here's the code:

Code: [Select]
10 REM Fake sphere mapping
20 GRAPHIC NEW t LOAD "demos:3d/lava_strip.png":gw=gfxw t,gh=gfxh t:
   palette copy t,0,256 to 0:
   paper rgbn(0):
   screen lock
30 r=scrh/2.1,xc=SCRw/2,yc=SCRh/2,xo=0:
   do:
      for y=-r+1 to r-1:
         x1=sqr(r*r-y*y),
         tv=(asn(y/r)+1.5)/3:
         for x=-x1 to x1:
            tu=(asn(x/x1)+1.5)/6:
            plot ink gpoint(t,(xo+tu*gw) mod gw,tv*gh);x+xc,y+yc:
         next x:
      next y:
      xo+=1,xo%=gw:
      wait screen:
      cls:
   loop

I thought it turned out quite well :)

B+

  • Guest
Re: All BASIC (reaching out)
« Reply #12 on: October 30, 2018, 03:48:06 PM »
Wow, great output with small amount of code used!

ZXDunny

  • Guest
Re: All BASIC (reaching out)
« Reply #13 on: October 31, 2018, 02:59:58 PM »
Inverted the mapping and recreated the classic BBC logo!

https://www.youtube.com/watch?v=jKoL9d6S6WQ


B+

  • Guest
Re: All BASIC (reaching out)
« Reply #14 on: October 31, 2018, 07:38:45 PM »
Hi D,

I translated your code to QB64 and it works so much better than what I had done! It fixes the polar craters, now to scale with others, now if I could just fix my spelling...