Post by: bplus on March 07, 2021, 10:51:11 pm
https://www.qb64.org/forum/index.php?topic=2308.msg115317#msg115317
and I revisioned the project here:
I completely gutted SB1 of the numeric evaluator and replaced it with a much slicker Fval$ (Function Value$) evaluator, so now I can mix and nest numeric and string functions.
Basic Syntax is myVar = SF[a1,a2,a3,...] And a1,a2,a3 can be more nested SF[ ] String Functions.
And you can do everything one handed because you only need shift key for printing nice labels on screen.
Here is new Fval$ evaluator (it's more developed in oh):
Code: QB64: [Select]
- ' need a evaluator to handle any function and return the value as a string
- f$ = "add[30, add[1, 2, 3, 4, 5], pow[2, 5]" ' > 15
- Vnames$(1) = "A": Vvalues$(1) = "2" '(x + 5) (2x + 6) = 2x^2 + 16x + 30 roots -5, -3
- Vnames$(2) = "B": Vvalues$(2) = "16"
- Vnames$(3) = "C": Vvalues$(3) = "30"
- d$ = "p[s[x[b,b],x[4,a,c]],.5]"
- r1$ = "d[a[s[0, b],p[s[x[b,b],x[4,a,c]],.5]],x[2,a]]" 'yeah
- r2$ = "d[s[s[0, b],p[s[x[b,b],x[4,a,c]],.5]],x[2,a]]" 'yeah
- 'updated from oh because Fval$ was destroying the original S$ string PLUS sometimes just want to return S$ or if variable, it's value
- ReDim char$, copyS$
- 'find deepest nested [] , isolate string and give it to FunHandler to get the replacement string
- ' stick replacement back into copyS$ (of = sign)
- ' look for more [] when none exist then done
- copyS$ = S$
- While bo
- bc = i
- 'now from bo go back until hit 1 or a ] or a comma
- bo = bo - 1
- Fval$ = copyS$
- 'needs LeftOf$, RightOf$, Split, VarIndex& (from SB1)
- 'needs LeftOf$, RightOf$, Split
- aLine$ = LeftOf$(RightOf$(fun$, "["), "]")
- Split aLine$, ",", a$()
- ' now is good time to subst back values for variables
- idx = VarIndex&(a$(i))
- temp$ = temp$ + a$(i)
- FunHandler$ = temp$
- Case "A"
- FunHandler$ = TD$(tmp)
- tmp = 1
- FunHandler$ = TD$(tmp)
- Case "JOIN"
- temp$ = a$(2) 'JOIN[deli$, a2, a3, a4..]
- temp$ = temp$ + a$(1) + a$(i)
- FunHandler$ = temp$
- Case "D"
- Case "M"
- Case "P"
- ' update these 2 in case of$ is not found! 2021-02-13
- ' update these 2 in case of$ is not found! 2021-02-13
- ' note: I buggered this twice now, FOR base 1 array REDIM MyArray (1 to 1) AS ... the (1 to 1) is not same as (1) which was the Blunder!!!
- 'notes: REDIM the array(0) to be loaded before calling Split '<<<< IMPORTANT dynamic array and empty, can use any lbound though
- 'This SUB will take a given N delimited string, and delimiter$ and create an array of N+1 strings using the LBOUND of the given dynamic array to load.
- 'notes: the loadMeArray() needs to be dynamic string array and will not change the LBOUND of the array it is given. rev 2019-08-27
- arrpos = arrpos + 1
- curpos = dpos + LD
- Split s$, deli$, temp$()
- JoinWrapper$ = Join$(temp$(), Deli$) ' return string with user requested delimiter
- b$ = Arr(lb)
- b$ = b$ + D$ + Arr(i)
- Join$ = b$
- Dim i&
- NumCopies$ = NumCopies$ + S$
- ' ------------ GetVS$ and SetVS$ Hot of the presses Version 2021-02-20 of the freshly redone from scratch subs
- 'use: FUNCTION StrCount& (S$, AString$)
- 'use: FUNCTION StrPlace& (S$, Index AS LONG, Astring$)
- 'use: FUNCTION StrCopies$ (NumberOfCopies&, S$)
- Astring$ = AStringCopy$ 'AstringCopy$ gets changed so return result through function name$
- wCnt& = StrCount&(Delimiter$, Astring$) + 1
- 'make sure we have enough delimiters
- Astring$ = Astring$ + Insert$
- Astring$ = Insert$
- Else ' NthPlace& is between 2 delimiters
- nthPlaceAt& = StrPlace&(Delimiter$, NthPlace& - 1, Astring$)
- nextAt& = StrPlace&(Delimiter$, NthPlace&, Astring$)
- Else 'between 2 delimiters
- SetVS$ = Astring$
- 'use: FUNCTION StrCount& (S$, AString$)
- 'use: FUNCTION StrPlace& (S$, Index AS LONG, Astring$)
- cnt = StrCount&(Delimiter$, AString$) + 1
- p1 = StrPlace&(Delimiter$, Index - 1, AString$)
- p2 = StrPlace&(Delimiter$, Index, AString$)
- Else 'between
- While place
- cnt = cnt + 1
- StrCount& = cnt
- While place
- cnt = cnt + 1
- ' type 1 string ascending, 2 string descending, 3 numeric ascending, 4 numeric descending
- 'the arrays SA$ and NA# have been dim shared (1 to 1) need to unzip astring$
- 'now pack it backup in an Astring$
- While i <= j
- i = i + 1: j = j - 1
- While i <= j
- i = i + 1: j = j - 1
- While i <= j
- i = i + 1: j = j - 1
- While i <= j
- i = i + 1: j = j - 1
And all the test code for SB1 has been rewritten and tested for the oh Interpreter (see attached zip):
So how can you possibly do math stuff without those upper row shifted chars? Check it out :)
Look here for most recent zip package to Download, bas source + Windows 10 .exe, Cheat Sheet & Change Log and dozens of test txt programs that demo different features of using oh:
Updated 2021-03-14 you should be able to use SFunctions anywhere an argument is used in a command or another SFunction, menu fixed up a little, Simplicity File Load and Save, nItems[Astring], Right[ , ], Left[,] see Change Log next post (at end) Oh yeah, Poll command for updating mouse status and last Key press. :)
Updates 2021-03-16 Extended maths for Add, Subtract, Mult, Divide and 2 output commands to clipboard and 1 SFunction clip[] no arguments for Clipboard Contents into a variable.
Update 2021-03-17 Featuring Donut.txt, some fixes and tweaks to get that all nice and pretty!
Update 2021-03-19 Featuring: Mouse Action Shooter - Target Practice
Changes mostly to get that going including Atan2[deltaY,deltaX ], Mouse TF (display or not), ABS[], Beep, Timer[]
Update 2021-03-22 Whole new front end, a scroller displays file contents, at least 128 chars per line (unless has tabs) and menu for: New, Edit, Load, Run, Quit mouse or keypress. Now have files[] that lists the current directory files in an AString! Extended math inverse[posInteger,numberOfDecimals] for customizing division if you need more or less than 100 decimal places that the extended math divide[a$,b$] uses. The handy replace[source$,replace$,new$] added. Linelabels now end with \ instead of colon.
Update 2021-03-27 A number of fixes and syntax checking, specially useful after editing a program.
Update 2021-03-27A Fix sloppy closing bracket checking (was assuming end of line if none found) and also flag unrecognized SFunctions. This should help better point to code errors before the run.
Update 2021-06-03 Fix divide$ new program calculates the Square root of a number to 100 digit places, this program is when I discovered divide$ had a problem, it now runs fine!
Update 2021-06-15 String Math update replaces old String Math with fixed and inproved routines including the new sqrroot[] routine fro precision square roots.
You will need direntry.h in your QB64 Folder, a copy is included in zip package. This enables cross platform directory and file access, Thanks @SMcNeill
Post by: bplus on March 08, 2021, 12:20:02 pm
Update for v 2021-06-15 String Math update
Code: [Select]
oh cheat sheet(s) txt file, b+ rev 2021-06-15 String Math Update
*** oh = One Handed Interpreter ***
Create your oh program in your favorite Word Processor, I am using Notepad++.
Drag and drop the file onto the compiled oh.exe to run it (old way).
oh Menu:
oh now displays the contents of a program on a scroller if get one off Command$.
All files selected from Load with be displayed on scroller with Menu on top line:
(in yellow and red) New, Edit, Load, Run, Quit ; click or press first letter of
menu item to select it. Edit or New should load up the file in your default .Txt
Editor from a Shell call.
Commands, variables, line labels are case insensitive.
Re: Comments
' at start of a line, formally tells oh to ignore the line, it's a comment.
You can probably write comments in at your own risk without the '
as long as they don't start with a command word or symbol or have = sign
after first word.
Re: oh color settings, in case you need to get back to them:
Ink 100;180;225
Paper 0;0;39
*** Preloaded Variables and their Values:
"MouseX" ' use the poll command to update x pix see demo ao 3/14
"MouseY" ' use the poll command to update y pix
"MouseL" ' use the poll command to update Left button down = -1 or 0
"MouseR" ' use the poll command to update Right button status
"Key" ' use the poll command to update Last non empty key pressed, not sure about this one
"MT" = "" ' constant, handy name for nut'n which you can compare to inps (Input String)
"XMAX" = "1024" screen pixel width, constant
"YMAX" = "672" screen pixel height, constant
"RMAX" = "42" screen print rows, constant
"CMAX" = "128" screen print columns, constant
"NL" = Chr$(13) + Chr$(10) for .txt file delimiter
(note: I say constant but these are variable not wise to change them though.)
*** Print commands which use ; to delimit variables inside text
. normal print and carriage return line feed use / one space after . or after ; to set spaces
; print and next print position is right where it is, dont forget to finish line with a . line
, tab built in columns
tab columnWidth;item;item;item;...
cpr row;textgoes here with plug-in variables ';here; and ;here;.
Center Print Row print a line of text.
clipout args1 - replace Clipboard contents from any variable or literal
clipadd args1 - Append tp Clipboard contents any variable or literal,
the command does the first NL$ = Chr$(13) + Chr$(10),
you must do manually any inside the stuff you are appending, if needed.
*** Input commands also ; to delimit prompt and variable
inps this is a sample prompt;var s on end signals string expected and will return mt for just enter keypress
inpn this is a sample number prompt;var n on end will turn an empty string entered to 0
*** Screen stuff now semi-colon delimited arguments to allow each argument to be evaluated:
loc row;col AKA Locate for print chars 8x16
at col;row Alternate that corresponds to graphics x, y but in char cells 8x16
tag pixX;pixY;text$ AKA _PrintString
cpr row;text Center Print atRow;text with variables;embedded;I think.
*** Screen Drawing now semi-colon delimited arguments to allow each argument to be evaluated:
ink r;g;b;a fore-color for printing or drawing
paper r;g;b;a back-color usually set at start
pix x;y AKA Pset(x, y)
line x1;y1;x2;y2 AKA Line(x1, y1)-(x2, y2)
box x1;y1;w;h AKA Line(x1, y1)-Step(x2, y2), ,B
fbox x1;y1;w;h AKA Line(x1, y1)-Step(x2, y2), ,BF
circ x1;y1;r AKA Circle (x1, y1), r
fcirc x1;y1;rr AKA For r = 0 To rr Step .25 : Circle (x, y), r : Next
ftri x1;y1;x2;y2;x3;y3 Special MapTriangle command for
*** Misc:
poll Updates preset mouse and key variables
cls AKA Cls
zzz AKA Sleep
beep AKA Beep this comes in handy for debugging
wait nSecs AKA _Delay
show TF AKA _Display, AutoDisplay Boolean: True = stops blinking, False = immediate draw/print
mouse TF Mouse Hide if False = 0, Show Mouse if True <> 0
set Astring;index;itemValue compare to A(i) = itemValue
also see var = get[astring,index] SFunction below
rndPt (arg = variableContainer) gets the next rndPt from a deck of all points on screen,
this helps distribute graphics "randomly" on screen, covers every point
then deck is reshuffled for next layer
rp = rndPt
x = rp mod xmax or as we like to say at oh, m[rp,xmax]
y = int(rp/ymax) or as we like to say at oh, int[d[rp,ymax]]
*** Boolean IF blocks
if BooleanExpression
ei BooleanExpression AKA ElseIf
el AKA Else
fi AKA End If
*** Loop structure only one unless count goto
[ - starts loop
] - ends loop
*** only ways out of loops are:
jmp BooleanExpression Jump! out of the current loop level the command is in.
exit usually from inner if block, exits current loop level
end stop run
goto labelName:
*** GoSub
gs labelName\ AKA GoSub (3/21 : changed to \ as line label marker)
rtn AKA Return
labelName\ for gs and goto (3/21 : changed to \ as line label marker)
*** File simplicity:
Save Astring;toFileName - command
AstringVar = load[fileName] - SFunction
files[] - AString list of the files in the current directory
*** SFunctions Syntax:
var = SFunction[a1, a2, a3,...] variables setting or reassigning
*** Booleans:
and[a1, a2, a3,... ] only returns -1 when all are <> 0
or[a1, a2, a3,... ] returns -1 if any one is <> 0
seq[a1, a2] does a string compare a1 = a2? -1 if true, 0 if not
eq[a1, a2] does a numeric compare a1 = a2? -1 if true, 0 if not
lt[a1, a2] less than a1<a2 -1 if true, 0 if not
lte[a1, a2] less than or equal a1<=a2 -1 if true, 0 if not
gt[a1, a2] greater than a1>a2 -1 if true, 0 if not
gte[a1, a2] greater than or equal a1>=a2 -1 if true, 0 if not
noteq[a1, a2] not equal a1<>a2 -1 if true, 0 if not
not[a1] if a1 = 0 then Not returns -1 else Not returns 0
*** Arithmetics:
a[a1, a2, a3,...] adds them all, a is for add
x[a1, a2, a3,...] multiplies all, x is for mult.
s[a1, a2] a1 - a2 s is for subtract
d[a1, a2] a1 / a2 if a2 <> 0 d is for divide
m[a1, a2] a1 mod a2 m is for mod AKA the remainder
p[a1, a2] a1 ^ a2 p is for power
*** Extended Arithmetics extended math so extended the names ;-))
add[a1,a2]
subtract[a1,a2] - should this be subtract or subtr? I don't like sub
mult[a1,a2] - I am sure this is OK for multiply
divide[a1,a2] - handles approx 100 decimal places (got to set a limit or it'd go on forever!),
the 3 binary's above are arbitrary.
inverse[PosInteger,NumberOfDecimals] - for custom designed division when 100 decimals wont do.
sqrroot[a1] - working independently from Mr$ Function like inverse.
(The extended math had 14 Routines, MR$ is controller of the Big 4 and stands for Math Regulator.)
*** Maths misc:
int[a1] converts to Integer, remove floating point decimal end if any
sqr[a1] returns square root if a1 is positive or 0
log[a1] QB64's Log, natural logarithm, see wiki Log to convert to Log(base 10)
exp[a1] QB64's Exp, Exp(1) = e
rnd[a1] a1 is multiplier of Rnd (0 to almost 1) * a1
abs[a1] Absolute value of a1
*** Trigs (Radian angle units)
sin[a1] a1 angle in radians, returns unique ratio
cos[a1] a1 angle in radians, returns unique ratio
tan[a1] a1 angle in radians, returns unique ratio
asin[a1] a1 is ratio, returns angle in radian units
acos[a1] a1 is ratio, returns angle in radian units
atan[a1] a1 is ratio, returns angle in radian units
rad[a1] a1 is usually an angle in degrees needing to be changed to radian units
deg[a1] a1 is usually an angle in radians needing to be converted to degree units
pi[a1] a1 is a multiplier or fraction of Pi
atan2[a1 (=deltaY's) , a2 (=deltaX's) ] SFunction with 2 args, definitely a plus!
note: delta usu. means difference
Find the angle of point 1 (x1,y1) from point 2 (x2, y2) )
Basic: var = _atan2(y1-y2,x1-x2) or oh: var = atan2[s[y1,y2],s[x1,x2]]
( You can figure the rest of the Trig Functions from these. )
*** String functions:
bnd[a1, a2, a3,...] bind, bond, bound this concatenates a1, a2, a3,...
join[delimiter$, a2, a3,...] like the above but links the with delimiter,
for comma or space separated items or Chr$(10) line separators
Allot of string functions have counterparts joins counterpart is:
split[a1, a2] a1 is string to split, a2 is the delimiter, splits usually go into arrays
for oh we are using Astrings, strings that can be indexed to retrieve items using the "get" function.
Another way to build giant strings from building block is:
cop[a1, a2] better than String$ command because it makes a1 concatenated copies of string a2
rejoin[a1, a2] will take the special Astring, a1, formed from split or cop maybe bnd and split
and rejoin using the the delimiters given as a2. Say you have processed an Astring of data and
wish to save it in a file as comma separated or as line by line.
*** String slices:
mid1[a1, a2] AKA Mid$(a1, a2, 1) a 1 char return in a1 at a2
mid2[a1, a2] AKA standard Mid$(a1, a2) 2 argument return remainder of a1 starting at a2
mid3[a1, a2, a3] AKA standard 3 argument MID$
left[a1, num of chars] AKA Left$
right[a1, num of chars] AKA Right$
head[a1, a2] from a1 find a2 and take the part that comes before a2
tail[a1, a2] from a1 find a2 (end) and take the remainder of string from there.
*** String finds:
in2[a1, a2] position of first a2 found in a1
in3[a1, a2, a3] starting at a1, find and return a3 position in a2
*** Chars:
asc[a1] returns ascii value of char, space = 32, enter = 13, tab = 9, dbl quote = 34, hyphen = 45
chr[a1] returns char of ascii number chr(65) = A, chr(48) = 0
*** Trimming spaces:
rtr[a1] removes spaces from right
ltr[a1] removes spaces from left
trim[a1] removes spaces left and right
*** Shouting, whispering, modifying:
cap[a1] a1 in all capitals
low[a1] a1 all lower case
replace[source$,replace$,new$] - replaces a string with new$ wherever found in source$
*** Astrings: like arrays, these are strings you can "get" an item value by index #
Set Astring;index;itemToAddOrReassign - this is a command as opposed to an SFunction
so sets counterpart is get:
get[a1, a2] from Astring, a1, get the item at index, a2. Compare to var = A(i), var = get[astring, index]
nItems[Astring] number of Items in the Astring (counts delimiters and adds 1)
*** Now for some easy string functions:
len[a1] returns the length in chars of a1
spc[a1] returns a1 block of spaces
date[] no argument Date$
time[] no argument Time$
clip[] no argument get contents of _ClipBoard
timer[] no argument still need [] this the number of secs since midnight, 3 decimals at least.
*** Special Order String Functions:
ASSORT[a1] ascending string sort of astring, a1
DSSORT[a1] descending string sort of astring, a1
ANSORT[a1] ascending numeric sort of astring, a1
DNSORT[a1] descending numeric sort of astring, a1
Fval[a1] will attempt to evaluate a string or numeric expression of functions and literals.
*** File simplicity:
Save Astring;toFileName
AstringVar = load[fileName]
files[] - AString list of the files in the current directory
Change Log: ==============================================================================================
*** 2021-03-09 The "Screen" commands are now ; delimited to allow each argument to be evaluated.
Commands effected: loc at tag ink pix line box fbox circ fcirc ftri wait show paper
All demos effected have been updated.
New command: cpr for centering print on a row: cpr row;my text is this with a variable ;here; to plug in.
See: Test ac Fval$ Tester.txt, demo as this has been completely rewritten for cpr and first
test of using Fval$ to check arguments to commands.
A Splash screen for Oh?
*** 2021-03-10 Added 300 plus lines for File Dialog & Company including a very nice array displayer for showing the
loaded programs, maybe I could do a help? No that is better in tabbed Notepad++
Internal Splash is gone and the other internal test programs, net effect 1300 LOC including the start
of oh's menu system
direntry.h has been added to the zip package, please copy | paste into your QB64 folder for cross platform
directory and files access if you dont have a copy there already. This allows the File Dialog part of oh to
work correctly.
*** 2021-03-14
Dumped checking the _ClipBoard for a program now with File Dialog and all.
Tidied up oh's menu a tiny bit.
Check cpr handling of embedded variables and or SF[]'s, OK that is fixed up but not sure I want to
do that for the other print commands? Oh yes!!! I do want that! (Done)
Note: it you call edit without a file name you will wind up on the command line, just type exit.
Add Command:
Save Astring;Filename
Reminder: Astring is my term for a string with indexed variable length string items.
Save will store each item as a line in given filename.
Add SFunction:
Astring = Load[filename]
So that you can load a file into an Astring for indexed access to lines.
Consolidate Set and RndPt (even though RndPt takes no arguments it assigns a var)
commands with all the other ; delimited commands that do calculations. So now,
you don't have to have middleman variables in the commands, you can calc directly
in the command.
Add preloaded Mouse variables:
MouseX, MouseY, MouseL, MouseR
Locate (x, y) mouse in pix and Boolean Left or Right Button Down
Add preloaded variable:
Key
For keypress detection.
New Poll command to update all those preloaded variables with mouse and Key status.
Left$ and Right$ var = Right[a1$, val(a2$)
Ubound of Astring amount = nItems[AString]
*** 2021-03-16
Added: string math for extended arithmetics in SFunctions
add[a1,a2]
subtract[a1,a2]
mult[a1,a2]
divide[a1,a2]
(Divide: numerator/denominator, is calc'd by multiplying numerator by inverse of denominator).
(So the inverse is calculated to 100 Decimal Places, but sometimes 100 decimal places wont do
so inverse[posInteger,NumberOfDecimals] is added to do custom "division" by controlling the
decimals in inverse and to be then multiplied by numerator in a hand made division calculation.)
Added command:
clipout a1 + whatever argument 1 is holding: literal, variable value substitution
or expression of SFunctions replaces contents of Clipboard
Added command:
clipadd a1 appends to, instead of replaces, Clipboard data.
Added SFunction clip[] no argument SFunction, you still need the brackets.
This puts the contents of the contents of the Clipboard into the spec'd var.
eg var = clip[]
*** 2021-03-17
Basically just a few fixes and tweaks to get Donut.txt to work. Fixed the file line count
with a different load of a file. Fixed bug from reading the Len[] of a file, thrown off by
the file containing []'s!!! So a new SafeBS$ Function filter/converter created that
converts [] to {}. Needed to fix the Ink, Paper and color restoring after Run.
*** 2021-03-19
For Mouse Action Shooter - Target Practice (Graphics Game #2 attempt)
3/18 added mouse TF - command with 1 argument. True to Show Mouse, False to Hide Mouse
3/18 added abs[arg1] - SFunction with 1 argument. Kind of surprised how much I use ABS.
3/18 added timer[] - SFunction no argument, still need brackets.
3/18 added atan2[a1 (=deltaY's) , a2 (=deltaX's) ] SFunction with 2 args, definitely a plus!
Find the angle of point 1 (x1,y1) from point 2 (x2, y2)
Basic: var = _atan2(y1-y2,x1-x2) or oh: var = atan2[s[y1,y2],s[x1,x2]]
3/19 added beep (command) no args, main reason: to help debug.
*** 2021-03-22
3/20 added inverse[PosInteger,NumberOfDecimals] for custom division or control of decimals.
This is = 1/PosNumber to a set amount of decimals.
3/21 added files[] - no argument SFunction that loads the files of current directory into an AString.
3/21 added replace[stringSource,stringToReplace,StringToRplaceWith] - 3 arguments SFunction.
3/21 fix? load[] renders [ brackets impotent by swapping them with { brackets
save Astring;FileName sort of needs to reverse that by replacing { back to [
This is messy, in future something else may be a better solution.
3/21 Line labels now end with \ instead of colon. This is to be consistent to oh rule, no shifts.
3/21 Added another preloaded variable nl (Next Line) for file line delimiter.
Vnames$(11) = "NL": Vvalues$(10) = Chr$(13) + Chr$(10)
3/21 Gutted out opening code and rewrote the code to display files on a scroller when have a
filename and existing file. Now the menu runs across top line in yellow and red and can
click menu item or key press first letter for New, Edit, Load, Run, or Quit.
Much better if I do say so myself :) This completes my goals for this revision.
*** 2021-03-27
3/23 Fix file display scroller to accept PgUp, PgDn, Home, End Keypresses.
Also run file lines through filter JIT to replace tabs with 4 spaces and other
chars < 32 with *. This enables the display of 39 lines on 39 lines without screen
scrolling and menu line lost.
3/23 NL fixed and working as expected in: Test oh replace and nl.txt file.
3/23 Adding SHARED Lists: CmdList$ and FunList$ for Function OK$ a line Syntax checker function
that will return nothing (OK) if the line is fine, or what it found wrong with proposed
program line. Inventory: 40 commands (fix 4 more), 74 SFunctions
3/26 Added 3 more procedures for Syntax checking and immediately learned I missed 4 commands in
command list. The only line it caught after that was an title line without a formal comment.
I started editing Particle Fountain (it is hopelessly S L O W) and the syntax checker caught
a missing argument in an Or line when I mistakenly typed a } instead of a regular ] bracket.
Good, it catches at least something. So now lines start with comments, commands, variables
or line labels\ (\ ends a line label now).
3/27 Fixed - Mouse Action Shooter - the first bullet fired was always nothing?? and yet 10 points
is deducted from the score as it should be. Show me the bullet! I just initialized all the
bullets properties instead of only the bLive AStrings (arrays).
3/27 Fixed. After editing a file, you have to change directory and change back to get the new
file loaded with the changes. I now do that automatically in code after an Edit.
*** 2021-03-27A
3/27A Syntax checking had a little sloppy handling of closing ] assuming it was at end of line
instead of checking if one was actually there to match opening [. I found 4
working programs that were missing a final bracket at the end. I also found a program
that used [] instead of parenthesis and it was flagged for unknown SFunction. So that part
of syntax checking is also fixed, you will be flagged for unrecognized functions.
So I went through all working programs and they now fly through syntax checking right into
a successful run.
*** 2021-06-03 fix divide$
6/03 Fix the divide$ Function so that, Test oh High Precision Square Root.txt, file program works.
Also found the clipout and clipadd help in, oh Cheat Sheet.txt in error and fixed (no square
brackets to enclose the argument).
*** 2021-06-15 String Math update
6/15 A number of fixes and improvements to the String Math package including new sqrroot[number]
Function. Unfortunately with the new fixes the inverse of STx number takes a bit longer than
it did, it's a wonder it was getting correct results originally. When testing all the
programs I noticed the nl "constant" I had forgotten all about. This is doing double spaced
lines because it is Chr$(13)+Chr$(10) probably should be one or other, not both together.
Since last update we created new programs:
Aurels Henon code, Bresenham Circle Fill, First 100 digit Fibonacci, Sqr Root estimating.
A version of the last program became part of the String Math package update!
Post by: bplus on March 08, 2021, 08:43:00 pm
Code: QB64: [Select]
- 'Test oh aj Sort Tests.txt b+ mod for oh 2021-03-07
- ' build test strings and numbers and display
- [
- cnt = a[cnt,1]
- jmp gt[cnt,20]
- ' change variable name from b to bstring
- bString = mt
- cnt2 = 0
- [
- cnt2 = a[cnt2,1]
- jmp gt[cnt2,rLen]
- ' bstring was getting B or R from this random choosing of letter
- ' and substituting back current value of b or r variable!!! Yikes
- ' no wonder bstring had numbers inserted or extra strings!!!
- ]
- set AstringS,cnt,bString
- ' change variable r to rNumber
- set AstringN, cnt, rNumber
- ; bString
- row = a[cnt,21]
- ; rNumber
- ]
- ' sort into 4 groups 2 string 2 number, ascending and descending
- sa = assort[AstringS]
- sd = dssort[AstringS]
- na = ansort[AstringN]
- nd = dnSort[AstringN]
- ' display sorted groups
- cnt = 0
- [
- cnt = a[cnt,1]
- jmp gt[cnt,20]
- at 20, cnt
- ; sai
- at 40, cnt
- ; sdi
- row = a[cnt,21]
- at 20, row
- ; nai
- at 40, row
- ; ndi
- ]
- Zzz
Once again I am burned by using 1 letter variables.
I was testing a possible rework of the set command and discovered an odd thing happening with the random string being built to sort. Some were becoming gigantic and others were having numbers inserted from the random number I was generating.
Turns out my 1 letter variables b and r were getting their values substituted back when the random letter generated one of them to add the the build string, so instead of the letter being added, it's stored value was!
LOL, yeah funny now, quite a shock when I first discovered the bug in the test code for oh late this afternoon.
BTW the set command stays as is, no need to say:
Code: [Select]
astringName = set[astringName, index, newValue$]when
Code: [Select]
set astringName, index, newValue$will do.Post by: bplus on March 09, 2021, 02:17:01 am
A new command for center printing a line with plug-in variables,
Code: [Select]
cpr row; my text with plug-in ;here1; and ;here2;.All the demos have been updated with new delimiter for appropriate commands and Test oh ac Fval$ Tester has been rewritten and I feature it now:
Code: [Select]
'Test ac Fval$ Tester.txt by b+ 2020-03-07 mod 2021-02-21 mod 2021-03-09
' I wrote in cpr just for this demo! Plus
[
cpr 2;*** Fval$ Tester ***
cpr 5;Arith: a[1,1] > 2, s[1,1] > 0, x[2,3] > 6, d[12,4] > 3 Constants: e = exp[1], pi = pi[1]
cpr 7;Math: modulus use m[3,2] > 1 power use p[2,3] > 8 log[], exp[], sqr[], int[], rnd[multiplier]
cpr 9;Trig (radians): sin[], cos[], tan[], asin[], acos[], atan[] Angle Conversion: rad[degrees], deg[radians]
cpr 11;Boolean: #=# use eq[ , ] for = numbers noteq[ , ] for <> lt[ , ] for < lte[ , ] for <=
cpr 13; gt[ , ] for > gte[ , ] for >= and[,,, ] or[,,, ] not[ ] seq[$,$] for string equal
cpr 16;Get the cheat sheet and test string functions! Here a most:
cpr 17;mid1, mid2, mid3, in2, in3, time, date, CAP, low, rtrim, ltrim, trim, spc, len
' first test ever of fval$ working on arguments to loc, at, tag, graphics...
loc a[17,3];5
inps (just enter to quit) Enter an expression to evaluate; expression
Jmp seq[expression,mt]
result = fval[expression]
at 5;22
cpr 22;The Tester came up with this: ;result
cpr 25;Wait 5 secs...
Wait 5
Cls
]
.
. Goodbye!
New zip package contains bas, exe for Windows 10, demo.txts and updated, oh cheat sheet.txt with change log now.
Update:
See the first post of this thread for most recent version of oh.bas and zip package.
Post by: bplus on March 09, 2021, 02:25:57 am
[ This attachment cannot be displayed inline in 'Print Page' view ]
Post by: Ed Davis on March 09, 2021, 10:23:59 am
I'm having fun looking at it!
Thanks for sharing it!
Post by: bplus on March 09, 2021, 11:00:31 am
This is _really_, _really_ cool!
I'm having fun looking at it!
Thanks for sharing it!
The sharing is my pleasure :)
Your looking over it is great, so far I know it works for some 1.5 dozen little tests about 50 times over in various versions over the past weeks. I am wondering what surprises are in store from the last change, evaluating the arguments coming in other than after an = space sign.
I personally luv the simplicity of the Fval$ function that gets right to the business of isolating the deepest nested SFunction and handing it off to FunHandler$.
Post by: Aurel on March 09, 2021, 11:23:28 am
very nice...btw.
i modify it to work with my old v1.3 and seems that all work well ;)
Post by: bplus on March 09, 2021, 11:42:55 am
Post by: bplus on March 10, 2021, 10:44:03 am
It was not playing nice last night but I think I have it tamed now. I have employed Steve's ScnState idea for saving and restoring screen conditions before and after doing things to it ie File Dialog and Runs and that seems to have smoothed things out considerable.
A little more testing to go, hope to tap into an editor. Since I couldn't get Notepad++ to run SB1.exe (with the active file I just edited in it), I will Run it (or whatever default editor does your txt files) through oh.
Update: Ok it seems everything is working as intended (on my Windows 10 laptop), could use more testing. Most curious to know if this thing is working in Linux? It should have proper cross platform file and directory access.
Be sure to add direntry.h file to your QB64.exe folder so it may find this header file. A copy is included in zip package that you can copy/paste into that folder if you don't have it there already :)
See first post of this thread for most recent version of oh.
Post by: bplus on March 14, 2021, 12:03:29 am
Added command:
save Astring;toFileName
Added SFunction Load
AstringVar = Load[filename]
And so this program:
Code: [Select]
' Test oh an file load and save quadratic data.txt b+ 2021-03-13
. Quadrartic = (x + 5) (2x + 6) = 2x^2 + 16x + 30
set file,1,Quadrartic = (x + 5) (2x + 6) = 2x^2 + 16x + 30
. expected roots are -3, -5
set file,2,expected roots are -3 and -5
a = 2
b = 16
c = 30
set file,3,a = 2 b = 16 c = 30
d = p[s[x[b,b],x[4,a,c]],.5]
root1 = d[a[s[0, b],d],x[2,a]]
root2 = d[s[s[0, b],d],x[2,a]]
. d = ;d
. root1 = ;root1
. root2 = ;root2
temp = bnd[ d = ,d]
set file,4,temp
temp = bnd[root1 = ,root1]
set file,5,temp
temp = bnd[root2 = ,root2]
set file,6,temp
'calc a small table of F(x)
x = -11
i = 7
[
x = a[x,1]
jmp gt[x,10]
i = a[i,1]
fx = a[x[2,x,x],x[16,x],30]
fline = bnd[x,:,fx]
. x;spc[2];fx;spc[2];fline
set file,i,fline
]
. number of lines = ;i
numberOfLines = i
save file;Quadratic Data 2x^2+16x+30.Dat
. data saved to file, press any to load data file and display...
zzz
cls
fdata = load[Quadratic Data 2x^2+16x+30.Dat]
i = 0
[
i = a[i,1]
jmp gt[i,numberOfLines]
fline = get[fdata,i]
. fline
]
Wrote this file:
Code: [Select]
Quadrartic = (x + 5) (2x + 6) = 2x^2 + 16x + 30
expected roots are -3 and -5
a = 2 b = 16 c = 30
d = 4
root1 = -3
root2 = -5
-10:70
-9:48
-8:30
-7:16
-6:6
-5:0
-4:-2
-3:0
-2:6
-1:16
0:30
1:48
2:70
3:96
4:126
5:160
6:198
7:240
8:286
9:336
10:390
Misspelling and all ;-))
Oh shoot, I might not need to preset those temp's for file lines but calculate them directly in the set lines.
retesting...
Nope, the set command is in it's own little niche with rndpt, time to reconsolidate more ; delimited commands!
So this part will work without the temp variable serving as a middleman.
Code: [Select]
'temp = bnd[ d = ,d]
set file,4,bnd[ d = ,d]
'temp = bnd[root1 = ,root1]
set file,5,bnd[root1 = ,root1]
'temp = bnd[root2 = ,root2]
set file,6,bnd[root2 = ,root2]
Also need the equivalent of an UBound command for Astrings, though wont get out of bounds errors would be handy for knowing the number of lines you just loaded from a file.
I'm also dreaming of an IDE. Notepad++ is being a bit annoying with all the auto-fills it automatically makes when I press Enter to start the next line.
Post by: bplus on March 14, 2021, 01:23:32 am
Code: [Select]
set file;4;bnd[ d = ,d]
set file;5;bnd[root1 = ,root1]
set file;6;bnd[root2 = ,root2]
Works now without the middleman! and now I think all the commands are ; delimited so that makes it easier to remember.
And I improved the output to screen and file:
Post by: STxAxTIC on March 14, 2021, 10:32:49 am
I appreciate you keeping us up to date with this thing. It's been about 4 or 5 days since I've given it a test run, and would like to try it again. Now that you're messing with polynomials, I should be able to test a few things. Gotta say though, it's damn near impossible to actually follow your updates. What was wrong with the old names for this project, and why is it being renamed again? Where is the latest full code? (The zip is 4 days old at the time of this post) Etc etc etc. The usual questions. We're also spread across several threads. Are the old threads obsolete now? Maybe a good practice is to make the last post on each of those point to this one, if you haven't already.
Opinion section: Make a webpage for this project!
EDIT (sorry I keep editing this post): Explain like I'm 5 please: How do I write a function in your syntax? Like f(x) = x^3 + cos(2x) Has this changed drastically over the months?
It seems like factorialMe is some kind of global in your factorial code, for instance:
Code: [Select]
F!:
If gt[factorialMe,1]
fac = x[fac,factorialMe]
factorialMe = s[factorialMe,1]
GS F!:
Fi
Rtn
I guess my question is: can functions have private scope? Can they have a return value or do they just effect a global, like GOSUB? (Sorry if this is super obvious to you.)
Post by: bplus on March 14, 2021, 12:32:17 pm
Hey bplus,
I appreciate you keeping us up to date with this thing. It's been about 4 or 5 days since I've given it a test run, and would like to try it again. Now that you're messing with polynomials, I should be able to test a few things. Gotta say though, it's damn near impossible to actually follow your updates. What was wrong with the old names for this project, and why is it being renamed again? Where is the latest full code? (The zip is 4 days old at the time of this post) Etc etc etc. The usual questions. We're also spread across several threads. Are the old threads obsolete now? Maybe a good practice is to make the last post on each of those point to this one, if you haven't already.
Opinion section: Make a webpage for this project!
EDIT (sorry I keep editing this post): Explain like I'm 5 please: How do I write a function in your syntax? Like f(x) = x^3 + cos(2x) Has this changed drastically over the months?
It seems like factorialMe is some kind of global in your factorial code, for instance:Code: [Select]F!:
If gt[factorialMe,1]
fac = x[fac,factorialMe]
factorialMe = s[factorialMe,1]
GS F!:
Fi
Rtn
I guess my question is: can functions have private scope? Can they have a return value or do they just effect a global, like GOSUB? (Sorry if this is super obvious to you.)
Hi @STxAxTIC
Thanks for your interest as always.
Where to begin? The name change from SB1 (Shorthand "Basic" for want of a better term) was limited by the Eval function. On the plus side the Eval function did keep the right side of the = looking "Basic" with Fortran like formulas.
On the negative side, for me, I was limited to numeric evaluations.
Here in oh, the eval function has been removed and replaced with an easy and versatile Fval$. The name change is completely appropriate in my view because it's a different animal now. It's got a different base structure, around Fval$ instead of Eval. It's not "Basic" with formula like structures on the right side of = my guess is it's more like Lambda functions from my brief scans of that on Internet. It's all string functions and you may nest them as arguments to other functions, really easy and really cool. No need to do binary operations in order, you just do deepest nested [] first and work up to no brackets level. No stacks or recursion needed to process a program line of code.
The name also reflects another Big Change: No need to use shift key for any commands or functions. You can write all your code with One Hand and that is where the name oh comes from, One Handed. Hold your coffee in one hand and write code with the other ;-)) OH = One Handed
One reason to keep these updates going is this is rather big change from Basic. To download the zip package and know what to do with it is too much to expect. So follow this thread and see why or how things end up the way they do. I am just settling in to a consistent ; delimited command line.
The newest updated zip package is at the First Post of this thread, a cheat sheet | manual | document | Change Log is in the very next post.
Like f(x) = x^3 + cos(2x)
y = a[p[x,3],cos[x[2,x]]]
'yeah not so Basic like anymore! The coder is doing the work of precompiling.
Ever wonder what math would be like if formulas looked like this instead of current?
poly = a[x[n1,x,x,x...],x[n2,x,x,x...],x[n3,x,x,x,,],... ,nN]
There are no functions/subs/procedures yet, to keep variables local in a GoSub (gs lineLabel:)
Do what they do under-the-hood, prefix them with the GoSub lineLabel eg lineLabel:_VarName.
But be sure to initialize as you would have to with a GoSub procedure.
You can set a variable with the name of the GoSub lineLabel! just don't put a colon on the end of it!
Yeah, kind of rinky-dink, but at moment I am enjoying the wealth and richness of having all the string functions I need at my disposal.
I want mouse and keypresses before fancy procedures with local scope.
Post by: STxAxTIC on March 14, 2021, 12:52:43 pm
All that said, if you want my humble opinion, get the language part perfect before you worry about mouse input. In fact never worry about mouse input, or graphics, or any of that. Now that you've become a master of string space, stay there and master it.
Post by: bplus on March 14, 2021, 02:45:39 pm
Quote
All that said, if you want my humble opinion, get the language part perfect before you worry about mouse input. In fact never worry about mouse input, or graphics, or any of that. Now that you've become a master of string space, stay there and master it.
LOL You don't know what I've planned for mouse and key, it's not a major operation we are talking about, it's simplicity itself! I was hoping to finish it yesterday with the file stuff (which is already simplicity) to be included in the next zip package.
I should be working on it now instead of yapping away but it's fun to throw out teasers. :)
One more: it's so easy now to slip in a string function, just add it to the FunHandler$ function that I can add extended string math functions as easy as I can add the missing right$ and left$ I noticed missing yesterday.
Post by: bplus on March 14, 2021, 06:48:18 pm
In a couple of demos there are two files the before and after, Test an with the Quadratic App has 2 versions, an and an2, the 2nd tests the latest updates made today along with the better looking f(n) lines. There are 2 Dat files created one from each version.
Here is review of section of Change Log for latest update:
Code: [Select]
*** 2021-03-14
Dumped checking the _ClipBoard for a program now with File Dialog and all.
Tidied up oh's menu a tiny bit.
Check cpr handling of embedded variables and or SF[]'s, OK that is fixed up but not sure I want to
do that for the other print commands? Oh yes!!! I do want that! (Done)
Note: it you call edit without a file name you will wind up on the command line, just type exit.
Add Command:
Save Astring;Filename
Reminder: Astring is my term for a string with indexed variable length string items.
Save will store each item as a line in given filename.
Add SFunction:
Astring = Load[filename]
So that you can load a file into an Astring for indexed access to lines.
Consolidate Set and RndPt (even though RndPt takes no arguments it assigns a var)
commands with all the other ; delimited commands that do calculations. So now,
you don't have to have middleman variables in the commands, you can calc directly
in the command.
Add preloaded Mouse variables:
MouseX, MouseY, MouseL, MouseR
Locate (x, y) mouse in pix and Boolean Left or Right Button Down
Add preloaded variable:
Key
For keypress detection.
Left$ and Right$ var = Right[a1$, val(a2$)
Ubound of Astring amount = nItems[AString]
And in my rush I forgot to mention the Poll command which updates all those preloaded Mouse and Key variables every time you call it.
See the first post in this thread for latest update zip package, see the next post (Reply #1) to review the commands and SFunctions and Change Log listed at the end.
Post by: bplus on March 15, 2021, 09:40:00 pm
Code: QB64: [Select]
- ' Test oh ap First test of extended math F!.txt b+ 2021-03-15
- [
- . Goodbye!
- el
- ' now that save is a command, can't use it as a variable
- ' save the number originally input because it is going to be changed
- savenum = factorialMe
- fac = 1
- GS F!:
- . savenum;! = ;fac
- .
- Fi
- ]
- F!:
- 'fac is going to get giagantic but factorialMe goes to 1
- 'mult instead of simple x indicates calling the extended math Mult handled through Mr$
- fac = mult[fac,factorialMe]
- factorialMe = s[factorialMe,1]
- GS F!:
- Fi
- Rtn
Tested 100! and 500! (see attached screen shots)
With just these 4 lines added to the FunHandler$, MR$ is short for Math Regulator, it controls the signs and decimals of String Math calls. The actual Mult Routine just does multiplication of 2 giant pos integer strings.
Code: QB64: [Select]
And 11 String Math routines added to oh code, 320 LOC for a total now of 1636.
I will probably add another function for controlling decimals in display strings that came with the String Math Functions.
Well more testing is needed of course but very pleased this worked on the first go!
Post by: bplus on March 15, 2021, 11:05:49 pm
Test oh ap modified with new Clipout command:
Code: [Select]
' Test oh ap First test of extended math F!.txt b+ 2021-03-15
. Now! with extended String Math Routines added to oh we might be able
. to do something impressive with factorials!
[
inpn (0 quits) enter a number to find it's factorial;factorialMe
If eq[0,factorialMe]
. Goodbye!
End
el
' now that save is a command, can't use it as a variable
' save the number originally input because it is going to be changed
savenum = factorialMe
fac = 1
GS F!:
. savenum;! = ;fac
.
inps Say, would you like a clip of that? (Enter y for yes);yes
if seq[cap[left[yes,1]],Y]
clipout bnd[savenum,! = ,fac]
fi
Fi
]
F!:
If gt[factorialMe,1]
'fac is going to get giagantic but factorialMe goes to 1
'mult instead of simple x indicates calling the extended math Mult handled through Mr$
fac = mult[fac,factorialMe]
factorialMe = s[factorialMe,1]
GS F!:
Fi
Rtn
From the clip a paste to a new txt file:
500!.txt
Code: QB64: [Select]
- 500! = 1220136825991110068701238785423046926253574342803192842192413588385845373153881997605496447502203281863013616477148203584163378722078177200480785205159329285477907571939330603772960859086270429174547882424912726344305670173270769461062802310452644218878789465754777149863494367781037644274033827365397471386477878495438489595537537990423241061271326984327745715546309977202781014561081188373709531016356324432987029563896628911658974769572087926928871281780070265174507768410719624390394322536422605234945850129918571501248706961568141625359056693423813008856249246891564126775654481886506593847951775360894005745238940335798476363944905313062323749066445048824665075946735862074637925184200459369692981022263971952597190945217823331756934581508552332820762820023402626907898342451712006207714640979456116127629145951237229913340169552363850942885592018727433795173014586357570828355780158735432768888680120399882384702151467605445407663535984174430480128938313896881639487469658817504506926365338175055478128640000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
;-)) It's like magic!
Post by: bplus on March 16, 2021, 09:21:34 am
Quote
However, once you step off that path, and enter the pseudo-Churchian topology of string space (just to call it something), suddenly your code merges with the very data it manages, and vice-versa. This is like the General Relativity of computer programming: in the same sense that Einstein realized that gravity equals geometry, functional programmers realize that data equals code. Two seemingly unrelated ingredients turned out to be *equal*.
Is it wave or is it particle?
I ran into a problem last night wanting to show an expression before and after being processed.
More particularly, I had just made a new command: ClipAdd to append text to clipboard as opposed to simply replacing whatever contents may be in there with something else.
Of course, I wanted to kill two birds with one stone, test more of the new extended math, string math procedures, just imported and looking good with first Factorial Test.
So I started to convert: Test oh ac Fval tester.txt program to show the expression = evaluation PLUS offer the option to append that line to the ClipBorad to add to the user's the ability to paste it anywhere the user's heart desired so long as the app takes clipboard pastes, but my expression string (and all before it in a Bnd[] SFunction) kept disappearing into the Twilight Zone, no error and everything after showed up just fine and program kept running with the Cheshire cat smile of having swallowed and digested my expression string properly as I have programmed it to do.
Well that's a head scratcher, maybe not so dramatic as gravity = geometry but in my universe, up there ;-))
So I wake up with the solution: inpbs, input bracket string like inps, it prompts the user to enter a value and assigns the variable name in code. Xtra to that, it creates a 2nd variable: variableNameBS and assigns a string that has the [] brackets exchanged out for {} brackets so now a reasonable facsimile of the SFunction expression can be displayed without all the internals trying to convert the string because it's got [] in it!
Well let's make it so....
Post by: bplus on March 16, 2021, 11:10:46 am
From Clipboard paste into new txt file
Code: [Select]
expressionbs
a{10000000000,.00000000001} = 10000000000
add{1000000000,.00000000001} = 1000000000.00000000001
s{10000000000,.00000000001} = 10000000000
subtract{10000000000,.00000000001} = 9999999999.99999999999
m{10000000000,9999999999} = 1
mult{10000000000,9999999999} = 99999999990000000000
d{11,990000000000} = 1.111111111111111D-11
divide{11,990000000000} = .00000000001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
Test oh aq...txt:
Code: [Select]
'Test aq Update Fval$ Tester.txt by b+ 2020-03-07 mod 2021-02-21 mod 2021-03-09 mod 2021-03-15&16
[
cpr 2;*** Update Fval$ Tester *** Note: I had to use {} for Square brackets.
cpr 5;Arith: a{1,1} > 2, s{1,1} > 0, x{2,3} > 6, d{12,4} > 3 Constants: e = exp{1}, pi = pi{1}
cpr 7;Math: modulus use m{3,2} > 1 power use p{2,3} > 8 log{}, exp{}, sqr{}, int{}, rnd{multiplier}
cpr 9;Trig (radians): sin{}, cos{}, tan{}, asin{}, acos{}, atan{} Angle Conversion: rad{degrees}, deg{radians}
cpr 11;Boolean: #=# use eq{ , } for = numbers noteq{ , } for <> lt{ , } for < lte{ , } for <=
cpr 13; gt{ , } for > gte{ , } for >= and{,,, } or{,,, } not{ } seq{$,$} for string equal
cpr 16;Get the cheat sheet and test string functions! Here a most:
cpr 17;mid1, mid2, mid3, in2, in3, time, date, CAP, low, rtr (RTrim$), ltr (LTrim$), trim, spc, len
cpr 19; New extended maths add{a$,b$} subtract{a$,b$} mult{a$,b$} divide{a$,b$}
' first test ever of fval$ working on arguments to loc, at, tag, graphics...
loc a[19,3];5
' new 3/16 the next line should create 2 variables: expression and expressionbs
' expression value is the expression with regular active []
' expressionbs value will hopefully be expression with the brackets replaced by {}
inpbs (just enter to quit) Enter an expression to evaluate;expression
.
. This is the expression: ;expression
. This is the new expressionbs created by new inpbs command ;expressionbs
.
Jmp seq[expression,mt]
result = fval[expression]
cpr 27;The Tester came up with this result: ;result
inps Say, would you like add that to the clipboard? (Enter y for yes);yes
if seq[cap[left[yes,1]],Y]
clipadd bnd[expressionbs, = ,result]
' brand new clipadd command test 3/16
fi
Cls
]
.
. Goodbye!
Just added this from Toolbox to oh:
Code: QB64: [Select]
Added this to the inputs command section:
Code: QB64: [Select]
- Split ProgramMap(Pline).ArgLine, ";", Args$()
- varName$ = Args$(2)
- _KeyClear 'man all my sleep keypress builds up the buffer!!!!
- AddModVariable varName$, temp$
- temp$ = StrReplace$(temp$, "[", "{") ' bracket racket!
- temp$ = StrReplace$(temp$, "]", "}") ' more, yikes!
- AddModVariable varName$ + "bs", temp$
oh at 1663 LOC :)
Post by: bplus on March 16, 2021, 11:36:09 am
[ This attachment cannot be displayed inline in 'Print Page' view ]
[ This attachment cannot be displayed inline in 'Print Page' view ]
Post by: bplus on March 16, 2021, 12:27:26 pm
var = clip[]
dumps the contents of the Clipboard into var.
So add part2 to the Test oh aj...txt program file:
Code: QB64: [Select]
- 'Test oh aq Update Fval$ Tester.txt by b+ 2020-03-07 mod 2021-02-21 mod 2021-03-09 mod 2021-03-15&16
- [
- cpr 19; New extended maths add{a$,b$} subtract{a$,b$} mult{a$,b$} divide{a$,b$}
- ' first test ever of fval$ working on arguments to loc, at, tag, graphics...
- ' new 3/16 the next line should create 2 variables: expression and expressionbs
- ' expression value is the expression with regular active []
- ' expressionbs value will hopefully be expression with the brackets replaced by {}
- .
- . This is the expression: ;expression
- . This is the new expressionbs created by new inpbs command ;expressionbs
- .
- Jmp seq[expression,mt]
- result = fval[expression]
- cpr 27;The Tester came up with this result: ;result
- clipadd bnd[expressionbs, = ,result]
- ' brand new clipadd command test 3/16
- ' with brand new inpbs application using expressionbs variable name created
- ' and value string with brackets swapped.
- fi
- ]
- ' OK 3/16 now test clip[], get contents into a var and then cls and print it
- ' I think I assumed clip was delimited by NL$ Chr$(13) + Chr$(10)
- ' It might just be Chr$(10), well let's see! Oh I just unloaded clipboard as a simple string!
- contents = clip[]
- cpr 1;"*** Clipboard Contents: ***"
- . contents
- .
- zzz
Looks OK
[ This attachment cannot be displayed inline in 'Print Page' view ]
Hopefully I will get zip package updated today, need to chase down that divide bump in road.
Post by: bplus on March 16, 2021, 02:21:25 pm
Ehhhh such a habit of putting quotes around strings ha, ha, ha just noticed the title in last screen shot.
You sure can get some interesting patterns of numbers dividing certain little numbers like 1 by certain giant numbers like 99999999999999999999999999999999997.
Post by: STxAxTIC on March 16, 2021, 02:49:27 pm
You sure can get some interesting patterns of numbers dividing certain little numbers like 1 by certain giant numbers like 99999999999999999999999999999999997.
Remember this convo from August?
Quote
It turns out that the first hundred (or so) Fibonacci Numbers can be produced by inverting the integer 999999999999999999999998999999999999999999999999 (bonus points for noticing that one of the digits is not a 9).
Post by: bplus on March 16, 2021, 02:59:56 pm
Remember this convo from August?
Sure do!
I'd have to make some modifications to code to duplicate that, as I recall I have to set number of decimal places to 1000's or 10,000's.
Here is Change Log for most recent zip package:
Code: QB64: [Select]
- *** 2021-03-16
- add[a1,a2]
- subtract[a1,a2]
- mult[a1,a2]
- divide[a1,a2]
- Added command:
- or expression of SFunctions replaces contents of Clipboard
- Added command:
- Added SFunction clip[] no argument SFunction, you still need the brackets.
- This puts the contents of the Clipboard into the spec'd var.
- eg var = clip[]
- todo:
- it's definitely a handy one.
Post by: bplus on March 17, 2021, 08:00:55 pm
Here is Donut.txt
Code: [Select]
' Donut.txt b+ 2021-03-17
' attempt #2 to do a fun little graphic
' center screen for circles
cx = d[xmax,2]
cy = d[ymax,2]
' area needed = number of chars we want to layover donut in pixels
' get Donut.txt file loaded as file (AString with Chr$(1) delimiters) and count chars.
file = load[Donut.txt]
LenF = len[file]
' fiddle the multiplier until everything just fits
areaNeeded = x[8,16,lenF,1.09]
' area of circle pi r^2 Big area Needed = hole area + areaNeeded, so big Radius = sqr(that/pi)
smallRadius = d[cy,3]
holeArea = x[p[smallRadius,2],pi[1]]
bigRadius = sqr[d[a[holeArea,areaNeeded],pi[1]]]
midRadius = d[a[smallRadius,bigRadius],2]
rad = smallRadius
[
if lt[rad,midRadius]
brownInkFrac = s[1,d[s[midRadius,rad],s[midRadius,smallRadius]]]
gs BrownInk:
el
brownInkFrac = d[s[bigRadius,rad],s[bigRadius,midRadius]]
gs BrownInk:
fi
circ cx;cy;rad
rad = a[rad,.25]
jmp gt[rad,bigradius]
]
' transparent background
paper 0;0;0;0
fixSmallRad = a[smallRadius,8]
fixBigRad = s[bigRadius,8]
y = 8
i = 0
[
x = 4
[
' is x,y inside donut
d = sqr[a[p[s[x,cx],2],p[s[y,cy],2]]]
if gt[d,fixSmallRad]
if lt[d,fixBigRad]
'draw char
ink rnd[255];rnd[255];rnd[255]
i = a[i,1]
tag s[x,4];s[y,8];mid1[file,i]
fi
fi
x = a[x,8]
jmp gt[x,xmax]
]
y = a[y,16]
jmp gt[y,ymax]
]
' restore oh colors
paper 0;0;39
ink 100;180;225
tag a[cx,s[bigRadius,50]];a[cy,s[bigRadius,50]];h
end
' according to brownInkFrac ink (color fore, ) a shade of brown
BrownInk:
' 180, 90, 55, 80, 40, 20
brownInkRed = a[80,x[100,brownInkFrac]]
brownInkGrn = a[40,x[50,brownInkFrac]]
brownInkBlu = a[20,x[35,brownInkFrac]]
ink brownInkRed;brownInkGrn;brownInkBlu
rtn
And screen shot of course!
[ This attachment cannot be displayed inline in 'Print Page' view ]
Copy of Change Log for 2021-03-17:
Code: [Select]
*** 2021-03-17
Basically just a few fixes and tweaks to get Donut.txt to work. Fixed the file line count
with a different load of a file. Fixed bug from reading the Len[] of a file, thrown off by
the file containing []'s!!! So a new SafeBS$ Function filter/converter created that
converts [] to {}. Needed to fix the Ink, Paper and color restoring after Run.
As always the most current zip package for oh is in the 1st post and the Help | Doc | Manual | Change Log is in Reply #1 this thread.
Post by: bplus on March 18, 2021, 12:10:52 am
Code: [Select]
' Stick with Me.txt b+ 2021-03-17
' inspired by SierraKen's game.
haha:
paper 0;0;39
cls
cnt = a[cnt,1]
if eq[m[cnt, 45],1]
cx = a[rnd[s[xmax,200]],100]
cy = a[rnd[s[ymax,200]],100]
fi
r = 100
[
if m[d[r,10],2]
ink 255;0;0
el
ink 255;255;255
fi
fcirc cx;cy;r
r = s[r,10]
jmp lte[r,0]
]
poll
if lte[sqr[p[s[cx,mousex],2],p[s[cy,mousey],2]],50]
score = a[score,5]
fi
score = s[score,1]
ink 255;255;0
paper 0;0;0;0
cpr 21;score
show -1
wait .005
goto haha:
Post by: bplus on March 19, 2021, 09:29:44 pm
Code: [Select]
' Mouse Action Shooter - Target Practice.txt b+ 2021-03-18 from
' _Title "Mouse Action Shooter #2 Targets fix" 'B+ 2019-04-04
' 2019-04-03 add some targets for practice
' Update Mouse Action Shooter with MB triggers 2019-04-01
' Mouse Action Shooter started from eRATication 5 by bplus 2018-08-06"
' SCORE System:
' Left click to fire a bullet, they cost 10 points each.
' Targets range from 30 for biggest targets to 100 points for smallest Targets
' Get hit by target loose 100 points and delays game with explosion.
NBullets = 15
BSpeed = 50
NTargets = 3
TSpeed = 10
ShooterRadius = 50
Score = 0
restart:
flaghit = 0
' targets init, ti = target index all thru app
ti = 0
[
ti = a[ti,1]
jmp gt[ti,NTargets]
gs NewTarget:
]
' init bLive array, bi = bullet index all thru app
bi = 0
[
bi = a[bi,1]
jmp gt[bi,NBullets]
set bLive;bi;0
]
' shooter or ship, lastX, LastY was the last position of shooter
shooterX = d[xmax,2]
shootery = d[ymax,2]
shooterA = 0
lastx = d[xmax,2]
lasty = d[ymax,2]
gs drawshooter:
' game, mouse display off
mouse 0
[
cls
'display score
ink 255;255;0
paper 0;0;0;0
cpr 21;score
'get mouse
poll
shooterX = MouseX
shooterY = MouseY
'detect mouse movement from last position, point nose to direction of movement
If or[gt[abs[s[lastx,shooterX]],2],gt[Abs[s[lasty,shooterY]],2]]
shooterA = atan2[s[shooterY,lasty],s[shooterX,lastx]]
lastx = shooterX
lasty = shooterY
fi
'check for bullet firing Left mouse
t = Timer[]
if mouseL
if gt[s[t,last1],.15]
mb1 = 1
last1 = t
fi
fi
'updates targets, shooter and bullets
gs handleTargets:
gs drawshooter:
gs handleBullets:
' collision between target and shooter, explosion
if expX
expRadius = 0
show 1
[
ink s[255,x[.5,expRadius]];s[255,x[expRadius,3]];0;8
fcirc expX;expY;expRadius
expRadius = a[expRadius,1]
jmp gt[expRadius,expR]
show 1
wait .005
]
expX = 0
el
show 1
wait .03
fi
]
end
NewTarget:
'pick edge, ti is target index
edge = Int[Rnd[4]]
if eq[edge,0]
set tX;ti;s[0,ShooterRadius]
set tY;ti;a[rnd[s[ymax,300]],150]
set tA;ti;a[pi[1.5],rnd[pi[1]]]
ei eq[edge,1]
set tX;ti;a[xmax,ShooterRadius]
set tY;ti;a[rnd[s[ymax,300]],150]
set tA;ti;a[pi[.5],rnd[pi[1]]]
ei eq[edge,2]
set tX;ti;rnd[xmax]
set tY;ti;s[0,ShooterRadius]
set tA;ti;rnd[pi[1]]
ei eq[edge,3]
set tX;ti;rnd[xmax]
set tY;ti;a[ymax,ShooterRadius]
set tA;ti;a[pi[1],rnd[pi[1]]]
fi
set tR;ti;x[a[int[rnd[8]],3],10]
rtn
handleTargets:
'ti is target index used in all the gosubs gs
ti = 1
[
set tX;ti;a[get[tX,ti],x[tSpeed,cos[get[tA,ti]]]]
set tY;ti;a[get[tY,ti],x[tSpeed,sin[get[tA,ti]]]]
'inbounds? if not set new
If lt[get[tx,ti],x[-1,shooterRadius]]
gs NewTarget:
ei gt[get[tx,ti],a[xmax,shooterRadius]]
gs NewTarget:
ei lt[get[ty,ti],x[-1,shooterRadius]]
gs NewTarget:
ei gt[get[ty,ti],a[ymax,shooterRadius]]
gs NewTarget:
el
gs hitShooter:
if hitShooter
score = s[score,100]
beep
'note explosion coordinates but finish drawing things
expX = d[a[shooterX,get[tx,ti]],2]
expY = d[a[shooterY,get[ty,ti]],2]
expR = x[1.3,get[tr,ti]]
'now reassign target coordinates
gs drawTarget:
gs NewTarget:
el
gs drawTarget:
fi
fi
ti = a[ti,1]
jmp gt[ti,NTargets]
]
rtn
drawTarget:
'ti is target index used in all gosubs for Target
drawTargetR = get[tR,ti]
drawTargetStep = d[s[0,drawTargetR],10]
drawTargetCount = 0
[
drawTargetCount = a[drawTargetCount,1]
if m[drawTargetCount,2]
ink 255;0;0
El
ink 255;255;255
fi
fcirc get[tX,ti];get[tY,ti];drawTargetR
drawTargetR = a[drawTargetR,drawTargetStep]
jmp lte[drawTargetR,0]
]
rtn
HandleBullets:
bi = 0
[
bi = a[bi,1]
jmp gt[bi,NBullets]
' have a bullet slot and an order to fire?
if and[eq[get[bLive,bi],0],eq[mb1,1]
set bx;bi;a[shooterX,x[.5,shooterRadius,cos[shooterA]]]
set by;bi;a[shooterY,x[.5,shooterRadius,sin[shooterA]]]
set bdx;bi;x[bSpeed,cos[shooterA]]
set bdy;bi;x[bSpeed,sin[shooterA]]
set bLive;bi;1
mb1 = 0
'bullets cost 10 points
score = s[score,10]
ei eq[get[bLive,bi],1]
' Then new location
set bx;bi;a[get[bx,bi],get[bdx,bi]]
set by;bi;a[get[by,bi],get[bdy,bi]]
' in bounds?
'assume it's out
set bLive;bi;0
if gt[get[bx,bi],-50]
if lt[get[bx,bi],a[xmax,50]]
if gt[get[by,bi],-50]
if lt[get[by,bi],a[ymax,50]]
' it's Alive!
set bLive;bi;1
'check for collision with targets
gs HitTarget:
if gt[hitTarget,0]
score = a[score,s[130,get[tr,hitTarget]]
set bLive;bi;0
ti = hitTarget
gs NewTarget:
El
'draw bullet
ink 255;255;0
fcirc get[bx,bi];get[by,bi];4
fi
fi
fi
fi
fi
fi
]
rtn
HitTarget:
hitTarget = 0
ti = 0
[
ti = a[ti,1]
jmp gt[ti,NTargets]
If lte[sqr[a[p[s[get[tx,ti],get[bx,bi]],2],p[s[get[ty,ti],get[by,bi]],2]]],get[tr,ti]]
hitTarget = ti
fi
]
rtn
hitShooter:
'ti is target index for all target gosubs
hitShooter = 0
If lte[sqr[a[p[s[shooterX,get[tX,ti]],2],p[s[shooterY,get[tY,ti]],2]]],a[10,get[tR,ti]]]
hitShooter = ti
fi
rtn
drawshooter:
x1 = a[shooterX,x[s[shooterRadius,30],cos[shooterA]]]
y1 = a[shooterY,x[s[shooterRadius,30],sin[shooterA]]]
x2 = a[shooterX,x[a[shooterRadius,20],cos[a[shooterA,pi[d[11,16]]]]]]
y2 = a[shooterY,x[a[shooterRadius,20],sin[a[shooterA,pi[d[11,16]]]]]]
x3 = a[shooterX,x[a[shooterRadius,20],cos[s[shooterA,pi[d[11,16]]]]]]
y3 = a[shooterY,x[a[shooterRadius,20],sin[s[shooterA,pi[d[11,16]]]]]]
ink 0;130;60
ftri x1;y1;x2;y2;x3;y3
x1 = a[shooterX,x[shooterRadius,cos[shooterA]]]
y1 = a[shooterY,x[shooterRadius,sin[shooterA]]]
x2 = a[shooterX,x[shooterRadius,cos[a[shooterA,pi[d[7,8]]]]]]
y2 = a[shooterY,x[shooterRadius,sin[a[shooterA,pi[d[7,8]]]]]]
x3 = a[shooterX,x[shooterRadius,cos[s[shooterA,pi[d[7,8]]]]]]
y3 = a[shooterY,x[shooterRadius,sin[s[shooterA,pi[d[7,8]]]]]]
ink 0;0;200
ftri x1;y1;x2;y2;x3;y3
x2 = a[shooterX,x[shooterRadius,cos[a[shooterA,pi[d[15,16]]]]]]
y2 = a[shooterY,x[shooterRadius,sin[a[shooterA,pi[d[15,16]]]]]]
x3 = a[shooterX,x[shooterRadius,cos[s[shooterA,pi[d[15,16]]]]]]
y3 = a[shooterY,x[shooterRadius,sin[s[shooterA,pi[d[15,16]]]]]]
ink 255;255;255
ftri x1;y1;x2;y2;x3;y3
rtn
Change Log for this update:
Code: [Select]
*** 2021-03-19
For Mouse Action Shooter - Target Practice (Graphics Game #2 attempt)
3/18 added Mouse TF - command with 1 argument. True to Show Mouse, False to Hide Mouse
3/18 added ABS[arg1] - SFunction with 1 argument. Kind of surprised how much I use ABS.
3/18 added Timer[] - SFunction no argument, still need brackets.
3/18 added Atan2[a1 (=deltaY's) , a2 (=deltaX's) ] SFunction with 2 args, definitely a plus!
Find the angle of point 1 (x1,y1) from point 2 (x2, y2)
Basic: var = _atan2(y1-y2,x1-x2) or oh: var = atan2[s[y1,y2],s[x1,x2]]
3/19 added Beep (command) no args, main reason: to help debug.
And here is almost the same game in QB64 without a simple little explosion display when target collides with Shooter (this just clears screen and says Ouch!) :
Code: QB64: [Select]
- 'Mouse Action Shooter started from eRATication 5 by bplus 2018-08-06"
- ' upodate Mouse Action Shooter with MB triggers 2019-04-01
- ' 2019-04-03 add some targets for practice
- ' SCORE System:
- ' Right click to fire a bullet, they cost 10 points each.
- ' Targets range from 30 for biggest targets to 100 points for smallest Targets
- ' Get hit by target loose 100 points and delay of game.
- '2019-04-04 Keeping Ashish Target fix, wait until completely off screen.
- ' Now give the bullets a little long range before deactivating them.
- ' Fix shooter x, y by locating in center of shooter instead of nose. It's already OK!
- ' 2021-03-19 using this code for oh program and want to fix point when target crashes into shooter/ship
- ' by reassignning target new coordinates by saying NewTarget index that should fix the continuous crashing right?
- ' Let's see, in oh it doesn't work, how about here? Works just as expected. So what's up with oh?
- ' (Fixed it was an index goof for public variables used in GoSubs).
- 'screen dimensions
- Type shooterType
- Type bulletType
- Type targetType
- 'targets
- 'bullets
- 'shooter
- shooter.x = xmax / 2
- shooter.y = ymax / 2
- shooter.a = 0
- lastx = xmax / 2: lasty = ymax / 2
- 'game
- GameOn = 1
- While GameOn
- mb1 = 0: mb2 = 0
- lastx = shooter.x: lasty = shooter.y
- handleTargets
- drawshooter
- handleBullets
- _Limit 30
- Sub handleTargets
- 'update position
- 'inbounds?
- newTarget i
- 'explosion
- score = score - 100
- _Delay .2
- ' fix target crashing into ship by removing target with reassigning
- newTarget i ' in oh this does not work
- drawTarget i
- 'pick edge
- fcirc t(i).x, t(i).y, r, c~&
- b(i).live = 1
- mb1 = 0
- score = score - 10 'bullets cost 10 points
- b(i).x = b(i).x + b(i).dx
- b(i).y = b(i).y + b(i).dy
- 'check for collision with ...
- t = hitTarget(i)
- score = score + 130 - t(t).r
- b(i).live = 0
- newTarget t
- 'draw bullet
- 'fcirc b(i).x, b(i).y, 4, _RGB32(64, 0, 0)
- b(i).live = 0 'dectiveate
- hitTarget = -1
- 'check shooter x, y = fixed a long time ago!
- 'fcirc shooter.x, shooter.y, 4, _RGB32(140, 120, 140)
- ' found at [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]: http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=14425.0
- _Dest a&
- _Dest 0
- _FreeImage a& '<<< this is important!
- RadiusError = -Radius
- X = Radius
- Y = 0
- ' Draw the middle span here so we don't draw it twice in the main loop,
- ' which would be a problem with blending turned on.
- While X > Y
- RadiusError = RadiusError + Y * 2 + 1
- X = X - 1
- RadiusError = RadiusError - X * 2
- Y = Y + 1
Post by: bplus on March 20, 2021, 06:03:47 pm
Tested with STxNumber whose inverse is the first 100 terms or so of Fibonacci Series.
Code: [Select]
' Test oh ar STx famous number to invert.txt 2021-03-16 need line 9 number in clipboard for line 2 to work.
' Update this test with the new inverse[PosInteger,NumberOfDecimalPlaces]
' copy paste STx number 23-9's, 1-8, 24-9's
STxNumber = 999999999999999999999998999999999999999999999999
. STxNumber to find inverse that equals first 100 plus terms of Fibonacci Series:
. STxNumber
.
. And drum roll.... the inverse is:
Fibonacci = inverse[STxNumber,4000]
. Fibonacci
.
. What do ya say we determine just exactly how many terms we have?
zzz
end
Looks good!
Post by: bplus on March 20, 2021, 08:20:18 pm
Code: [Select]
' Test oh ar STx famous number to invert.txt 2021-03-16 need line 9 number in clipboard for line 2 to work.
' Update this test with the new inverse[PosInteger,NumberOfDecimalPlaces]
' copy paste STx number 23-9's, 1-8, 24-9's
STxNumber = 999999999999999999999998999999999999999999999999
. STxNumber to find inverse that equals first 100 plus terms of Fibonacci Series:
. STxNumber
.
. And drum roll.... the inverse is:
Fibonacci = inverse[STxNumber,4000]
. Fibonacci
.
. What do ya say we determine just exactly how many terms we have?
. ZZZ... press any to count terms.
zzz
f1 = 1
f2 = 1
startSearch = 1
termN = 2
[
fN = add[f1,f2]
searchFor = bnd[0,fN,0]
find = in3[startSearch,Fibonacci,searchFor]
if find
termN = a[termN,1]
. Term Number ;termN; = ;searchFor; found at ;find
f1 = f2
f2 = fN
startSearch = a[find,s[len[searchFor],1]]
el
. searchFor; not found, at least not found enclosed by 0's.
jmp 1
fi
]
. Here is the next 25 places after last find
. mid3[Fibonacci,startSearch,25]
. This concludes our search for the number of Fibonacci Terms in the inverse of Stx Number.
[ This attachment cannot be displayed inline in 'Print Page' view ]
Post by: bplus on March 20, 2021, 10:00:46 pm
Post by: bplus on March 20, 2021, 10:11:19 pm
Code: QB64: [Select]
- ' Test oh ar STx famous number to invert.txt 2021-03-16 need line 9 number in clipboard for line 2 to work.
- ' Update this test with the new inverse[PosInteger,NumberOfDecimalPlaces]
- ' copy paste STx number 23-9's, 1-8, 24-9's
- STxNumber = 999999999999999999999998999999999999999999999999
- . STxNumber to find inverse that equals first 100 plus terms of Fibonacci Series:
- . STxNumber
- .
- Fibonacci = inverse[STxNumber,4000]
- . Fibonacci
- .
- . What do ya say we determine just exactly how many terms we have?
- . ZZZ... press any to count terms.
- zzz
- f1 = 1
- f2 = 1
- startSearch = 1
- termN = 2
- [
- searchFor = add[f1,f2]
- find = in3[startSearch,Fibonacci,searchFor]
- if find
- termN = a[termN,1]
- . Term Number ;termN; = ;searchFor; found at ;find
- f1 = f2
- f2 = searchFor
- el
- . searchFor; not found.
- jmp 1
- fi
- ]
- . mid3[Fibonacci,startSearch,30]
- . This concludes our search for the number of Fibonacci Terms in the inverse of Stx Number.
I am hoping to finish off ToDo List for next zip package with new Inverse[] SFunction.
Post by: bplus on March 21, 2021, 01:13:16 pm
Thank goodness there is a symbol left without having to shift.
There are ` (not single quote) and - and / also, one might be used for double parking?
Post by: bplus on March 21, 2021, 01:20:53 pm
Oh! This is perfect job for strReplace[] time to get that loaded into oh and then make an oh app to change all the old oh program files!
Hope this works!
Post by: bplus on March 21, 2021, 03:04:32 pm
Oh heck will need a files[] SFunction before a strReplace[],
funny how necessity is the Mother of Invention.
Those should be fairly easy to add (famous last words) if I could only get mom and dog and errands settled.
Spring has sprung in my neck of the woods :)
Post by: bplus on March 22, 2021, 01:52:10 am
oh now has a files[] SFunction you can get a list of Files in the current directory.
oh now has the replace[source$,replace$,new$] SFunction.
Well here is the change log for v2021-03-22:
Code: [Select]
*** 2021-03-22
3/20 added inverse[PosInteger,NumberOfDecimals] for custom division or control of decimals.
This is = 1/PosNumber to a set amount of decimals.
3/21 added files[] - no argument SFunction that loads the files of current directory into an AString.
3/21 added replace[stringSource,stringToReplace,StringToRplaceWith] - 3 arguments SFunction.
3/21 fix? load[] renders [ brackets impotent by swapping them with { brackets
save Astring;FileName sort of needs to reverse that by replacing { back to [
This is messy, in future something else may be a better solution.
3/21 Line labels now end with \ instead of colon. This is to be consistent to oh rule, no shifts.
3/21 Added another preloaded variable nl (Next Line) for file line delimiter.
Vnames$(11) = "NL": Vvalues$(10) = Chr$(13) + Chr$(10)
3/21 Gutted out opening code and rewrote the code to display files on a scroller when have a
filename and existing file. Now the menu runs across top line in yellow and red and can
click menu item or key press first letter for New, Edit, Load, Run, or Quit.
Much better if I do say so myself :) This completes my goals for this revision.
This has advanced well beyond the SB1 Interpreter!
Post by: Ed Davis on March 22, 2021, 07:25:57 am
This has advanced well beyond the SB1 Interpreter!
Yes it has! I continue to be amazed at what you have done. Very, very impressive!
I really think you should consider writing up a nice blurb about it and listing it here: https://esolangs.org/wiki/Main_Page (https://esolangs.org/wiki/Main_Page)
In any case, good job!
Post by: bplus on March 22, 2021, 10:47:28 am
Yes it has! I continue to be amazed at what you have done. Very, very impressive!
I really think you should consider writing up a nice blurb about it and listing it here: https://esolangs.org/wiki/Main_Page (https://esolangs.org/wiki/Main_Page)
In any case, good job!
Thanks Ed, really appreciate your comments. Since breakthrough 3/7 I have my hands full trying to keep the help/cheat sheet up to date; there is so much more I want to do. The reader is begging for improvements and why not do some file maintenance like moving or killing or navigating? I am considering a Syntax line checker next for an IDE eventually and how about user defined commands and functions? That's on backburner and I think the syntax checker is good step towards that. That by the way is one of my favorite parts of QB45 and QB64 language, OK
I did do quick scan of link, seems there are more eso-languages than we have active members here ;-))
You can see in seconds people have fun with this stuff!
Post by: bplus on March 23, 2021, 07:04:16 pm
The problem with NL is fixed, Chr$(13) + Chr$(10) is now accessible "constant" as build in variable like xmax, ymax highest x, y pixel and rmax, cmax highest row and column char cell you may loc (LOCATE).
Reader/Scroller now responds to PgUp, PgDn, Home, and End keypresses along with mouse-wheel scrolling.
The text in reader is now filtered replacing chars < 32 with * unless a tab which is replaced by 4 spaces. Now the len of lines are controlled so the screen wont overprint and we never loose sight of the top line menu in red and yellow while displaying the file lines (up to 127 chars in width with tabs converted to 4 spaces).
Starting on OK$ syntax checking of an oh program line. CmdList$ has 40 commands registered and FunList$ has 74 SFunctions registered. Now for the hard part... ;-))
These changes will be included in next zip packaged to be announced below.
Post by: bplus on March 27, 2021, 01:44:23 am
Here is change log for oh v2021-03-27:
Code: [Select]
*** 2021-03-27
3/23 Fix file display scroller to accept PgUp, PgDn, Home, End Keypresses.
Also run file lines through filter JIT to replace tabs with 4 spaces and other
chars < 32 with *. This enables the display of 39 lines on 39 lines without screen
scrolling and menu line lost.
3/23 NL fixed and working as expected in: Test oh replace and nl.txt file.
3/23 Adding SHARED Lists: CmdList$ and FunList$ for Function OK$ a line Syntax checker function
that will return nothing (OK) if the line is fine, or what it found wrong with proposed
program line. Inventory: 40 commands (fix 4 more), 74 SFunctions
3/26 Added 3 more procedures for Syntax checking and immediately learned I missed 4 commands in
command list. The only line it caught after that was an title line without a formal comment.
I started editing Particle Fountain (it is hopelessly S L O W) and the syntax checker caught
a missing argument in an Or line when I mistakenly typed a } instead of a regular ] bracket.
Good, it catches at least something. So now lines start with comments, commands, variables
or line labels\ (\ ends a line label now).
3/27 Fixed - Mouse Action Shooter - the first bullet fired was always nothing?? and yet 10 points
is deducted from the score as it should be. Show me the bullet! I just initialized all the
bullets properties instead of only the bLive AStrings (arrays).
3/27 Fixed. After editing a file, you have to change directory and change back to get the new
file loaded with the changes. I now do that automatically in code after an Edit.
Post by: bplus on March 27, 2021, 01:56:00 pm
Post by: bplus on March 27, 2021, 06:20:31 pm
Not much to Change Log:
Code: [Select]
*** 2021-03-27A
3/27A Syntax checking had a little sloppy handling of closing ] assuming it was at end of line
instead of checking if one was actually there to match opening [. I found 4
working programs that were missing a final bracket at the end. I also found a program
that used [] instead of parenthesis and it was flagged for unknown SFunction. So that part
of syntax checking is also fixed, you will be flagged for unrecognized functions.
So I went through all working programs and they now fly through syntax checking right into
a successful run.
Post by: DANILIN on May 26, 2021, 06:51:48 am
Code: [Select]
7 8
8 13
9 21
...
24 28657
25 46368
26 75025
...
76 2111485077978050
77 3416454622906707
78 5527939700884757
79 8944394323791464
80 1.447233402467622D+16https://www.qb64.org/forum/index.php?topic=3935.msg132756#msg132756 (https://www.qb64.org/forum/index.php?topic=3935.msg132756#msg132756)
results write in file for addition more spaces
manually or automatically for viewing comfortable
Code: QB64: [Select]
Post by: bplus on May 26, 2021, 02:40:58 pm
Code: QB64: [Select]
- ' Test oh Fibonacci test find first 100 digit Fibonacci Number
- f1 = 1
- f2 = 1
- count = 2
- [
- fNew = add[f1,f2]
- f1 = f2
- f2 = fNew
- count = a[count,1]
- , count;fNew
- .
- fi
- clipout fNew
- , count;fNew
- .
- fi
- ]
- ' clipboard has this:
- ' 1344719667586153181419716641724567886890850696275767987106294472017884974410332069524504824747437757
confirmed it is 100 digits:
Code: QB64: [Select]
- s$ = "1344719667586153181419716641724567886890850696275767987106294472017884974410332069524504824747437757"
This mod of Steve's code confirms the 476th Fibonacci term is first with 100 digits assuming first is 1 and 2nd is 1, Steve started a little earlier ;-))
Code: QB64: [Select]
- 'Fibonacci for 1000 numbers
- 'If it seems odd that there's a thanks in the funtion to myself, that's because I shamelessly stole add$
- 'from bplus. :P
- a$ = "1": b$ = "1" ' first 2 terms
- c$ = add$(a$, b$)
- a$ = b$
- b$ = c$
- 'Print c$
- Function add$ (a$, b$) 'add 2 positive integers assume a and b are just numbers no spaces or - signs
- 'first thing is to set a and b numbers to same length and multiple of 18 so can take 18 digits at a time
- 'now taking 18 digits at a time Thanks Steve McNeill
- result$ = new$ + result$
- add$ = result$
Post by: George McGinn on May 26, 2021, 11:08:50 pm
Update: I now have the arguments to the Screen and Graphics commands being run through Fval$ so you don't need to create extra variables for simple row, col cals or x, y's for a graphic but this required making the argument delimiter a semi-colon to distinguish from the comma delimiter in all SFunctions.
A new command for center printing a line with plug-in variables,Code: [Select]cpr row; my text with plug-in ;here1; and ;here2;.
All the demos have been updated with new delimiter for appropriate commands and Test oh ac Fval$ Tester has been rewritten and I feature it now:Code: [Select]'Test ac Fval$ Tester.txt by b+ 2020-03-07 mod 2021-02-21 mod 2021-03-09
' I wrote in cpr just for this demo! Plus
[
cpr 2;*** Fval$ Tester ***
cpr 5;Arith: a[1,1] > 2, s[1,1] > 0, x[2,3] > 6, d[12,4] > 3 Constants: e = exp[1], pi = pi[1]
cpr 7;Math: modulus use m[3,2] > 1 power use p[2,3] > 8 log[], exp[], sqr[], int[], rnd[multiplier]
cpr 9;Trig (radians): sin[], cos[], tan[], asin[], acos[], atan[] Angle Conversion: rad[degrees], deg[radians]
cpr 11;Boolean: #=# use eq[ , ] for = numbers noteq[ , ] for <> lt[ , ] for < lte[ , ] for <=
cpr 13; gt[ , ] for > gte[ , ] for >= and[,,, ] or[,,, ] not[ ] seq[$,$] for string equal
cpr 16;Get the cheat sheet and test string functions! Here a most:
cpr 17;mid1, mid2, mid3, in2, in3, time, date, CAP, low, rtrim, ltrim, trim, spc, len
' first test ever of fval$ working on arguments to loc, at, tag, graphics...
loc a[17,3];5
inps (just enter to quit) Enter an expression to evaluate; expression
Jmp seq[expression,mt]
result = fval[expression]
at 5;22
cpr 22;The Tester came up with this: ;result
cpr 25;Wait 5 secs...
Wait 5
Cls
]
.
. Goodbye!
New zip package contains bas, exe for Windows 10, demo.txts and updated, oh cheat sheet.txt with change log now.
Update:
See the first post of this thread for most recent version of oh.bas and zip package.
Post by: bplus on May 26, 2021, 11:43:15 pm
oh v 2021-03-27A
The latest cheat sheet / manual is very next post (or in zip).
Run oh.exe (after you have compiled the bas source, unless an exe there already)
Load file "Test oh ac Fval$ Tester.txt"
select 'Load' by clicking and select the file from files and directory navigator selector.
When file selected it will be displayed for you to read through and decide to Run or Edit or Load a different file.
Select Run by clicking...
Run through Syntax Check and the file is running, it is waiting for something to test try 1+ 1 to see if 2
Type a[1,1] <<< and those are square brackets that's add function
and Enter
Tester responses
Warning this is not Basic like in way you command it everything is done through function[arg1,arg2,arg3...] syntax
A is for add, x is for multiple because m is used for modulus, d for divide, s subtract
Opps just ran into error myself let recheck. dah! forgot the second ]
Make sure you use [] square brackets for everything, can't print them in programs because then code starts looking for Function so whenever I say {} I mean [] in those programs.
If there is a particular function or set of them that is hanging you up let me know so I can explain further.
Thank you for giving this program a look see!
Post by: bplus on May 27, 2021, 12:07:48 am
I know how this stuff is suppose to work and I can't imagine what it is like for someone new trying it out so your feed back is important for me and for others. Thanks
This Interpreter is like a library of some nice functions built in like Sorting, saving stuff to clipboard, Extended math with Strings, very simple Load and Save File from array you've processed in your program, circle fill and triangle fills and it is pretty easy to add your own stuff (well easy for me to say and do). Graphics too slow for serious games but nice for diagramming or plotting maybe.
Post by: bplus on June 03, 2021, 11:34:56 pm
Now this program works as intended to find precision Square Roots to 100 digits which was testing code for a String Math extension to Square Roots.
oh interpreter program:
Code: [Select]
' Test oh High Precision Square Root b+ 2021-06-03 now with divide$ fixed
' stores square root in clipboard
[
'remember everything strings
inps Enter a number to find it's square root;n
if seq[n,mt]
end
fi
guess = divide[n,2.1]
other = n
loopCnt = 0
[
loopCnt = a[loopCnt,1]
. Loop Count: ;loopCnt;
if seq[mid3[guess,1,105],mid3[lastGuess,1,105]]
sr = mid3[other,1,101]
. square root of ;n; is:
. sr
. len(other) = ;len[sr]
clipout sr
exit
el
lastGuess = guess
sum = add[guess,other]
guess = divide[sum,2]
other = divide[n,guess]
fi
]
]
You can compare it to this in String Math thread:
https://www.qb64.org/forum/index.php?topic=2921.msg133040#msg133040
(oh that was modified for negative numbers)
Post by: Aurel on June 07, 2021, 02:14:10 am
...even syntax is little bit esoteric to me ..heh !
Post by: bplus on June 07, 2021, 01:29:41 pm
I think one of it's best features is String Math and if you are following that thread you will see mine is loaded with bugs.
Just today I finally got a single decimal point that crept into a 10,000! calculation. Supposed to have 35660 digits I was getting 35661 because of a single dang dot! Turns out I had to change all my Integers to Long as I originally did not think I would be dealing with strings over 32K chars. Now 10000! is perfect but takes too long... working on that.
I did get the inverse of Stx number down to 2 secs from 19? But before it was coming under a sec with faulty subtr$ or divide$ functions, oddly the Fibonacci terms were reporting correctly from the beginning.
Post by: Aurel on June 08, 2021, 08:17:10 am
Quote
Turns out I had to change all my Integers to Longwell i don't know that they are different in qb64..in o2 i think that are same .
In my interpreter i am using FLOAT type for variables ..but Long or Int type give
the fastest operations in any language..
on the other side string operations are time consumig..aka slower
work with type CHAR or BYTE are quicker, for big buffers in m(A) i am using CHAR.
Post by: bplus on June 15, 2021, 10:24:17 pm
Here is the new part of change log:
Quote
*** 2021-06-15 String Math update
6/15 A number of fixes and improvements to the String Math package including new sqrroot[number]
Function. Unfortunately with the new fixes the inverse of STx number takes a bit longer than
it did, it's a wonder it was getting correct results originally. When testing all the
programs I noticed the nl "constant" I had forgotten all about. This is doing double spaced
lines because it is Chr$(13)+Chr$(10) probably should be one or other, not both together.
Since last update we created new programs:
Aurels Henon code, Bresenham Circle Fill, First 100 digit Fibonacci, Sqr Root estimating.
A version of the last program became part of the String Math package update!