;Hindu chart and Navamsa ;strings used ; 0-10 scratch ;10-11 signs position and size 16 RADIX (on start as chart type paramenter) ;17 NAVAMSA ;21-32 Sign contents ; ;FP storage used 10 Ayanamsha 11 given timezone 12 given GMT 13 Sunrise (previous) GMT ;INT storage used ;0-9 years of each star ;10 chart type $ ________ chart type parameter from calling module ______________ 1 16 ANTOI 10 STO $ 10 STDEF ;x 11 STDEF ;y 1,2,3,3,3,3,2,1,0,0,0,0,160 3,3,3,2,1,0,0,0,0,1,2,3,120 $ 1 STDEF Asc.0000FF00FFFF00000000 $ 358 -1 SYSTR ;insert Ascendant symbol (triangle) in pca.cfg $ set origin to lower left sign X: SIGN (1-12) 1 SUBR 1 PROC 1 DUP 11 ANTOI 13 11 ANTOI MUL XY 10 ANTOI 13 10 ANTOI MUL XY ORGIN RETN $ ___ convert date/time to GMT GETZO 11.0 NSTO~ GETTI 12.0 NSTO~ GETTI 0.0 SETZO SETTI 10 RCL 0 = IF MACOF MACR MACON ENDIF 10 RCL 1 = IF MACOF MACP MACON ENDIF 10 RCL 2 = IF MACOF MACT MACON ENDIF 10 RCL 3 = IF MACOF MACS MACON ENDIF 10 RCL 4 = IF MACOF MACL MACON ENDIF $ 700 500 SCALE GRON 5 PENW 333 PENC $ _______ Chart Labels _______ 0 10 RCL FOR 16 STDEF NEXT 0 RADIX SECONDARY TRANSIT SOLAR RETURN LUNAR RETURN $ 17 STDEF NAVAMSA ; $ _______ Loop Radix and Navamsa charts _______ 0 1 FOR -680 1 CNT 720 MUL ADD 0 ORGIN 5 ;mode centered both x and y 0 ;color black 13 10 ANTOI 5 DIV ;font size = sign width/5 1 ;style bold 13 10 ANTOI 2 MUL ;x of center 13 11 ANTOI 2 MUL ;y of center 1 CNT 16 ADD DRWTT $ _______ make planets-in-sign tables _______ 1 12 FOR 2 CNT 20 ADD ;use string 21-32 as "tables" 1 DUP 1 0 STCUT ;clear tables NEXT 0 9 FOR 2 CNT 10 MOD 0 NTOS ;string 0 =planet no 2 CNT 1 DUP 0 = IF DEC 14 ENDIF ;asc 1 DUP 8 = IF DEC 11 ENDIF ;north node 1 DUP 9 = IF DEC 11 ENDIF ;south node PPOS ;changed from FPPLA 2 CNT 9 = IF ;south node, add 180 32768 ADD ENDIF 1 CNT IF ;if navamsa 9 MUL ENDIF ITOM 1800 DIV 21 ADD ;table number 0 2 DUP STCAT ;add planet no to table NEXT $ GPUSH 1 12 FOR 2 CNT 1 SUBR 0 0 13 10 ANTOI 0 2 DUP 13 11 ANTOI 0 2 DUP DRAW DRAW DRAW DRAW POLY NEXT GPOP $ _______ plot the planets _______ 1 12 FOR ;sign by sign 20 2 CNT ADD 0 1 9 STCUT ;copy to string 0 0 STLEN IF ;if table not empty GPUSH 0 PENC 2 PENW 2 CNT 1 SUBR ;set origin 1 0 STLEN FOR ;count planets in sign 0 3 CNT 0 STCHR 80 ADD 1 DUP 128 = IF DEC 65 ENDIF ;Ascendant 1 DUP 136 = IF DEC 139 ENDIF ;North node 1 DUP 137 = IF ;South node DEC 137 ENDIF 3 CNT 0 STCHR DEC 0 1 3 CNT 1 DUP STCUT ;copy char to str[1] 0 -1 1 STCHR ;ascii value 1 DUP 65 = IF ;ascendant 555 PENC ; 158 32768 50 ;plot Asc symbol 30 3 CNT 1 SUB 35 MUL ADD ;x 90 ;y DRSYM 0 PENC ENDIF ; 1 DUP 137 = IF ;south node 11 32768 50 ;plot south node 30 3 CNT 1 SUB 35 MUL ADD ;x 140 3 CNT 4 < MUL SUB ;word wrap 80 ;y 45 3 CNT 4 < MUL SUB ;word wrap DRSYM ENDIF ; 0 137 65 IN NOT IF ;neither 8 0 50 0 ;draw normal symbol 10 3 CNT 1 SUB 35 MUL ADD ;x 140 3 CNT 4 < MUL SUB ;word wrap 55 ;y 45 3 CNT 4 < MUL SUB ;word wrap 1 DRWTT ENDIF NEXT ;char GPOP ENDIF NEXT ;sign $ NEXT ;chart Radix/Navamsa $ _______ Part 2 - data and positions _______ ; =========================================== -660 -480 ORGIN ;Line height: 38 ;Char size 35 $ 2 FONTS ;0 FONT 10 0 0 PCA-ANSI 10 0 0 PCA-OEM $ 0 MENAM 8 0 35 0 0 380 0 DRWTT $ ;0 1 SWDAT ;use radix menu values ;NUMS 0 STDEF ;GETTI GETZO ;0.0 SETZO 3 PAD 82 MEGET 81 MEGET 80 MEGET ;use chart data (different if solar/lunar return) NUMS 0 STDEF 8 0 35 0 0 342 0 DRWTT 86 MEGET 85 MEGET 84 MEGET ;SETZO ;SETTI ;0 1 SWDAT 0 STDEF 8 0 35 0 0 304 0 DRWTT 16 0 BDATA 0 NUMS 0 STDEF 8 0 35 0 0 266 0 DRWTT 32 0 BDATA 0 NUMS 0 STDEF 8 0 35 0 0 228 0 DRWTT Date: ## ## #### GMT: ## ## ## Lat: @ Long: @ ; $ _______ horz. line _______ PENUP 0 203 DRAW 400 203 DRAW PENUP $ _______ Ayanamsha detection _______ GETTI STO~ ;GMT 0.0 SETTI ;GMT+zone=0 1 0 FPPLA ;Sun at date zero XY~ SETTI ;restore time 280.1533521281 SUB~ ;-known tropical Sun datezero DUP~ FTOI BOO IF ;if not zero means sidereal Zodiac -0.000038239 RCL~ MUL~ ;precession ADD~ ENDIF 10.0 NSTO~ ;save for later use 3600.0 MUL~ FTOI ;seconds 3600 DIVR ;deg sec XY ABS 60 DIVR 3 FETCH NUMS 0 STDEF 8 0 35 0 0 64 0 DRWTT Ayanamsha: ###° ##' ##" ; $ _______ Sunrise (latest) calculation _______ 12 MEGET ITOF 13 MEGET ITOF 60.0 DIV~ ADD~ 14 MEGET ITOF 3600.0 DIV~ ADD~ 15 MEGET IF CHS~ ENDIF ;geo latitude 0.0 NSTO~ 0 4 FOR 0.0 NRCL~ TAN 1 5 FPPLA TAN MUL~ CHS~ ACOS ;HD 13 0 FPPLA 10.0 NRCL~ SUB~ ;MC TROPICAL DUP~ COS XY~ SIN 0.9174 MUL~ ;convert to AR FPRTP XY~ DEC~ ;ARMC aya-immune 1 4 FPPLA ;AR-Sun aya-immune SUB~ ADD~ ;ARMC to move until sunrise in AR-degrees 1 CNT BOO NOT ;use MOC first loop then MIC IF 360.0 FPMOD ELSE 180.0 ADD~ 360.0 FPMOD 180.00 SUB~ ENDIF 366.25 DIV~ 365.25 MUL~ 360.0 DIV~ ;dt GETTI XY~ SUB~ ;sunrise time 13.0 NSTO~ SETTI NEXT $ 4 0 BDATA 0 NUMS 0 STDEF 10 RCL 0 1 2 3 4 IN NOT IF 8 0 35 0 0 108 0 DRWTT ENDIF Sunrise: @ GMT ; $ _______Weekday _______ 13.0 NRCL~ 11.0 NRCL~ ADD~ ;local sunrise time 1.0 ADD~ 7.0 FPMOD FLOOR FTOI 0 FOR 0 STDEF NEXT 0 10 RCL 0 1 2 3 4 IN NOT IF 8 0 35 0 0 152 0 DRWTT ENDIF Weekday: Sunday Weekday: Monday Weekday: Tuesday Weekday: Wednesday Weekday: Thursday Weekday: Friday Weekday: Saturday ; $ _____ Dasa balance _____ 120 7 20 6 10 7 18 16 19 17 9 0 FOR 1 CNT STO DEC NEXT ;period (years) for each star STO 0-9 800 2 PPOS ITOM 800 MOD SUB ;Moon minutes of arc remaining in star ITOF 800.0 DIV~ ;balance fraction (0.0-1.0) 2 PPOS ITOM 800 DIV 9 MOD 1 ADD RCL ;star total period years ITOF MUL~ 365.25 MUL~ ;balance in days 365.25 DIV~ DUP~ INT~ DUP~ FTOI SUB~ ;years 12.0 MUL~ DUP~ INT~ DUP~ FTOI SUB~ ;months 30.6 MUL~ FTOI ;days XY 3 FETCH NUMS 0 STDEF 10 RCL 0 1 2 3 4 IN NOT IF 8 0 35 0 0 20 0 DRWTT ENDIF Dasa Balance:####y ##m ##d ; $ ________ for non-radix, print radix data ________ 0 1 SWDAT 62 0 BDATA 0 1 SWDAT 0 NUMS 0 STDEF 10 RCL 0 1 2 3 4 IN IF 8 0 30 0 0 5 0 DRWTT ENDIF Radix data: @ $ ________ planet positions _______ 1 STDEF ;(chr 160 space with correct width) 2 STDEF ;retrograde 4 STDEF ;rulers of stars 5 STDEF ;south node symbol R Ž„‚…‹†‡ƒ Ž $ 1 FONT $ _______ print position of planet/house (P X Y 2 SUBR) _______ 2 PROC ;Y X P DEC DEC DEC ZZO INC INC INC 0 GET ABS PPOS 0 GET 0 > IF 32768 ADD ENDIF ITOM 800 DIV 9 MOD ;star 1 ADD 4 3 3 FETCH 1 DUP STCUT ;str[5] is star symbol 3 0 GET ABS RX 1 ADD ;index of R 0 GET ABS PPOS 0 GET 0 > IF 32768 ADD ENDIF ITOM ;mmmn Rix 1800 DIVR ;s mmm 1 ADD SNAME ;sname mmm XY 60 DIVR ;dd mm sname XY 100 ADD XY 100 ADD ;dd 0mm sname 0 GET 0 > IF 5 ELSE ;negative set to ketu 0 GET PNAME 6 1 2 STCUT 6 ENDIF NUMS 0 STDEF 8 0 36 0 1 GET ;x 2 GET ;y 0 DRWTT @ ## ## @ @(@) $ RETN $ _______ planets _______ 1 560 378 2 SUBR 2 560 340 2 SUBR 3 560 302 2 SUBR 4 560 264 2 SUBR 5 560 226 2 SUBR 6 560 188 2 SUBR 7 560 150 2 SUBR 11 560 112 2 SUBR -11 560 74 2 SUBR $ _______ houses _______ 14 1000 378 2 SUBR 13 1000 340 2 SUBR 15 1000 302 2 SUBR 16 1000 264 2 SUBR 17 1000 226 2 SUBR 18 1000 188 2 SUBR $ ___ horz. line ___ PENUP 1000 170 DRAW 1300 170 DRAW PENUP $ _______ more planets _______ 8 1020 112 2 SUBR 9 1020 74 2 SUBR 10 1020 36 2 SUBR 12 1020 0 2 SUBR $ ________ underline all _______ 0 0 ORGIN 4 PENW PENUP -680 -495 DRAW 680 -495 DRAW 680 -25 DRAW -680 -25 DRAW POLY $ _______ restore date/time _______ GROFF 11.0 NRCL~ SETZO 12.0 NRCL~ SETTI $ ________ write cfg module to activate by doubleclicking the hindu-chart icon _______________ 1 CARY ,$,$$$ $ NUMS 2 1 1 16 UTFIL hindu-chart.cfg @ 1 CARY Radix,Secondary,Transit,Solar Return,Lunar Return,Cancel,Select chart type @ 3 10 20 90 22 12 0 0 0 0 ;Button radix 4 110 20 90 22 12 1 0 0 0 ;Button Secondary 5 210 20 90 22 12 2 0 0 0 ;Button Transit 6 310 20 90 22 12 3 0 0 0 ;Button Solar Return 7 410 20 90 22 12 4 0 0 0 ;Button Lunar Return 2 410 65 90 22 12 5 0 0 0 ;Button Cancel 6 525 140 6 MENUX 3 SUB 1 DUP 16 NTOS 0 > IF 0 NFN ENDIF @@@ hindu-chart.xli $ 0 UTFIL $$$ _____________________________________________________________________ PACE ikke godt PCA ANSI for smal brug evt 160 i stedet replace all: 1 0 STLEN FOR 160 1 CNT 0 STCHR 1 DUP 32 = IF DEC 160 ENDIF 1 CNT 0 STCHR DEC NEXT replace specific: 160 X 0 STCHR 1 DUP 32 = IF DEC 160 ENDIF X 0 STCHR DEC Check max planets in one sign: 5.02.62 at 9.00 kbh Lahiri - asc, 7 planets and node in Capricorn