I wish for a new video this year

[volker]

So I would have a topic for one or two videos about AstroBasic,   
where you can make the interaction of commands, variables and dependencies more understandable.
A step-by-step video about the creation of a small module that calculates personares according to Peter Orban.
I have done this so far via: horoscope-list-sun-transit-1year.
So if one of you has the time and leisure, I would be very happy.
I know you don't have much time, so as a wish for this year.
A link to an article on the method: https://www.astro.com/astrology/in_person_e.htm

[Jean]

As said, this is not suitable for video's.
I can try to help make this script but i don't like to dig very much through websites to understand everybody's creativity.
What you do is from the birthday that year find all conjunctions from the sun with the planets, you calculate a horoscope for that moment and that is the persona, is this correct?

[volker]

Yes that is correct. The first transition of the sun over the radixplanets.
The sun brings the light of consciousness to the planet and the horoscope owner becomes aware of the contained archetype for the first time. That's how I learned it years ago.
I don't think it's that stupid. Peter Orban is very well known in Germany, almost every software calculates personare here and many use it too.
No, you don't need to do a module, I'll continue to do it the way I've done so far.
I just thought it would be a good example because it covers all the programming stumbling blocks.
But I realize that this is too complicated to start with.
Can't you start a survey in your facebook group, if there is any interest in videos like this?
You don't have to do the Videos only for me.

[Jean]

Simply too much work Volker. There are so many topics. Look at the intro stuff in the help about variables, functions etc. That is the info yoyu are looking for, but in plain text, not in a video, that's not practical for me.
Find yourself a small script which might interest you and try to understand / modify it.

Ab can be used by a new programmer, the language is not that difficult and you can easily achieve results. It was Ed's first language and look what he has done. But my help should be focused on using ab, not on teaching someone to program.  If you want to take it up as your first programming language that's fine but don't expect me to be a general programming teacher.

You don't need the module but that would be a good way to learn.

Another tip, start a new script, name it test, and do Editor - program - template - horoscope, it shows basic things like a menu, load / save settings and how to get various info from the current horoscope. The go function is where you add your own code, after the screen is cleared with fill(). For instance

Code: [Select]

:go;
  visible(0);
  fill(0, 0, width, height, -2);

  putstring(10, 10, "Hello world");

.. do other magic things.

  visible(1);
  return;


[ABer]

Hi Volker - I tend to agree with Jean. It wouldn't really be possible to do a video about making a particular script. I learnt in the way that Jean suggested. Taking a simple script and learning how to modify it and make changes. It's very good advice to familiarise yourself with the templates. They are incredibly helpful in terms of making a well-structured script.

My suggestion would be to use the forum here for specific questions. I don't use facebook or any other social media but I do keep an eye on the forum and would be happy to answer questions on astrobasic. I'm not a professional programmer, so if you are happy with feedback from an enthusiastic amateur I can be of help.

I must have written tens of thousands of lines of astrobasic over the last four or so years and although I am still learning I can probably help with the more straightforward questions.

All the best. Ed

[volker]

Hi Ed, thank you very much for your offer, I find your scripts very impressive, the comments in them were very helpful to me.
I have to take care of other things now, but I'll be happy to take up your offer again in the course of the year.

[volker]

A question for the experts.
Various authors used this circle division for lunar mansions. 30°,10°,10°....,30°,10°....
Is it possible to program such a subdivision, or is that too complicated?
I would like this as an alternative circle division for my Lunar-Mansion-Multitool project.

[Jean]

Sure it is possible. But it's your project.

[ABer]

Hi Volker - it looks possible using an array. Could you confirm is this a repeating cycle.

30 degs, 10 degs, 10 degs, 30 degs, 10 degs, 10 degs, 30 degs, 10 degs, 10 degs etc

How many mansions do you need to set up?

Ed

[volker]

I have 28 mansions and the sequence is:

30°, 10°, 10°, 10°, 10°, 10°, 10°
so that's 4 times.

I'm still overwhelmed with it.
 
I only managed a second 10° outer circle.

[Jean]

Code: [Select]

window(1200, 800);
circle(600, 400, 400, -1);
int x, y, m, n, i; for (i < 28)
  {
  n = 10;
  if (i % 7 = 0)
    n = 30;
  putnumber(0, i * 16, n);
  m += n;
  getcirclepos(600, 400, 400, m, x, y);
  line(600, 400, x, y, -1);
  }
run;


[volker]

Thank you Jean,
This is exactly what I need.
Math class in school was always a horror for me.

[ABer]

Thanks Jean.

Volker - here is an alternative for you to compare to Jean's code. Jean's code is much more sophisticated than mine!

window(1200, 800);
circle(600, 400, 360, -1);

int x, y, m, n, i, j;

visible(0);

i = 0; for (i < 4){
  j = 0; for (j < 7){
    if (j % 7 = 0){
       m += 10 * 3;
       putnumber(0, n * 20, 10 * 3);}
    else
        {m += 10;
         putnumber(0, n * 20, 10);}
    getcirclepos(600, 400, 360, m, x, y);
    line(600, 400, x, y, -1);
    getcirclepos(600, 400, 375, m, x, y);
    putnumber(x - 10, y - 10, m % 360);
    n += 1;}}
   
visible(1);
 
run;

[volker]

Thanks Ed,
You guys really got it. I'm happy if I can understand that.
It's embarrassing, but it took me two tries yesterday to add Jean's method to my module. Only the count doesn't work 100%, but that doesn't matter for now.
 If you have more time, I can email you the whole script.
Then you can see what I've put together with your code from different modules.
I'm glad it's going so far and I can test different models.

[Jean]

@Ed,

Code: [Select]

  j = 0; for (j < 7){
    if (j % 7 = 0){

This is the same as

Code: [Select]

  j = 0; for (j < 7){
    if (j = 0){
[/quote]

@Volker

I saw this:

Code: [Select]

putnumber(x1, y1, (i+1) + 1);

(i+1) + 1 is the same as i + 2

what do you mean to show there, what count?
Here's an even shorter version.

Code: [Select]

window(1200, 800);
circle(600, 400, 400, -1);
int x, y, n, i; for (i < 28)
  {
  n += 10;
  if (i % 7 = 0)
    n += 20;
  getcirclepos(600, 400, 400, n, x, y);
  line(600, 400, x, y, -1);
  getcirclepos(600, 400, 350, n, x, y);
  putnumber(x, y, n);
  }
run;