Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - bplus

Pages: 1 ... 535 536 [537]
8041
Programs / Re: Brainfuck Interpreter
« on: July 24, 2017, 01:34:09 pm »
Quote from: eoredson on July 24, 2017, 12:17:27 am
If you are serious about writing your own interpreter, you should look at the attached file:

Erik.

Thanks Erik, I will check this out!

You might like this:
http://www.thejoyfulprogrammer.com/qb64/forum/showthread.php?tid=814&rndtime=1500917497749477912


To All,

I am pursuing this topic mainly in a PL called SmallBASIC (one word BASIC in all CAPs) an Interpreter only , NOT MS Small Basic (2 words last word not all caps).

Here (SmallBASIC Forum):
https://smallbasic.sourceforge.io/?q=node/1743

Here (Retrogamecoding.org in board where any Basic is welcome):
http://retrogamecoding.org/board/index.php?topic=592.0

Here (The QB64 Edition, a sub forum of [banned user]):
http://www.thejoyfulprogrammer.com/qb64/forum/showthread.php?tid=948&rndtime=1500919068149440136

I will pursue here too but first I want to see what Aureal is up to!  :)


8042
Programs / Re: Brainfuck Interpreter
« on: July 23, 2017, 11:24:03 pm »
After reading more, I too have another idea to go at this sort of thing.

8043
QB64 Discussion / Re: Compound assignments
« on: July 23, 2017, 02:39:42 pm »
Come to think some more about it.

Compatibility issue is a cop-out. It's not going to interfere with old code. It might interfere with how things are handled under the hood, I don't know!

_-= or _+= is just plain ugly, a good way to turn off those in favor, but can't be serious.

To save myself from rant, I will take word for it that there are deeper issues to be considered, so I will leave it to the tech guys to discuss those issues.

8044
QB64 Discussion / Re: Compound assignments
« on: July 23, 2017, 01:20:07 pm »
Quote from: STxAxTIC on July 23, 2017, 07:50:46 am
I never been a fan of any of the ++ or -- notation, especially when the language lets you put the symbols on either side of the variable. What is so special about "1" anyway? Why don't we have +++ and --- to skip along by 2?

I have always thought that += and -= were pretty nice though, its just that QB64 doesn't need them. There are a handful of deep reasons that I won't rant about, so the cop-out explanation is: Seeing how anything that breaks QB45 compatibility would need an underscore by tradition, I don't think that _+= and _-= are visually appealing. Of course I'm half joking, but not the other half. I'm at least 51% confident that those with the proper chops to do so won't be adding any exotic assignment operators to QB64 at the end of the day.

Come to think of it, according to certain opinions that I think are correct, using the equal sign as an assignment operator is a design mistake repeated hundreds of times since its first instance. The next good language won't overload the = symbol.

I was in favor of the idea until I read this. Considered me swayed the other way!

8045
Programs / Re: Plasma Waves
« on: July 23, 2017, 01:11:40 pm »
Hey Ashish!

I don't know if you know this but I am a fan. You and all the regulars from the [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there].

8046
Programs / Re: Brainfuck Interpreter
« on: July 23, 2017, 01:05:01 pm »
Quote from: STxAxTIC on July 23, 2017, 07:40:37 am
Thanks for keeping us posted bplus. I was going to respond over at the "other" forum but didn't because... reasons... namely all of my posts need to be approved first. Still waiting for a few posts (from days ago) to make it past the admin over there. No telling what a PG-13 site would do with a title like BrainFuck. Ya know, the same place that throws me ads for mail-in Thai brides. Very child-friendly as a concept.

"The Lords work in mysterious ways." - (This is definitely NOT from the Bible)

Since translating this crazy little interpreter, I am very curious now how one might go about making up a program that does anything like print "Hello World!". I did offer it up as a challenge at two other forums, because I have only the tiniest clue from reading Wiki on subject. I would like to pursue this further. An IDE? Modifications to plug-in "subroutines"?

I hope Aureal is also intrigued and that I haven't hi-jacked his thread.

