Messages

481

Planetdance for windows / Re: Bug calculating progressed parallels to radix

« on: October 02, 2020, 07:53:20 AM »

Thanks, found and fixed.

October 2
- Fixed issue with Horoscope - List  calculating not all declination aspects.

482

Classic, Medieval, Vedic / Re: Medieval Traditional Chart

« on: September 28, 2020, 06:39:35 PM »

Thanks. Published.

483

Classic, Medieval, Vedic / Re: Medieval Traditional Chart

« on: September 28, 2020, 05:58:11 PM »

Ed those texts in the left bottom corner are inside a loop. They are bold and a bit diffuse because of that.

Good luck with the positions.

484

Planetdance for windows / Re: shortcuts

« on: September 22, 2020, 07:26:34 AM »

Next version will make the shortcut in the database window for Open, the same as the one in the main window for Open.

485

Planetdance for windows / Re: shortcuts

« on: September 21, 2020, 08:42:59 PM »

Now i understand.

Sorry no, those shortcuts can't be changed at the moment.

486

Planetdance for windows / Re: shortcuts

« on: September 21, 2020, 08:20:34 PM »

Sorry Jeremy, you are very hard to understand, it's like reading a unknown language.

487

Planetdance for windows / Re: shortcuts

« on: September 21, 2020, 07:42:56 PM »

options keyboard?

488

Planetdance for windows / Re: shortcuts

« on: September 21, 2020, 06:23:47 PM »

yeah sure.

489

Planetdance for windows / Re: shortcuts

« on: September 21, 2020, 04:16:12 PM »

it's accessible from File Open, and if it's already open you can also do ctrl-o there. There's also duplicate in that menu.

490

Planetdance for windows / Re: Filemanager and editors as tabbed windows

« on: September 20, 2020, 09:17:47 AM »

There is a new strcmd() mode.

17: puts the current databasename into str.

example:
strcmd(17, 0, filename);

This is preferable to using the 'defaultdatabase' variable because it is updated dynamically whenever the user changes a database in a filemanager.

491

Planetdance for windows / Filemanager and editors as tabbed windows

« on: September 19, 2020, 07:41:57 PM »

After some days work most seems to work. I will probably publish tomorrow.
Things to know, that need to go into the help:
- switching with alt-digit to another window does not work when an editor has focus because it uses alt-digit to set a bookmark. Use ctrl-alt digit to switch.
- A right mouseclick in the filemanager now shows a popup with the complete menu in stead of selecting a record. Use ctrl-click to (un)select a record.

[Edit] Gonna have a go at multiple window filemanager again before i publish.

492

Astrobasic / Re: create a temporary file

« on: September 12, 2020, 01:34:56 PM »

Made a memsearch command, help:

memsearch

Syntax: memsearch(int blockno, int stringoffset, char searchstring[$]);
Action: searches blockno at stringoffset for searchstring, returns number in block or -1 if not found.

Example:

Code: [Select]

window(660,660);
int i, n = readopen("jean.db", 0);
real planet[PLANETS];

` this is the structure for memget/read/write, 69 bytes total
real sun;
char name[61];

memget(0, n, 69);     ` make a memblock with each record's sun and name

for (i < n)
  {
  readrecord(0, i);
  getplanets(0, planet);
  sun = planet[0];
  getname(0, name);
  memwrite(0, i, &sun);
  }
i = memsearch(0, 8, "Jean Cremers"); ` search for this name,  'name' comes after real 'sun' so it starts at 8 bytes from the start.
if (i < 0)
  say("", "Not found");
else
  say("", "found");
run;


493

Astrobasic / Re: create a temporary file

« on: September 12, 2020, 12:59:59 PM »

memread/write is more powerfull because you can make structures.
I had a look at your code, you have

Code: [Select]

memget(0, 9999, 60); ` this will make a block with 9999 times 60 bytes
char s[99];
...
memwrite(0, i, &s);

The size of the parts in the block is 60 bytes but you are using a string of 99 bytes. So i hope you know what you are doing. Those functions are meant for things like this:

int a[10], b;
real c[6];
char s[100];

In total this 'structure' is 10 * 4 + 4 + 6 * 8 + 100 = 500 bytes, so you do memget(0, 9999, 500) and now you can do
memread(0, i, &a);
because the structure starts with int a.

Take a good look at this, i'\m not sure you understand these functions correct.
If you do maybe you can do something else in stead of just using one string with  strset(s, "%20s,%d,%d,%d,%d,%.2f,%.2f,0",jdx,aa,aaa,a,graf,p1,p2);

This is also why i can only help to a certain point, it is your work .

I will make a memsearch()

494

Astrobasic / Re: create a temporary file

« on: September 11, 2020, 09:18:12 PM »

if you prefer the memget/memread etc. functions because they are more powerful, i could make a function to search for data in a memory block fast. But i'm not gonna write your script for you, you have to design it yourself, i can only help with the functions. And please do communication about it here on the forum, i will not help via email, i have too much other work and things to do.

495

Astrobasic / Re: create a temporary file

« on: September 11, 2020, 06:55:55 PM »

no it does nothing, sorry, i always use 'i=i' for debugging.

But at that place a duplicate is found and you can see which. What do you want to do with duplicates?

Code: [Select]

window(555, 555);
real planet[PLANETS];
char s[999];

int i, n = readopen("jean.db", 0);
strlist(0, s, 0);
for (i < n)
  {
  readrecord(0, i);
  getplanets(0, planet);
  strset(s, "%d", planet[0]); ` etc
  int m = strlist(12, s, 0);
  if (m = -1)
    strlist(3, s, 0);` not found, add it
  else
    {
    ` here a duplicate is found, it is number m in the stringlist
    }
  }
run;