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.

Topics - Jean

Pages: [1] 2 3
Astrobasic / comboboxcmd has been replaced
« on: May 07, 2023, 02:20:27 PM »
comboboxcmd has been replaced with command(COMBO functions:

16: Adds str to combobox, parm4 points to str.
17: Returns the the str in the combobox that's currently selected
18: populates a combobox with all housesystems except gauquelin, it will also adjust the return index value to compensate for the misssing entry. Also command(COMBO, n, 6, 0) will compensate for it.

example of the last one, handy for comboboxes for housesytem without gauquelin getting in the way:

char dummy[0][0];
combobox(x, y, width, dummy, housesys, go);
command(COMBO, 0, 18, 0);

creates a full functional combobox for housesystems without gauquelin.


I just made a wonderful discovery! Google has done something to my android app so it works on newer android versions. They ship it with some layer that enables it to work again.
So I just bought my own app and it works on my tablet with android 10 as well as on my S7 with android 8!

At least it works on all my 3 mobiles, so you can give it a try, you can always refund.

Astrobasic / image() enhanced
« on: October 05, 2022, 06:44:14 PM »
New syntax: image(char mode, int left, int right, int width, int height);

Action: If mode = 0, makes a copy of part of the screen, if mode = 1, puts that copy back.
You can now specify a rectangle, so you can do an animation on some graph. Draw the graph, put it into the buffer with image().
Then you can draw over the graph and restore it anytime with image(), draw again etc.
See time list flower for an example.

Astrobasic / bitmap editor
« on: September 19, 2022, 03:27:36 PM »
I made an editor for setbitmap.

Click on a color on the right to paint with it.
Use Get to copy an array from the clipboard.
Use Put to copy an array to the clipboard.
Single Color means a Get only checks for fore and background color and Put exports 'x' for black in stead of 'b' for use with setbitmap in single color mode. Check / Uncheck it, then do Get / Put.
Ctrl + click or painting with Silver removes a color, makes it transparent.
Shift click will replace all pixels with that color with the current color.
In the lower right you can adjust columns/rows.
When you Get an array and Lock is checked, these dimensions will stay the same, else they will be adjusted to that array.
The latest 'put' will be saved to a file mem.txt.
When importing Single color mode gets set.

An array will look something like this:
Code: [Select]
"r              l",
"                ",
"  n         n   ",
"  n         n   ",
"  n         n   ",
"  n         n   ",
"                ",
"      llll      ",
"  llll   llll   ",
"  r          r  ",
"  r          r  ",
" r           r  ",
" r           rr ",
"    ffffffff    ",
"                ",
"a              u";

Astrobasic / colored bitmaps
« on: September 18, 2022, 01:59:06 PM »
There is now a multi-colored version for setbitmap, set color to -2 and use these letters:
a Black
g Green
b Blue
n Navy
o Olive
p Purple
r Red
q Aqua
w White
y Yellow
s Silver
l Lime

Code: [Select]
char b[24][33]=

setbitmap(b, -2);

Astrobasic / dark color mode
« on: July 30, 2022, 08:35:07 PM »
On making dark mode consequent i found that if you use set/putbitmap and give it a black color, it won't be seen on a black background.

Now you can use

Code: [Select]
setbitmap(bitmap, -1); it will automatically use the foreground color

Another wayt is using command(FUNCTION, 43, x, 0) where

x = 0, returns current background color
x = 1, returns current foreground color
x = 2, returns current font color

So if you use
Code: [Select]
int mycolor = command(FUNCTION, 43, 1, 0);
setbitmap(bitmap, mycolor);

it will also always be visible.

Astrobasic / searchaspect
« on: February 17, 2022, 02:30:40 PM »
- Februari 17
+ Added astrobasic command 'searchaspect'.

This is a simplified version of findaspect, it searches only for one aspect between two planets.

From the help:


Syntax: searchaspect(real start, real end, int p1, int p2, int as);

Action: Searches for aspect as between p1 and p2, from start to end, returns julian day if found, else returns 6000000.


int time[6];
real jd = getsystemtime(time);
jd = searchaspect(jd, jd + 30, SUN, MOON, CONJUNCTION); ` search for the next new moon
real zone = gettimezone(defaultplace, jd);
juliantotime(jd + zone, time); ` make local time

Astrobasic / moonphases bitmaps.
« on: January 15, 2022, 03:14:37 PM »
Volker made some nice bitmaps for moonphases.
To use

Code: [Select]
include "moonphases.ab"
putbitmap(x, y, n);

Astrobasic / command(BUTTON, -1
« on: September 18, 2021, 07:53:53 AM »
You can now use -1 to indicate the last created command when using command(XXXX, functions like BUTTON, CHECKBOX, EDIT etc.

Astrobasic / added hint() command
« on: September 18, 2021, 07:32:15 AM »

Syntax: hint("Some text");
Action: makes the last created control display a hint when the user moves the cursor over the control.

Code: [Select]
button(0, 0, "Push me", go);
hint("Push this to make something happening");

Astrobasic / Syntax Changes`
« on: April 03, 2021, 12:34:45 PM »
In this topic i will announces changes to syntax.
Whenever this happens, i will adjust all necessary scripts myself, but you should update if your own scripts are affected.

- 2020 april 3, added minute parameter to drawpos().

Syntax: drawpos(int mx, int my, int angle, int radius, int fontsize, char minutes, real r);
Action: draws the length 'r' at angle and radius, if minutes = 0, no minutes are displayed.

Planetdance for windows / MOVED: Customized ring
« on: February 07, 2021, 07:35:45 PM »

Astrobasic / looking for ingress
« on: January 20, 2021, 02:38:51 PM »
findaspect() can search for ingress.
There is now command(FUNCTION, 59, 1, 0), this sets a flag inside findevent() which lets it exit as soon as it finds the first ingress. This is handy when you just want to quickly search when a planet has the next ingress. You don't need to calculate an end time for the search, just use 250 years or something.
For an example see horoscope extra ingress.ab

Pages: [1] 2 3