8047
Programs / Re: Plasma Waves
« on: July 23, 2017, 03:38:33 am »
Quote from: Calloway on July 22, 2017, 07:54:39 pm
And since there any errors (at least I can't find any)[/size] in the program, you can do
Code: QB64: [Select]
to speed it up a bit

Thanks for tip!

8048
Programs / Re: Brainfuck Interpreter
« on: July 23, 2017, 03:28:12 am »
This is 2nd time I've seen talk of this, this month, so I checked out Rosetta Code and did a double translation.
Code: QB64: [Select]
  1. 'BF translation.bas for QB64 fork (B+=MGA) 2017-07-23
  2. ' BF in QB.bas for SmallBASIC 0.12.9 (B+=MGA) 2017-07-22
  3. ' I just translated some QB code from Rosetta to SmallBASIC
  4. ' and tested a couple of programs Hello World, Goodbye World
  5. ' count down also found at Rosetta Code
  6. '======================================================================
  7. ' QB64 has excellent Help wiki, thanks to all who put that together!
  8. '======================================================================
  9. _TITLE "Brainf***, Rosetta Code - Quick Basic translation to SB then to QB64 (fork)"
  10. 'for directory stuff
  11. CONST ListMAX% = 20
  12. COMMON SHARED dirList$()
  13. COMMON SHARED DIRCount% 'returns file count if desired
  14.  
  15. memsize% = 20000
  16. DIM memory%(memsize%)
  17. instChars$ = "+-<>.,[]" 'valid characters
  18. loadDirList "bf*.txt"
  19.  
  21.     ptr% = 0 'memory pointer
  22.     source$ = ""
  23.     CLS
  24.     IF DIRCount% THEN
  25.         FOR i% = 1 TO DIRCount%
  26.             PRINT i%, dirList$(i%)
  27.         NEXT
  28.     ELSE
  29.         PRINT "Sorry, no bf*.txt files found."
  30.         SLEEP
  31.         END
  32.     END IF
  33.     PRINT: INPUT "Enter line number of BF Filename you desire "; ln%
  34.     IF ln% < 1 OR ln% > DIRCount% THEN END
  35.     filename$ = dirList$(ln%)
  36.  
  37.     OPEN filename$ FOR INPUT AS #1
  38.     DO
  39.         LINE INPUT #1, FLINE$
  40.         source$ = source$ + FLINE$
  41.     LOOP UNTIL EOF(1)
  42.     CLOSE #1
  43.  
  44.     IF LEN(source$) < 1 THEN
  45.         PRINT "No source code to BF."
  46.         SLEEP
  47.         END
  48.     END IF
  49.  
  50.     'let's clean the code up, check bracket balance
  51.     bktCnt% = 0
  52.     code$ = ""
  53.     FOR i% = 1 TO LEN(source$)
  54.         char$ = MID$(source$, i%, 1)
  55.         'check to see if this is a valid instruction character
  56.         IF INSTR(instChars$, char$) THEN
  57.             code$ = code$ + char$
  58.             'count brackets
  59.             IF char$ = "[" THEN bktCnt% = bktCnt% + 1
  60.             IF char$ = "]" THEN bktCnt% = bktCnt% - 1
  61.         END IF
  62.     NEXT
  63.  
  64.     IF bktCnt% THEN 'mismatched brackets
  65.         PRINT "Uneven brackets"
  66.         SLEEP
  67.         END
  68.     ELSE
  69.         PRINT "Code:": PRINT code$: PRINT: PRINT "Output:"
  70.     END IF
  71.     'clear last if any
  72.     ERASE memory%
  73.     DIM memory%(memsize%)
  74.     inLine$ = "" 'input buffer
  75.     FOR i% = 1 TO LEN(code$) 'loop through the code
  76.         instruction$ = MID$(code$, i%, 1) 'get the instruction we're on
  77.         SELECT CASE instruction$
  78.             CASE "+"
  79.                 memory%(ptr%) = memory%(ptr%) + 1
  80.             CASE "-"
  81.                 memory%(ptr%) = memory%(ptr%) - 1
  82.             CASE "."
  83.                 PRINT CHR$(memory%(ptr%));
  84.             CASE ","
  85.                 IF inLine$ = "" THEN LINE INPUT inLine$ 'buffer input
  86.                 inChar$ = LEFT$(inLine$, 1) 'take the first char off the buffer
  87.                 inLine$ = MID$(inLine$, 2) 'delete it from the buffer
  88.                 memory%(ptr%) = ASC(inChar$) 'use it
  89.             CASE ">"
  90.                 ptr% = ptr% + 1
  91.                 IF ptr% > memsize% THEN
  92.                     PRINT "Memory pointer out of range"
  93.                     SLEEP
  94.                     END
  95.                 END IF
  96.             CASE "<"
  97.                 ptr% = ptr% - 1
  98.                 IF ptr% < 0 THEN
  99.                     PRINT "Memory pointer out of range"
  100.                     SLEEP
  101.                     END
  102.                 END IF
  103.             CASE "["
  104.                 IF memory%(ptr%) = 0 THEN
  105.                     bktCnt% = 1 'count the bracket we're on
  106.                     i% = i% + 1 'move the code pointer to the next char
  107.                     WHILE bktCnt% <> 0
  108.                         'count nested loops till we find the matching one
  109.                         IF MID$(code$, i%, 1) = "]" THEN bktCnt% = bktCnt% - 1
  110.                         IF MID$(code$, i%, 1) = "[" THEN bktCnt% = bktCnt% + 1
  111.                         i% = i% + 1 'search forward
  112.                     WEND
  113.                 END IF
  114.             CASE "]"
  115.                 IF memory%(ptr%) <> 0 THEN
  116.                     bktCnt% = -1 'count the bracket we're on
  117.                     i% = i% - 1 'move the code pointer back a char
  118.                     WHILE bktCnt% <> 0
  119.                         'count nested loops till we fine the matching one
  120.                         IF MID$(code$, i%, 1) = "]" THEN bktCnt% = bktCnt% - 1
  121.                         IF MID$(code$, i%, 1) = "[" THEN bktCnt% = bktCnt% + 1
  122.                         i% = i% - 1 'search backwards
  123.                     WEND
  124.                 END IF
  125.         END SELECT
  126.     NEXT
  127.     PRINT: PRINT: INPUT "Press y for yes to do another "; yes$
  128.     IF yes$ <> "y" THEN END
  130.  
  131. ' modified function from Help files
  132. SUB loadDirList (spec$)
  133. CONST TmpFile$ = "DIR$INF0.INF"
  134. STATIC Ready%, Index%
  135. IF NOT Ready% THEN REDIM dirList$(ListMAX%): Ready% = -1 'DIM array first use
  136. IF spec$ > "" THEN 'get file names when a spec is given
  137.     SHELL _HIDE "DIR " + spec$ + " /b > " + TmpFile$
  138.     Index% = 0: dirList$(Index%) = "": ff% = FREEFILE
  139.     OPEN TmpFile$ FOR APPEND AS #ff%
  140.     size& = LOF(ff%)
  141.     CLOSE #ff%
  142.     IF size& = 0 THEN KILL TmpFile$: EXIT SUB
  143.     OPEN TmpFile$ FOR INPUT AS #ff%
  144.     DO WHILE NOT EOF(ff%) AND Index% < ListMAX%
  145.         Index% = Index% + 1
  146.         LINE INPUT #ff%, dirList$(Index%)
  147.     LOOP
  148.     DIRCount% = Index% 'SHARED variable can return the file count
  149.     CLOSE #ff%
  150.     KILL TmpFile$
  151. ELSE IF Index% > 0 THEN Index% = Index% - 1 'no spec sends next file name
  154.  

I think the interpreter is probably easier to write than a program. Very interesting subject!

Included in zip are some short programs to get a directory listing in files list.

8049
Programs / Re: Plasma Waves
« on: July 22, 2017, 03:41:57 pm »
Hey, it does work without CLS. I like that best!

Thanks!

8050
Programs / Re: Plasma Waves
« on: July 22, 2017, 12:57:56 pm »
Quote from: Petr on July 22, 2017, 03:57:32 am
Hi, it looks nice. The better effect is achieved by deleting CLS after WHILE 1 and inserting CLS after the _DISPLAY command.

Well without any winks, I can't tell if you are pulling my leg or that there really is a difference?

In the loop you are executing the same sequence of commands, so I don't see a difference on paper.

OK I try.

Oh wow! what a difference. Oops, I forgot to delete the first CLS; you can try that.

I think you are pulling my leg. :)

