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

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 / Gauquelin comboboxcmd
« on: August 15, 2022, 11:36:23 PM »
I often use a combobox for choosing a housesystem, problem is gauquelin, number 16, can't be used in most scripts.
Gauquelin can be easily left out of a combobox:
Code: [Select]
i = 0; for (i < 24)
  if (i = 16) continue; ` gauquelin
  comboboxcmd(0, 0, housesystem[i]);
command(COMBO, 0, 6, housesys);

Now for the combobox to still return the correct index just use this:
Code: [Select]
comboboxcmd(2, 0, ""); ` set combobox 0 to return index correctly for gauquelin position

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");

General Astrology Topics / MOVED: Transits
« on: May 04, 2021, 05:03:37 PM »

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 »

Pages: [1] 2 3