BTW I am using Walter's QB64 fork, if that makes any difference. I am newbie to QB64 and confuse it with FB which is what I started learning to compile SmallBASIC programs before Walter invited SmallBASIC forum people over to his to have and show file attachments and screen shots...

8051
Programs / Plasma Waves
« on: July 21, 2017, 11:18:54 pm »
Press spacebar for new sea:
Code: QB64: [Select]
  1. 'Wavy with Plama.bas for QB64 fork (B+=MGA) 2017-05-05
  2. ' Wavy with Plasma Treatment.bas SmallBASIC 0.12.9 (B+=MGA) 2017-05-03
  3. ' from: animated circles started by Admin at SdlBasic 2017-05-03
  4. ' I added Plasma treatment and spacebar  changer
  5.  
  6.  
  7. '===================================================================
  8.  
  9. ' Instructions: press spacebar for new injection of plasma
  10.  
  11. '==================================================================
  12.  
  14. CONST sqr12! = .5 ^ .5
  15. CONST xmax = 1100
  16. CONST ymax = 700
  17. CONST DPI = 3.141516 * 2
  18. CONST PHIDELTA = DPI / 15
  19. CONST PHISTEP = DPI / 50
  20. CONST RADIUS = 20
  21. CONST SMALL_R = 20
  22. CONST DISTANCE = 23
  23. CONST W = xmax
  24. CONST H = ymax
  25.  
  26. SCREEN _NEWIMAGE(xmax, ymax, 32)
  27. _TITLE "Wavy with Plasma trans by bplus, Press Spacebar for New Plasma Injection."
  29. DIM SHARED pR, pG, pB AS INTEGER
  30. DIM x, y, xball, yball AS INTEGER
  31. DIM current_phi, phiIndex, phi AS DOUBLE
  32. current_phi = 0
  33. cN = 1
  34. resetPlasma
  36.     CLS
  37.     _LIMIT 10
  38.     IF _KEYHIT = 32 THEN cN = 1: resetPlasma
  39.     current_phi = current_phi + PHISTEP
  40.     FOR x = 0 TO (W + RADIUS) STEP DISTANCE
  41.         FOR y = 0 TO (H + RADIUS) STEP DISTANCE
  42.             'COLOR _RGB(120, 80, 80)
  43.             'CIRCLE (x, y), RADIUS
  44.             phiIndex = ((x + y) MOD (2 * W)) / RADIUS
  45.             phi = phiIndex * PHIDELTA + current_phi
  46.             xball = COS(phi) * RADIUS + x
  47.             yball = SIN(phi) * RADIUS + y
  48.             changePlasma
  49.             'LINE (x, y)-(xball, yball)
  50.             fcirc2 xball, yball, SMALL_R
  51.         NEXT
  52.     NEXT
  53.     _DISPLAY
  55.  
  56. SUB changePlasma ()
  57. cN = cN + 1
  58. COLOR _RGB(127 + 127 * SIN(pR * cN), 127 + 127 * SIN(pG * cN), 127 + 127 * SIN(pB * cN))
  60.  
  61. SUB resetPlasma ()
  62. pR = RND ^ 2: pG = RND ^ 2: pB = RND ^ 2
  64.  
  65. '========================================== sqrSeg Method for filled circle
  66. SUB fcirc2 (xx%, yy%, r%)
  67. 'const sqr12! = .5^.5  'in main const section
  68. r2% = r% * r%
  69. sqr12r% = sqr12! * r%
  70. LINE (xx% - sqr12r%, yy% - sqr12r%)-(xx% + sqr12r%, yy% + sqr12r%), , BF
  71. FOR x% = 0 TO sqr12r%
  72.     y% = SQR(r2% - x% * x%)
  73.     LINE (xx% - x%, yy% + sqr12r%)-(xx% - x%, yy% + y%)
  74.     LINE (xx% - x%, yy% - sqr12r%)-(xx% - x%, yy% - y%)
  75.     LINE (xx% + x%, yy% + sqr12r%)-(xx% + x%, yy% + y%)
  76.     LINE (xx% + x%, yy% - sqr12r%)-(xx% + x%, yy% - y%)
  78. FOR x% = sqr12r% TO r%
  79.     y% = SQR(r2% - x% * x%)
  80.     LINE (xx% - x%, yy% + y%)-(xx% - x%, yy% - y%)
  81.     LINE (xx% + x%, yy% + y%)-(xx% + x%, yy% - y%)
  84.  
  85. SUB fcirc (xx%, yy%, r%)
  86. r2% = r% * r%
  87. FOR x% = 0 TO r%
  88.     y% = INT(SQR(r2% - x% * x%))
  89.     LINE (xx% - x%, yy% + y%)-(xx% - x%, yy% - y%)
  90.     LINE (xx% + x%, yy% + y%)-(xx% + x%, yy% - y%)
  93.  
  94.  

Oh, I guess I was experimenting with circle drawing here too.

8052
QB64 Discussion / Re: Burning ship explorer
« on: July 21, 2017, 11:17:13 pm »
Nice, I've got some waves for your ship.

8053
QB64 Discussion / Re: Entropic Time Sim
« on: July 21, 2017, 03:46:40 pm »
Whew! I was worried when I didn't see an exit. ;-))

Pages: 1 ... 535 536 [537]