SSR: Solar System Simulator
Abstract
Android globus coelestis (celestial globe) and interactive calendar with Zodiac signs and timepiece covering the Solar System in the entire observable universe.
Full text
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 1 SSR: Solar System Simulator Dietmar G. Schrausser Karl-Franzens University, Graz, Austria 1. Overview Solar System Simulation SSR 1 . Android globus coelestis (celestial globe) and interactive calendar with Zodiac signs and timepiece covering the Solar System in the entire observable universe up to 𝑟 = 14.25 𝐺𝑝𝑐 . In this context see the Great Debate 2 or the Shapley–Curtis Debate, held on 26 April 1920 at the Smithsonian Museum of Natural History, between astronomers Harlow Shapley and Heber Doust Curtis, concerning the nature of spiral nebulae and the size of the galaxy or universe, res. (see Shapley & Curtis, 1921). SSR contains 𝑛 = 69 stars, 𝑛 =70 nebulae and star clusters, most important Milky Way objects, 𝑛 =48 galaxies and galaxy clusters (c.f. Tab. 1, Tab. 2) as well as the most well-known quasars. Full implementation of all 𝑛 =110 Messier objects (Messier, 1784), Inner Cloud (Hills, 1981), Oort Cloud (Oort, 1950) and more. Further astronomical objects can be implemented by means of external definition files (ssr_*.dat). All objects of the Caldwell catalogue (Moore & Pepin, 1995) as well as parts of the Herschel 400 catalogue (Mullaney, 1976) are included as ssr_Caldwell.dat and ssr_Herschel400.dat, see further ssr_orion.dat, ssr_local.dat, ssr_IC342_Maffei.dat and ssr_gw__.dat. For additional important astronomical catalogues see e.g. CN (Herschel, 1786), NGC (Deryer, 1888), CGCG (Zwicky et al., 1961) or PGC (Paturel et al., 1989). Solar System parameters of the Sun, planets and Moon are based on the current NASA Planetary Fact Sheets (Williams, 2025). Positions, distances and sizes of further objects are from Wikipedia sources (Wikipedia contributors, 2025), which can be traced back primarily to the SIMBAD astronomical database (Strasbourg astronomical Data Center, 2023), the VizieR Catalogue Service (see Ochsenbein et al., 2000) or the NASA/IPAC Extragalactic Database NED. 1 https://doi.org/10.5281/zenodo.8240203 2 Shapley (c.f. Bok, 1971; Smith & Trimble, 2007) argued that spiral nebulae were relatively small and located in the outer regions of the Milky Way, which until then had been thought to be the entire universe. Curtis (c.f. Marché & Lindner, 2007), on the other hand, believed that spiral nebulae were themselves independent galaxies and thus extremely large and far away. The debate resulted in favor of Curtis' theory and led to the model generally accepted today (c.f. Trimble, 1995; Bonnell et al., 1996; Gingerich, 1996; Peruzzi & Realdi, 2011; Sokol, 2017), for Edwin Powell Hubble established the distance to classical Cepheid variables in the Andromeda nebula and found that those variables were not members of the Milky Way itself and therefore Andromeda to be external to the galaxy (s. Hubble, 1925). Later, Hubble examined the relationship between distances of galaxies and their radial velocities as determined from redshifts (c.f. Zwicky, 1933) and found the linear relationship, now known as Hubble's law (s. Hubble, 1929). Creative Commons Attribution 4.0 International
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 2 Table 1. Local galaxies (c.f. Sandage et al., 1975), by group, designation M (Messier, 1784), NGC (Dreyer, 1888), CGCG (Zwicky et al., 1961), PGC (Paturel et al., 1989), C (Moore & Pepin, 1995) and type (de Vaucouleurs et al., 1991a, b, c, res.). group designation object type M NGC CGCG PGC C local Milky Way SB(rs)bc 31 224 535-17 2557 Andromeda SA(s)b 33 598 502-110 5818 Triangulum 3 SA(s)cd IC 342/Maffei 4 305-002 13826 5 "Hidden Galaxy" SAB(rs)cd Sculptor 300 3238 70 Sculptor Pinwheel SA(s)d 1014 72 String of Pearls SB(s)m 253 2789 65 Sculptor SAB(s)c M81 2403 309-040 21396 7 SAB(s)cd 82 3034 28655 Cigar I0 4236 39346 3 SB(s)dm 81 28630 Bode's SA(s)ab, AGN Centaurus A/M83 5128 46957 77 Centaurus A S0 pec, Ep, AGN 83 5236 48082 Southern Pinwheel SAB(s)c Canes Venatici I 94 4736 43495 (R)SA(r)ab 51a 5194 47404 Whirlpool SA(s)bc pec, AGN M101 101 5457 272-021 50063 Pinwheel SAB(rs)cd Canes Venatici II 106 5 4258 39600 SAB(s)bc, AGN Virgo 62836 101 Pavo SAB(r)bc, AGN 65001 12 Fireworks SAB(rs)cd NGC5866 5907 274-038 54470 Splinter 6 SA(s)c, ULX Table 2. Local galaxies with corresponding angular diameters 𝑉 and isophotal diameters (c.f. Chamba, 2020) as well as distances in light-years 𝑙𝑦 and kilometers 𝑘𝑚. group object angular diameter 𝑉 isophotal diameter distance ° ' 𝑘𝑙𝑦 1015 𝑘𝑚 𝑀𝑙𝑦 1018 𝑘𝑚 local Milky Way 87.4 827 Andromeda 3.2 1.0 152.0 1438 2.5 24 Triangulum 70.8 41.7 61.1 578 3.2 30 IC 342/Maffei "Hidden Galaxy" 21.4 20.9 150.0 1419 10.7 101 Sculptor Sculptor Pinwheel 21.9 15.5 55.2 522 6.1 57 String of Pearls 32.4 5.6 68.5 648 6.5 61 Sculptor 27.5 6.8 120.5 1140 11.4 108 M81 C7 21.9 12.3 90.3 854 9.7 91 Cigar 11.2 4.3 40.8 386 11.4 108 C3 21.9 7.2 74.0 700 11.7 111 Bode's 26.9 14.1 96.0 908 11.8 112 Centaurus A/M83 Centaurus A 25.7 20.0 123.1 1165 12.0 114 Southern Pinwheel 12.9 11.5 118.0 1116 14.7 139 Canes Venatici I M94 11.2 9.1 45.0 426 16.0 151 Whirlpool 11.2 6.9 76.9 728 23.5 222 M101 Pinwheel 28.8 26.9 252.0 2384 21.6 204 Canes Venatici II M106 18.6 7.2 151.7 1435 23.7 224 Virgo Pavo 20.0 12.9 171.8 1625 23.6 224 Fireworks 16.0 11.2 87.3 826 25.2 238 NGC5866 Splinter 12.7 1.4 173.4 1640 46.6 440 3 c.f. Brunthaler et al. (2005). 4 c.f. Karachentsev et al. (2020). 5 For its active Type 2 Seyfert nucleus and central supermassive black hole c.f. Miyoshi et al. (1995), Jang et al. (2021) or Baan et al. (2022). 6 For its stellar stream and X-ray source c.f. Israel et al. (2017).
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 3 2. Screenshots Screenshots from SSR Application (Fig. 1 to Fig. 6). Figure 1. The Sun at 𝑟 =0.1 𝑎𝑢 astronomical units; Solar System with Asteroid and Kuiper Belts as well as Heliosphere at 𝑟 =58.6 𝑎𝑢; Inner Solar System with orbits, current rotation position of the Earth with time and position representation, as well as projection lines to the neighboring planets at 𝑟 = 1.4 𝑎𝑢. Figure 2. Surrounding stars at 𝑟 =194.2 𝑝𝑐 and their relative positions to Earth, artificial horizon facing south; closer stars with their relative historical position and representation, from 𝑟=14.5 𝑝𝑐 before the year 1976; the Milky Way at 𝑟 =19 𝑘𝑝𝑐 with Magellanic Clouds, Sagittarius Dwarf Elliptical Galaxy Sag DEG (Ibata et al., 1994) and V838 Monocerotis (Brown et al., 2002).
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 4 Figure 3. Interactive simulation to display distances between Earth, Moon and Sun with corresponding perspective projection lines; interactive simulation to compare sizes of stars. Figure 4. Parameters of the Solar System; Hubble deep field (HDF) located at a right ascension of 12ℎ36𝑚49𝑠 and a declination of +62°12′58″ (see Ferguson, 1996); towards the HDF from a distance of 𝑟 =151 𝑀𝑝𝑐 within the surrounding galaxy clusters and Laniakea supercluster (Tully et al., 2014) with relative historical positions. Figure 5. Most distant quasars on the edge of the observable universe at 𝑟 >9 𝐺𝑝𝑐 (see e.g. Wang et al., 2021).
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 5 (1) (2) (3) (4) (5) Figure 6. Local star cluster within Orion-Cygnus Arm containing the signs of the Zodiac and surrounding nebulae seen from a distance of 𝑟 =3 𝑘𝑝𝑐. 3. Calculations Object distances 𝑟 in parsec 𝑝𝑐 are calculated from object parallax 𝜋𝑂 , given in milliarcseconds mas, with 𝑟 = ( 𝜋𝑂 1000)−1,𝜋𝑂=1000⋅𝑟−1. The luminosity distance 𝑟 = 𝑑𝑙 in parsec 𝑝𝑐 is given by 𝑟 = 10𝜇 5+1,𝜇 =5⋅log(𝑟)−5⋅log(10) log(10) with distance modulus 𝜇, defined by the difference between apparent magnitude 𝑚 and absolute magnitude 𝑀 as 𝜇 = 𝑚− 𝑀. Object radii 𝑟𝑂 at a given distance 𝑟 are calculated via angular diameter 𝑉°, where 𝑟𝑂= 𝑟⋅ tan𝑉 2,𝑟 = 𝑟𝑂⋅(tan𝑉 2)−1,𝑉 = 2⋅tan−1𝑟𝑂 𝑟 with 𝑉 = 𝑉° 180 ⋅ π,𝑉° =180⋅𝑉 π. In addition, SSR can perform the following calculations: Given value 𝑥 to (a) speed of light 𝑐 in 𝑚 𝑠 and to (b) astronomical unit 𝐴𝑈 in 𝑘𝑚 . Furthermore, parallax 𝜋𝑂 in 𝑚𝑎𝑠 (1) to parsecs 𝑝𝑐 , Modulus 𝜇 (3) in 𝑚𝑎𝑔 to parsecs 𝑝𝑐 and parsecs 𝑝𝑐 to light-years 𝑙𝑦. Conversions can be performed for (a) hexagesimal degrees ° or hour ℎ, 𝑚𝑖𝑛, 𝑠𝑒𝑐 to decimal degrees °, (b) angular degrees ° to radians 𝑟𝑎𝑑 and (c) angular diameter 𝑉 (4) in degrees ° for a given distance 𝑑 to radius 𝑟. For more on photometry see e.g. Miles (2006) or Milone (2011), s. also Schrausser (2025); c.f. Tab. 3, Tab. 4., respectively.
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 6 Table 3. Wavelength 𝜆 in meters 𝑚 and frequency bands 𝑓 in hertz 𝐻𝑧 (cycle per second 𝑠), where 𝑓 = 𝑣 𝜆 of (1) electromagnetic radiation EMR 7 , with 𝑣𝑒=𝑐=299792458𝑚 𝑠 of the electromagnetic field EMF 8 and (2) sound 9 , with 𝑣𝑠=340.3𝑚 𝑠 in comparison. f 𝜆 (1) abr 𝜆 (2) from to from to from to Sound, 3 Hz 3 km Infrasound Long waves 3 30 Hz 100 10 Mm Extremely low frequency ELF 30 300 Hz 10 1 Mm Super low frequency SLF 21 m Sound 300 3000 Hz 1000 100 km Ultra low frequency ULF 3 30 kHz 100 10 km Very low frequency VLF 17 mm Ultrasound 30 300 kHz 10 1 km Low frequency LF 300 3000 kHz 1000 100 m Medium frequency MF Radar, Radio, TV 3 30 MHz 100 10 m High frequency HF 30 300 MHz 10 1 m Very high frequency VHF Microwave 300 3000 MHz 1000 100 mm Ultra high frequency UHF 213 nm Hypersound 3 30 GHz 100 10 mm Super high frequency SHF 30 300 GHz 10 1 mm Extremely high frequency EHF Thermal Infrared 300 3000 GHz 1000 100 mm Tremendously high frequency THF 0,3 20 THz 1000 15 mm Far-infrared FIR Infrared 20 37 THz 15 8 mm Long-wavelength infrared MIR 37 100 THz 8 3 mm Mid-wavelength infrared 100 214 THz 3 1,4 mm Short-wavelength infrared 214 400 THz 1400 750 nm Near-infrared NIR Visible light 400 480 THz 750 625 nm Red 480 510 THz 625 590 nm Orange 510 530 THz 590 565 nm Yellow 530 600 THz 565 500 nm Green Light 600 620 THz 500 485 nm Cyan 620 670 THz 485 450 nm Blue 670 790 THz 450 380 nm Violet Ultraviolet 790 952 THz 400 315 nm Ultraviolet A UV-A 952 1000 THz 315 280 nm Ultraviolet B UV-B 1 3 PHz 280 100 nm Ultraviolet C UV-C Ionizing radiation 3 30 PHz 121 10 nm Extreme ultraviolet E-UV 30 3000 PHz 10 0,1 nm Soft X-rays SX 3 30 EHz 100 10 pm Hard X-rays HX 30 EHz 10 pm Gamma rays Y Table 4. Metric Prefixes (CGPM, 2022; NIST, 2024). factor 10 1E-01 d deci 1E+01 da deca 100 1E-02 c centi 1E+02 h hecto 1 000 1E-03 m milli 1E+03 k kilo 1 000 000 1E-06 micro 1E+06 M Mega 1 000 000 000 1E-09 n nano 1E+09 G Giga 1 000 000 000 000 1E-12 p pico 1E+12 T Tera 1 000 000 000 000 000 1E-15 f femto 1E+15 P Peta 1 000 000 000 000 000 000 1E-18 a atto 1E+18 E Exa 1 000 000 000 000 000 000 000 1E-21 z zepto 1E+21 Z Zetta 1 000 000 000 000 000 000 000 000 1E-24 y yocto 1E+24 Y Yotta 1 000 000 000 000 000 000 000 000 000 1E-27 r ronto 1E+27 R Ronna 1 000 000 000 000 000 000 000 000 000 000 1E-30 q quecto 1E+30 Q Quetta 7 A self-propagating wave of the electromagnetic field itself, requiring no medium for propagation. 8 A physical field that represents the influences generated by or acting on electrical charges, a combination of an electric and a magnetic field. 9 A vibration that propagates in a medium (gas, liquid or solid).
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 7 4. Source of main function !! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SONNENSYSTEMROTATION + semper ubique sum + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% © 2020-25 by Dietmar Gerald Schrausser !! _name$="SSR" _ver$="v3.7.28" % INCLUDE strg_.inc INCLUDE ssr.inc SENSORS.OPEN 3:0 % SENSORS.OPEN 8:0 % SCRS GR.OPEN 255,0,0,0,0,-1 % GR.SCREEN sx,sy GOSUB global % Globale Variablen c_m=299792458 % c in m/s (exakt, SI) au_=149597870700 % AE in m (exakt, quasi SI) pc_=648000/PI() % pc aus AE (IAU, 2016) a_=365.25 % Tage pro Jahr ca_=360/a_ % Korrekturfaktor bei Simulation GOSUB astroparameter % ! INCLUDE ssr_globals1.bas % Globale Parameter (NASA) INCLUDE ssr_globals2.bas % Globale Parameter (CDS SIMBAD) ! GR.BITMAP.CREATE scrs,sx,sy pat$="../../SSR/" ! INCLUDE ssr_ini.bas % ini GOSUB weitere_ini % GOSUB zeit:jx=yr % Jahr für Simulation GOSUB tagnr % Tagnr für Simulation GOSUB mnt % Monatslängen GOSUB dialog % Hauptmenü ! st0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DO GR.SET.STROKE skl % 1-5 IF s07=1 % bei Echtzeit GOSUB zeit % Aktuelle Zeit ! ! % Schaltjahr %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% sj=0 IF Yr/4=INT(Yr/4) THEN sj=1 sj=1 GOSUB tagnr ! % Sommerzeit %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% sz$="":sz=0 IF nt>=mz+29 & nt<or+24 sz$="MSZ":sz=1 ENDIF ! tg=nt+1 % Tagnummer tg=tg+10 % i=((tg/a_)*360)-135 % Tagposition j=0 % Tagzaehler jx=yr % Jahr ! ENDIF GR.SCREEN sx,sy % Bildschirmformat mx=sx/2:my=sy/2 IF sx>sy swbs=0 % Schalter Breitformat ELSE swbs=1 % Schalter Hochformat ENDIF ! mnc=min/60 % Minutentakt
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 8 ae=(sx/2.9)/ed %%%% % Faktor ed zu AE aed=ae IF s07=1 THEN v=0 % bei Echtzeit i=i+v % Tagposition bei Simulation nt=nt+v/ca_ % Tagnummer bei Simulation ! GR.CLS GR.TEXT.SETFONT "courier","",1 GR.TEXT.SIZE txz1 IF u00=1 ! % Oortsche Wolke %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d=100000 % AE gr1=ed*d IF u10=1 & ed<50000 & AE<10000000 % GR.COLOR 45,60,60,60,1 GR.CIRCLE sn,mx,my,ed*d IF AE<=45000 GR.COLOR cc,0,0,0,1 GR.CIRCLE sn,mx,my,ed*d/2 ENDIF IF AE>30&AE<45000 GR.COLOR 20,60,60,60,1 GR.CIRCLE sn,mx,my,ed*d/2 ENDIF IF AE>50&AE<45000 GR.COLOR 15,60,60,60,1 GR.CIRCLE sn,mx,my,ed*d/2 ENDIF IF u11=1&ae>30000&ae<3000000 GR.TEXT.ALIGN 2 GR.COLOR cc,60,60,60,1 GR.TEXT.DRAW txt,mx,my-gr1-c10,"Oortsche Wolke" ENDIF ENDIF ! % Hills-Wolke, Innere Kometenwolke %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d=1500 % AE gr1=ed*d IF u15=1 & ed<5000 & AE<1000000 % IF u10=1:GR.COLOR 35,20,30,30,1 ELSE:GR.COLOR 75,20,30,30,1:ENDIF GR.CIRCLE sn,mx,my,ed*d*c145 IF u10=1:GR.COLOR cc,10,10,10,1 ELSE:GR.COLOR cc,0,0,0,1:ENDIF GR.CIRCLE sn,mx,my,ed*d/4 IF u11=1&ae>300&ae<30000 GR.TEXT.ALIGN 2 GR.COLOR cc,60,60,60,1 GR.TEXT.DRAW txt,mx,my-gr1-c10,"Hills-Wolke, Innere Kometenwolke" ENDIF ENDIF ! % Heliosphäre %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d=150 gr1=ed*d IF u14=1 & ed<500 & AE<100000 % GR.COLOR 178,20,10,0,1 GR.CIRCLE sn,mx,my,ed*(d/1.3) GR.COLOR 130,20,10,0,1 GR.CIRCLE sn,mx,my,ed*(d/1.1) GR.COLOR 115,20,10,0,1 GR.CIRCLE sn,mx,my,ed*d IF u11=1&ae>40&ae<2700 GR.TEXT.ALIGN 2 GR.COLOR 230,70,60,0,1 GR.TEXT.DRAW txt,mx,my-gr1-c10,"Heliosphäre" ENDIF ENDIF ! % Kuipergürtel %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d=45 gr1=ed*d*c142 IF u13=1 & ed<500 & AE<100000 % GR.COLOR 30,60,60,100,1 GR.CIRCLE sn,mx,my,ed*d*1.8 IF u14=1 GR.COLOR 200,20,10,0,1 ELSE GR.COLOR cc,0,0,0,1 ENDIF
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 9 GR.CIRCLE sn,mx,my,ed*d IF u11=1&ae>20&ae<700 GR.TEXT.ALIGN 2 GR.COLOR 200,60,60,100,1 GR.TEXT.DRAW txt,mx,my-gr1-c10,"Kuipergürtel" ENDIF ENDIF ! % Asteroidengürtel %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d=3 gr1=ed*4.8 IF u04=1 & ed>5 & AE<10000 % GR.COLOR 30,100,100,60,1 GR.CIRCLE sn,mx,my,ed*d*1.8 IF u14=1 GR.COLOR cc,20,10,0,1 ELSE GR.COLOR cc,0,0,0,1 ENDIF GR.CIRCLE sn,mx,my,ed*d*c142 IF u11=1&ae>1.5&ae<45 GR.TEXT.ALIGN 2 GR.COLOR 150,100,100,60,1 GR.TEXT.DRAW txt,mx,my-gr1-c10,"Asteroidengürtel" ENDIF ENDIF ENDIF ! % Jahreszeiten %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% IF s01=1 GR.COLOR 35,cc,cc,0,1 GR.LINE ln,0,my,sx,my GR.LINE ln,mx,0,mx,sy ! % Namen stl=431 ac=360/24 lt=sy/4.8125 % Distanz GR.TEXT.ALIGN 2 GR.TEXT.SIZE txz4 % 12 GR.COLOR 40,cc,cc,0,1 GR.ROTATE.START stl+ac,mx,my GR.TEXT.DRAW tx,mx+c02,my-lt,"W" GR.ROTATE.END GR.ROTATE.START stl+7*ac,mx,my GR.TEXT.DRAW tx,mx+c02,my-lt,"H" GR.ROTATE.END GR.ROTATE.START stl+13*ac,mx,my GR.TEXT.DRAW tx,mx+c02,my-lt,"S" GR.ROTATE.END GR.ROTATE.START stl+19*ac,mx,my GR.TEXT.DRAW tx,mx+c02,my-lt,"F" GR.ROTATE.END ENDIF ! % Himmelsgewölbe %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% IF t34=1 & ae>=Lj_ GR.COLOR 35,cc/2,cc/2,cc/2,0 FOR hg=0 TO 90 STEP 10 GR.CIRCLE cl,mx,my,mx*SIN(TORADIANS(hg)) NEXT FOR w=1 TO 24 GR.ROTATE.START w/24*360,mx,my GR.LINE ln,0,my,mx-sx/108,my GR.ROTATE.END NEXT ENDIF ! % Rektaszension %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% IF swbs % nur im Hochformat IF t31=1 & ae>=Lj_ GR.TEXT.ALIGN 3 GR.TEXT.SIZE txz1 % 9 GR.COLOR 80,cc,cc,0,0 IF s08=1:cor=0:ELSE:cor=1.1:ENDIF FOR hr=0 TO 24 GR.ROTATE.START((hr/24)*360)-cor,mx,my IF hr>0 GR.TEXT.DRAW tx,mx,sx*c142,INT$(24-hr) ENDIF GR.ROTATE.END NEXT
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 16 IF sw=-1 ed=ed*vsm %%%%%%%% IF ae<=vsm_mn:sw=1:PAUSE 2000:ENDIF ENDIF GOSUB zeit IF sec<>sec1 % Geschwindigkeit sec1=sec % v_=ABS(ae-ae1)*3600 % AE/h v_c=v_*(au_/1000) % v_c=v_c/c_ % c ae1=ae ENDIF ENDIF ! GR.RENDER ! % SCRS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% IF s11=1 SENSORS.READ 8,dmy,dmy,bwg IF bwg=0 THEN sw0=1 IF bwg=1&sw0=1 scrs$=pat$+_name$+Y$+M$+D$+h$+min$+sec$ GR.SCREEN.TO_BITMAP scrs GR.BITMAP.SAVE scrs,scrs$ TONE 11500,55 sw0=0 ENDIF ! ENDIF IF s07=1 % bei Echtzeit v=0.1 % Umlaufgeschwindigkeit bei Simulation sw=1 % Vollsimulation Schalter sec1=-1 % ENDIF UNTIL 0 ! ONERROR: GOSUB fin END ONMENUKEY: GOSUB dialog MENUKEY.RESUME ONBACKKEY: GOSUB fin END ! ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! % Subroutinen zeit: TIME Y$,M$,D$,h$,min$,sec$ yr= VAL(Y$) sec=VAL(sec$) nt= VAL(D$) nm= VAL(M$) st= VAL(h$) min=VAL(min$) RETURN ! % Globale Variablen %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% global: clz1=sx/28 % Textgröße 8 clz2=sx/52 % Textgröße 4 clz3=sx/47 % Textgröße 5 clz4=sx/41 % Textgröße 6 clz5=sx/100 % Textgröße 1 clz6=sx/80 % Textgröße 2 txz1=sx/50 % Textgröße 12 txz2=sx/60 % Textgröße 10 txz3=sx/35 % txz4=sx/36 % txz5=sx/31 % txzi=clz1 % Textgröße info txzi2=sx/30 % Textgröße info2 dtx1=sy/80 % Text Abstand 1 dtx2=sy/40 % Text Abstand 2 dtx3=sy/100 % Text Abstand 3 dtx4=sx/100 % Text Abstand 4 c145=1.45 % sx/760 %1.45 corr c142=1.42 % 1.42 corr
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 17 c10=sy/231 % 10 corr c01=sx/1080 % 1 corr c02=c01*2 % 2 corr cc=255 % Farbe dis=sy/5.372 % Tierkreis Distanz gr_0=sx/400 % allg. Objekt Größe swvgl=-1 % sw Grössenvergleich !ed=ed/aed % Anfangsentfernung vgr=1 % Vergrößerungsfaktor vgrp0=100 % Vergrößerungsfaktor 0 Planeten vgrs0=200000 % Vergrößerungsfaktor 0 Sterne CLIPBOARD.PUT "0" % Berechnungen RETURN ! Bei Start %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% astroparameter: pcm_=pc_*au_ % pc in m c_=c_m*3.6 % c in km/h Lj_m=c_m*31557600 % Lj in m Lj_=Lj_m/au_ % Lj in AE pcl_=pcm_/Lj_m % pc in Lj GOSUB sterne % GOSUB sternhaufen % GOSUB nebel % GOSUB milchstrasse % GOSUB galaxien % GOSUB haufen % GOSUB quasare % GOSUB weitere_in % RETURN ! % Tagesanzahl %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% tagnr: nt=nt-1 IF nm>1 THEN nt=nt+31 IF nm>2 THEN nt=nt+28+sj IF nm>3 THEN nt=nt+31 IF nm>4 THEN nt=nt+30 IF nm>5 THEN nt=nt+31 IF nm>6 THEN nt=nt+30 IF nm>7 THEN nt=nt+31 IF nm>8 THEN nt=nt+31 IF nm>9 THEN nt=nt+30 IF nm>10 THEN nt=nt+31 IF nm>11 THEN nt=nt+30 RETURN ! % Monatslängen %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mnt: Fr=31 Mz=Fr+28+sj Al=Mz+31 Mi=Al+30 Ji=Mi+31 Jl=Ji+30 At=Jl+31 Sr=At+31 Or=Sr+30 Nr=Or+31 Dr=Nr+30 RETURN ! % Position Rekta in Grad %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% r_pos: m_x=m_x/60 s_x=s_x/6000 pos1=h_x+m_x+s_x pos=pos1*-(360/24)-135 RETURN ! % Deklination %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dekl: dm_x=dm_x/60 ds_x=ds_x/6000 dkl=dg_x+dm_x+ds_x d=d*COS(TORADIANS(dkl)) d=d*Lj_ dsn=(COS(TORADIANS(dkl))) RETURN ! % Sonnensystem %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% sonnensystem::INCLUDE ssr_sonnensystem.bas:RETURN ! % Sterne, Sternhaufen und Nebel %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 18 sterne:: INCLUDE ssr_sterne.bas: RETURN sternhaufen:: INCLUDE ssr_sternhaufen.bas: RETURN nebel:: INCLUDE ssr_nebel.bas: RETURN ! % Milchstraßensystem %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% milchstrasse::INCLUDE ssr_milchstrasse.bas:RETURN ! % Galaxien, Galaxienhaufen weitere Objekte %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% galaxien:: INCLUDE ssr_galaxien.bas: RETURN haufen:: INCLUDE ssr_haufen.bas: RETURN quasare:: INCLUDE ssr_quasare.bas: RETURN weitere:: INCLUDE ssr_weitere.bas: RETURN ! % Beobachtbares Universum r=14.25 Gpc %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! % Objektdarstellung objdarst: GR.ROTATE.START pos,mx,my IF ae<200*d % Darstellung IF symsw=-1 THEN symb=gr_0 % Symbol IF symsw=1 THEN symb=rds % Maßstab !IF otype=-1 | symsw=-1 IF symsw=-1 GR.CIRCLE cl,mx-ed*d,my-ed*d,symb*vgr ENDIF ! !IF otype=0 & symsw=1 IF symsw=1 GR.CIRCLE cl,mx-ed*d,my-ed*d,(ed*symb*Lj_)*vgr ENDIF ENDIF IF t06=1&ae<5*d % Text GR.ROTATE.START -pos,mx-ed*d,my-ed*d GR.TEXT.ALIGN 2 GR.TEXT.SIZE txz1 % 11 GR.TEXT.DRAW txt,mx-ed*d,my-ed*d-c10,objname$ GR.ROTATE.END ENDIF IF pro_=1 % Projektion erd=TORADIANS(-i-45-pos) ex1= mx-(ed*c145)*SIN(-erd) ey1= my-(ed*c145)*COS(erd) GR.COLOR 30,cc,cc/3,cc/2,0 %%% gosub color GR.LINE ln,mx-ed*d,my-ed*d,ex1,ey1 ENDIF GR.ROTATE.END RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! % Haupt-Dialog Parameter dialogprm: u00=-1 t00=-1 s07=1 s09=1 s11=1 RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dialog: GOSUB anfangsentfernung % aed$ GOSUB menu std: ARRAY.LOAD sel$[],o05$,o06$,o12$,o13$,o14$,o15$,o17$,o16$,o18$,o10$,o09$,o07$,o11$,"Ok",_ex$+" Exit" DIALOG.SELECT sel,sel$[],_name$+" SONNENSYSTEMROTATION "+_ver$+" - Ebenen:" IF sel=1: GOSUB dialog1: ENDIF IF sel=2: GOSUB dialog2: ENDIF IF sel=3: GOSUB dialog4: ENDIF IF sel=4: GOSUB dialog5: ENDIF IF sel=5: GOSUB dialog6: ENDIF IF sel=6: GOSUB dialog7: ENDIF IF sel=7: GOSUB dialog8: ENDIF IF sel=8: GOSUB dialog9: ENDIF IF sel=9: GOSUB dialog11:ENDIF IF sel=10:GOSUB dialog10:ENDIF IF sel=11:s09=s09*-1: ENDIF IF sel=12:GOSUB dialog3: ENDIF IF sel=13:s11=s11*-1: ENDIF IF sel=14:RETURN: ENDIF
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 19 IF sel=15:GOSUB fin:END: ENDIF GOSUB menu GOTO std RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% menu: IF u00=1: o05$=smb$+" Sonnensystem...": ENDIF IF u00=-1: o05$= " Sonnensystem aus": ENDIF IF t00=1: o06$=smb$+" Sterne...": ENDIF IF t00=-1: o06$= " Sterne aus": ENDIF IF st00=1: o12$=smb$+" Sternhaufen...": ENDIF IF st00=-1:o12$= " Sternhaufen aus": ENDIF IF nb00=1: o13$=smb$+" Nebel...": ENDIF IF nb00=-1:o13$= " Nebel aus": ENDIF IF gm00=1: o14$=smb$+" Milchstraße...": ENDIF IF gm00=-1:o14$= " Milchstraße aus": ENDIF IF gx00=1: o15$=smb$+" Galaxien...": ENDIF IF gx00=-1:o15$= " Galaxien aus": ENDIF IF gh00=1: o17$=smb$+" Galaxienhaufen...": ENDIF IF gh00=-1:o17$= " Galaxienhaufen aus":ENDIF IF gq00=1: o16$=smb$+" Quasare...": ENDIF IF gq00=-1:o16$= " Quasare aus": ENDIF IF gw00=1: o18$=smb$+" Weitere...": ENDIF IF gw00=-1:o18$= " Weitere aus": ENDIF IF s07=1: o07$=smq$+" Echtzeit @ "+aed$: ENDIF IF s07=-1: o07$=smq$+" Simulation @ "+aed$:ENDIF IF s07=0: o07$= oo$+" Vollsimulation": ENDIF !IF s07=2:o07$="i Information":ENDIF IF s09=1: o09$=smb$+" Text": ENDIF IF s09=-1: o09$= " Text aus": ENDIF IF s10=1: o10$=smb$+" Skalen...": ENDIF IF s10=-1: o10$= " Skalen aus": ENDIF IF s11=1: o11$=smb$+" SCRS": ENDIF IF s11=-1: o11$= " SCRS aus": ENDIF RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! % Dialog Sonnensystem dialog1prm: s00=1 u00=1 u01=-1 u02=-1 u03=-1 u04=1 u05=-1 u06=-1 u07=-1 u08=-1 u09=-1 u10=1 u11=1 u13=1 u14=1 u15=1 u16=1 RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dialog1: GOSUB menu1 std1: ARRAY.LOAD sel1$[],q00$,q20$,q01$,q02$,q03$,q04$,q05$,q06$,q07$,q08$,q09$,q13$,q14$,q15$,q10$,q1 2$,q16$,q11$,"Ok" DIALOG.SELECT sel1,sel1$[],"Sonnensystem: Darstellung/Projektion:" IF sel1=1:u00=u00*-1: ENDIF IF sel1=2:s00=s00*-1: ENDIF IF sel1=3:u01=u01*-1: ENDIF IF sel1=4:u02=u02*-1: ENDIF IF sel1=5:u03=u03*-1: ENDIF IF sel1=6:u04=u04*-1: ENDIF IF sel1=7:u05=u05*-1: ENDIF IF sel1=8:u06=u06*-1: ENDIF IF sel1=9:u07=u07*-1: ENDIF IF sel1=10:u08=u08*-1:ENDIF
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 20 IF sel1=11:u09=u09*-1: ENDIF IF sel1=12:u13=u13*-1: ENDIF IF sel1=13:u14=u14*-1: ENDIF IF sel1=14:u15=u15*-1: ENDIF IF sel1=15:u10=u10*-1: ENDIF IF sel1=16:GOSUB dlgvgr:vgr_p=_vgr:ENDIF IF sel1=17:u16=u16*-1: ENDIF IF sel1=18:u11=u11*-1: ENDIF IF sel1=19:RETURN: ENDIF GOSUB menu1 GOTO std1 RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% menu1: IF u00=1: q00$=smb$+" Ebene an": ENDIF IF u00=-1:q00$= " Ebene aus": ENDIF IF s00=1: q20$=smb$+" Umlaufbahnen": ENDIF IF s00=-1:q20$= " Umlaufbahnen aus": ENDIF IF u01=1: q01$=smb$+" Merkur ["+STR$(ROUND(d_mkr_ae,1))+"AE]": ENDIF IF u01=-1:q01$= " Merkur ["+STR$(ROUND(d_mkr_ae,1))+"AE]": ENDIF IF u02=1: q02$=smb$+" Venus ["+STR$(ROUND(d_vns_ae,1))+"AE]": ENDIF IF u02=-1:q02$= " Venus ["+STR$(ROUND(d_vns_ae,1))+"AE]": ENDIF IF u03=1: q03$=smb$+" Mars ["+STR$(ROUND(d_mrs_ae,1))+"AE]": ENDIF IF u03=-1:q03$= " Mars ["+STR$(ROUND(d_mrs_ae,1))+"AE]": ENDIF IF u04=1: q04$=smb$+" Asteroidengürtel [~3.3AE]": ENDIF IF u04=-1:q04$= " Asteroidengürtel [~3.3AE]": ENDIF IF u05=1: q05$=smb$+" Jupiter ["+STR$(ROUND(d_jpt_ae,1))+"AE]":ENDIF IF u05=-1:q05$= " Jupiter ["+STR$(ROUND(d_jpt_ae,1))+"AE]":ENDIF IF u06=1: q06$=smb$+" Saturn ["+STR$(ROUND(d_stn_ae,1))+"AE]": ENDIF IF u06=-1:q06$= " Saturn ["+STR$(ROUND(d_stn_ae,1))+"AE]": ENDIF IF u07=1: q07$=smb$+" Uranus ["+STR$(ROUND(d_urs_ae,1))+"AE]": ENDIF IF u07=-1:q07$= " Uranus ["+STR$(ROUND(d_urs_ae,1))+"AE]": ENDIF IF u08=1: q08$=smb$+" Neptun ["+STR$(ROUND(d_npt_ae,1))+"AE]": ENDIF IF u08=-1:q08$= " Neptun ["+STR$(ROUND(d_npt_ae,1))+"AE]": ENDIF IF u13=1: q13$=smb$+" Kuipergürtel [~40AE]": ENDIF IF u13=-1:q13$= " Kuipergürtel [~40AE]": ENDIF IF u14=1: q14$=smb$+" Heliosphäre [~100AE]": ENDIF IF u14=-1:q14$= " Heliosphäre [~100AE]": ENDIF IF u09=1: q09$=smb$+" Pluto [39.5AE]": ENDIF IF u09=-1:q09$= " Pluto [39.5AE]": ENDIF IF u15=1: q15$=smb$+" Hills-Wolke [~875AE]": ENDIF IF u15=-1:q15$= " Hills-Wolke [~875AE]": ENDIF IF u10=1: q10$=smb$+" Oortsche Wolke [~0.8Lj]": ENDIF IF u10=-1:q10$= " Oortsche Wolke [50000AE]": ENDIF q12$=smq$+" Vergrößerung: "+INT$(vgr_p)+" ×" IF u16=-1:q16$=_smbl$+" Symbol": ENDIF IF u16=1: q16$=_mst$+" Maßstab × "+INT$(vgrp0): ENDIF IF u11=1: q11$=smb$+" Text": ENDIF IF u11=-1:q11$= " Text aus": ENDIF RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! % Dialog Sterne dialog2prm: t00=1 t01=-1 t02=-1 t03=-1 t05=-1 t06=1 t07=-1 t08=-1 t09=-1 t10=-1 t11=-1 t12=-1 t13=-1 t14=-1 t15=-1 t17=-1 t18=-1 t19=-1 t20=-1 t32=-1 t33=-1 t35=-1 t36=-1
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 21 t38=-1 t73=-1 t74=-1 t75=-1 t76=-1 t77=-1 t78=-1 t79=-1 t80=-1 t81=-1 t82=-1 t83=-1 t84=-1 t85=-1 t86=-1 t87=-1 t88=-1 t89=-1 t90=-1 t91=-1 t92=-1 t93=-1 t94=-1 t95=-1 t96=-1 t97=-1 t100=-1 t101=-1 t102=-1 t103=-1 t104=-1 t105=-1 t106=-1 t107=-1 t108=-1 t109=-1 t110=-1 t111=-1 t112=-1 t113=-1 t114=-1 t115=-1 t116=-1 t117=-1 t118=-1 t119=-1 t120=-1 t121=-1 t122=-1 t123=-1 t124=-1 t125=-1 t126=-1 t127=-1 t128=-1 t129=-1 t130=-1 s99=-1 s101=-1 t06s=1 !! t__=-1 !! RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dialog2: GOSUB menu2 std2: ARRAY.LOAD sel2$[],p00$,p01$,p82$,p05$,p35$,p08$,p07$,p36$,p09$,p38$,p03$,p11$,p12$,p33$,p10$,p8 3$,p02$,p84$,p85$,p86$,p13$,p87$,p88$,p89$,p90$,p91$,p14$,p92$,p93$,p94$,p95$,p96$,p9 7$,p100$,p101$,p102$,p103$,p104$,p105$,p106$,p107$,p108$,p109$,p110$,p111$,p112$,p113 $,p32$,p114$,p115$,p116$,p117$,p118$,p15$,p119$,p120$,p121$,p17$,p122$,p18$,p123$,p12 4$,p19$,p125$,p126$,p127$,p128$,p20$,p129$,p130$,s99$,s100$,s101$,p06$,"Ok" DIALOG.SELECT sel2,sel2$[],"Sterne: Darstellung/Projektion:" IF sel2=1:t00=t00*-1:IF t00=-1 THEN RETURN:ENDIF IF sel2=2:t01=t01*-1: ENDIF
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 22 IF sel2=3: t82= t82*-1: ENDIF IF sel2=4: t05= t05*-1: ENDIF IF sel2=5: t35= t35*-1: ENDIF IF sel2=6: t08= t08*-1: ENDIF IF sel2=7: t07= t07*-1: ENDIF IF sel2=8: t36= t36*-1: ENDIF IF sel2=9: t09= t09*-1: ENDIF IF sel2=10:t38= t38*-1: ENDIF IF sel2=11:t03= t03*-1: ENDIF IF sel2=12:t11= t11*-1: ENDIF IF sel2=13:t12= t12*-1: ENDIF IF sel2=14:t33= t33*-1: ENDIF IF sel2=15:t10= t10*-1: ENDIF IF sel2=16:t83= t83*-1: ENDIF IF sel2=17:t02= t02*-1: ENDIF IF sel2=18:t84= t84*-1: ENDIF IF sel2=19:t85= t85*-1: ENDIF IF sel2=20:t86= t86*-1: ENDIF IF sel2=21:t13= t13*-1: ENDIF IF sel2=22:t87= t87*-1: ENDIF IF sel2=23:t88= t88*-1: ENDIF IF sel2=24:t89= t89*-1: ENDIF IF sel2=25:t90= t90*-1: ENDIF IF sel2=26:t91= t91*-1: ENDIF IF sel2=27:t14= t14*-1: ENDIF IF sel2=28:t92= t92*-1: ENDIF IF sel2=29:t93= t93*-1: ENDIF IF sel2=30:t94= t94*-1: ENDIF IF sel2=31:t95= t95*-1: ENDIF IF sel2=32:t96= t96*-1: ENDIF IF sel2=33:t97= t97*-1: ENDIF IF sel2=34:t100=t100*-1:ENDIF IF sel2=35:t101=t101*-1:ENDIF IF sel2=36:t102=t102*-1:ENDIF IF sel2=37:t103=t103*-1:ENDIF IF sel2=38:t104=t104*-1:ENDIF IF sel2=39:t105=t105*-1:ENDIF IF sel2=40:t106=t106*-1:ENDIF IF sel2=41:t107=t107*-1:ENDIF IF sel2=42:t108=t108*-1:ENDIF IF sel2=43:t109=t109*-1:ENDIF IF sel2=44:t110=t110*-1:ENDIF IF sel2=45:t111=t111*-1:ENDIF IF sel2=46:t112=t112*-1:ENDIF IF sel2=47:t113=t113*-1:ENDIF IF sel2=48:t32= t32*-1: ENDIF IF sel2=49:t114=t114*-1:ENDIF IF sel2=50:t115=t115*-1:ENDIF IF sel2=51:t116=t116*-1:ENDIF IF sel2=52:t117=t117*-1:ENDIF IF sel2=53:t118=t118*-1:ENDIF IF sel2=54:t15= t15*-1: ENDIF IF sel2=55:t119=t119*-1:ENDIF IF sel2=56:t120=t120*-1:ENDIF IF sel2=57:t121=t121*-1:ENDIF IF sel2=58:t17= t17*-1: ENDIF IF sel2=59:t122=t122*-1:ENDIF IF sel2=60:t18= t18*-1: ENDIF IF sel2=61:t123=t123*-1:ENDIF IF sel2=62:t124=t124*-1:ENDIF IF sel2=63:t19= t19*-1: ENDIF IF sel2=64:t125=t125*-1:ENDIF IF sel2=65:t126=t126*-1:ENDIF IF sel2=66:t127=t127*-1:ENDIF IF sel2=67:t128=t128*-1:ENDIF IF sel2=68:t20= t20*-1: ENDIF IF sel2=69:t129=t129*-1:ENDIF IF sel2=70:t130=t130*-1:ENDIF !! IF sel2=_:t__=t__*-1:ENDIF !! IF sel2=71:GOSUB sreset: s99=s99*-1:ENDIF IF sel2=72 GOSUB dlgvgr vgr_s=_vgr:IF s101=1 THEN vgr_s=vgr_s vgr=vgr_s ENDIF
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 23 IF sel2=73:s101=s101*-1:ENDIF IF sel2=74:t06s=t06s*-1:ENDIF IF sel2=75:RETURN: ENDIF GOSUB menu2 GOTO std2 RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% menu2: IF t00=1: p00$= smb$+" Ebene an": ENDIF IF t00=-1: p00$= " Ebene aus": ENDIF IF t01=1: p01$= smb$+" "+_ga$+" Centauri ["+STR$(ROUND(s_d01,1))+"pc]":ENDIF IF t01=-1: p01$= " "+_ga$+" Centauri ["+STR$(ROUND(s_d01,1))+"pc]":ENDIF IF t82=1: p82$= smb$+" Barnards Stern ["+STR$(ROUND(s_d02,1))+"pc]": ENDIF IF t82=-1: p82$= " Barnards Stern ["+STR$(ROUND(s_d02,1))+"pc]": ENDIF IF t05=1: p05$= smb$+" Sirius ["+STR$(ROUND(s_d03,1))+"pc]": ENDIF IF t05=-1: p05$= " Sirius ["+STR$(ROUND(s_d03,1))+"pc]": ENDIF IF t35=1: p35$= smb$+" Procyon ["+STR$(ROUND(s_d04,1))+"pc]": ENDIF IF t35=-1: p35$= " Procyon ["+STR$(ROUND(s_d04,1))+"pc]": ENDIF IF t08=1: p08$= smb$+" Altair ["+STR$(ROUND(s_d05,1))+"pc]": ENDIF IF t08=-1: p08$= " Altair ["+STR$(ROUND(s_d05,1))+"pc]": ENDIF IF t07=1: p07$= smb$+" Vega ["+STR$(ROUND(s_d06,1))+"pc]": ENDIF IF t07=-1: p07$= " Vega ["+STR$(ROUND(s_d06,1))+"pc]": ENDIF IF t36=1: p36$= smb$+" Fomalhaut ["+STR$(ROUND(s_d07,1))+"pc]": ENDIF IF t36=-1: p36$= " Fomalhaut ["+STR$(ROUND(s_d07,1))+"pc]": ENDIF IF t09=1: p09$= smb$+" Pollux ["+STR$(ROUND(s_d08,1))+"pc]": ENDIF IF t09=-1: p09$= " Pollux ["+STR$(ROUND(s_d08,1))+"pc]": ENDIF IF t38=1: p38$= smb$+" Denebola ["+STR$(ROUND(s_d09,1))+"pc]": ENDIF IF t38=-1: p38$= " Denebola ["+STR$(ROUND(s_d09,1))+"pc]": ENDIF IF t03=1: p03$= smb$+" Arkturus ["+STR$(ROUND(s_d10,1))+"pc]": ENDIF IF t03=-1: p03$= " Arkturus ["+STR$(ROUND(s_d10,1))+"pc]": ENDIF IF t11=1: p11$= smb$+" Capella ["+STR$(ROUND(s_d11,1))+"pc]": ENDIF IF t11=-1: p11$= " Capella ["+STR$(ROUND(s_d11,1))+"pc]": ENDIF IF t12=1: p12$= smb$+" Rasalhague ["+STR$(ROUND(s_d12,1))+"pc]": ENDIF IF t12=-1: p12$= " Rasalhague ["+STR$(ROUND(s_d12,1))+"pc]": ENDIF IF t33=1: p33$= smb$+" Alderamin ["+STR$(ROUND(s_d13,1))+"pc]": ENDIF IF t33=-1: p33$= " Alderamin ["+STR$(ROUND(s_d13,1))+"pc]": ENDIF IF t10=1: p10$= smb$+" Castor ["+STR$(ROUND(s_d14,1))+"pc]": ENDIF IF t10=-1: p10$= " Castor ["+STR$(ROUND(s_d14,1))+"pc]": ENDIF IF t83=1: p83$= smb$+" Caph ["+STR$(ROUND(s_d15,1))+"pc]": ENDIF IF t83=-1: p83$= " Caph ["+STR$(ROUND(s_d15,1))+"pc]": ENDIF IF t02=1: p02$= smb$+" Aldebaran ["+STR$(ROUND(s_d16,1))+"pc]": ENDIF IF t02=-1: p02$= " Aldebaran ["+STR$(ROUND(s_d16,1))+"pc]": ENDIF IF t84=1: p84$= smb$+" Hamal ["+STR$(ROUND(s_d17,1))+"pc]": ENDIF IF t84=-1: p84$= " Hamal ["+STR$(ROUND(s_d17,1))+"pc]": ENDIF IF t85=1: p85$= smb$+" Unuk ["+STR$(ROUND(s_d18,1))+"pc]": ENDIF IF t85=-1: p85$= " Unuk ["+STR$(ROUND(s_d18,1))+"pc]": ENDIF IF t86=1: p86$= smb$+" Alphecca ["+STR$(ROUND(s_d19,1))+"pc]": ENDIF IF t86=-1: p86$= " Alphecca ["+STR$(ROUND(s_d19,1))+"pc]": ENDIF IF t13=1: p13$= smb$+" Regulus ["+STR$(ROUND(s_d20,1))+"pc]": ENDIF IF t13=-1: p13$= " Regulus ["+STR$(ROUND(s_d20,1))+"pc]": ENDIF IF t87=1: p87$= smb$+" Merak ["+STR$(ROUND(s_d21,1))+"pc]": ENDIF IF t87=-1: p87$= " Merak ["+STR$(ROUND(s_d21,1))+"pc]": ENDIF IF t88=1: p88$= smb$+" Ankaa ["+STR$(ROUND(s_d22,1))+"pc]": ENDIF IF t88=-1: p88$= " Ankaa ["+STR$(ROUND(s_d22,1))+"pc]": ENDIF IF t89=1: p89$= smb$+" Alioth ["+STR$(ROUND(s_d23,1))+"pc]": ENDIF IF t89=-1: p89$= " Alioth ["+STR$(ROUND(s_d23,1))+"pc]": ENDIF IF t90=1: p90$= smb$+" Phecda ["+STR$(ROUND(s_d24,1))+"pc]": ENDIF IF t90=-1: p90$= " Phecda ["+STR$(ROUND(s_d24,1))+"pc]": ENDIF IF t91=1: p91$= smb$+" Gacrux ["+STR$(ROUND(s_d25,1))+"pc]": ENDIF IF t91=-1: p91$= " Gacrux ["+STR$(ROUND(s_d25,1))+"pc]": ENDIF IF t14=1: p14$= smb$+" Algol ["+STR$(ROUND(s_d26,1))+"pc]": ENDIF IF t14=-1: p14$= " Algol ["+STR$(ROUND(s_d26,1))+"pc]": ENDIF IF t92=1: p92$= smb$+" Alpheratz ["+STR$(ROUND(s_d27,1))+"pc]": ENDIF IF t92=-1: p92$= " Alpheratz ["+STR$(ROUND(s_d27,1))+"pc]": ENDIF IF t93=1: p93$= smb$+" Alnair ["+STR$(ROUND(s_d28,1))+"pc]": ENDIF IF t93=-1: p93$= " Alnair ["+STR$(ROUND(s_d28,1))+"pc]": ENDIF IF t94=1: p94$= smb$+" Alhena ["+STR$(ROUND(s_d29,1))+"pc]": ENDIF IF t94=-1: p94$= " Alhena ["+STR$(ROUND(s_d29,1))+"pc]": ENDIF IF t95=1: p95$= smb$+" Vindemiatrix ["+STR$(ROUND(s_d30,1))+"pc]": ENDIF IF t95=-1: p95$= " Vindemiatrix ["+STR$(ROUND(s_d30,1))+"pc]": ENDIF IF t96=1: p96$= smb$+" Dubhe ["+STR$(ROUND(s_d31,1))+"pc]": ENDIF IF t96=-1: p96$= " Dubhe ["+STR$(ROUND(s_d31,1))+"pc]": ENDIF IF t97=1: p97$= smb$+" Algieba ["+STR$(ROUND(s_d32,1))+"pc]": ENDIF IF t97=-1: p97$= " Algieba ["+STR$(ROUND(s_d32,1))+"pc]": ENDIF IF t100=1: p100$=smb$+" Kochab ["+STR$(ROUND(s_d33,1))+"pc]": ENDIF IF t100=-1:p100$= " Kochab ["+STR$(ROUND(s_d33,1))+"pc]": ENDIF IF t101=1: p101$=smb$+" Markab ["+STR$(ROUND(s_d34,1))+"pc]": ENDIF
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 24 IF t101=-1:p101$= " Markab ["+STR$(ROUND(s_d34,1))+"pc]": ENDIF IF t102=1: p102$=smb$+" Elnath ["+STR$(ROUND(s_d35,1))+"pc]": ENDIF IF t102=-1:p102$= " Elnath ["+STR$(ROUND(s_d35,1))+"pc]": ENDIF IF t103=1: p103$=smb$+" Achernar ["+STR$(ROUND(s_d36,1))+"pc]": ENDIF IF t103=-1:p103$= " Achernar ["+STR$(ROUND(s_d36,1))+"pc]": ENDIF IF t104=1: p104$=smb$+" Kaus Australis ["+STR$(ROUND(s_d37,1))+"pc]":ENDIF IF t104=-1:p104$= " Kaus Australis ["+STR$(ROUND(s_d37,1))+"pc]":ENDIF IF t105=1: p105$=smb$+" Eltanin ["+STR$(ROUND(s_d38,1))+"pc]": ENDIF IF t105=-1:p105$= " Eltanin ["+STR$(ROUND(s_d38,1))+"pc]": ENDIF IF t106=1: p106$=smb$+" Alphard ["+STR$(ROUND(s_d39,1))+"pc]": ENDIF IF t106=-1:p106$= " Alphard ["+STR$(ROUND(s_d39,1))+"pc]": ENDIF IF t107=1: p107$=smb$+" Scheat ["+STR$(ROUND(s_d40,1))+"pc]": ENDIF IF t107=-1:p107$= " Scheat ["+STR$(ROUND(s_d40,1))+"pc]": ENDIF IF t108=1: p108$=smb$+" Mirach ["+STR$(ROUND(s_d41,1))+"pc]": ENDIF IF t108=-1:p108$= " Mirach ["+STR$(ROUND(s_d41,1))+"pc]": ENDIF IF t109=1: p109$=smb$+" Nunki ["+STR$(ROUND(s_d42,1))+"pc]": ENDIF IF t109=-1:p109$= " Nunki ["+STR$(ROUND(s_d42,1))+"pc]": ENDIF IF t110=1: p110$=smb$+" Schedar ["+STR$(ROUND(s_d43,1))+"pc]": ENDIF IF t110=-1:p110$= " Schedar ["+STR$(ROUND(s_d43,1))+"pc]": ENDIF IF t111=1: p111$=smb$+" Izar ["+STR$(ROUND(s_d44,1))+"pc]": ENDIF IF t111=-1:p111$= " Izar ["+STR$(ROUND(s_d44,1))+"pc]": ENDIF IF t112=1: p112$=smb$+" Menkar ["+STR$(ROUND(s_d45,1))+"pc]": ENDIF IF t112=-1:p112$= " Menkar ["+STR$(ROUND(s_d45,1))+"pc]": ENDIF IF t113=1: p113$=smb$+" Bellatrix ["+STR$(ROUND(s_d46,1))+"pc]": ENDIF IF t113=-1:p113$= " Bellatrix ["+STR$(ROUND(s_d46,1))+"pc]": ENDIF IF t32=1: p32$= smb$+" Spica ["+STR$(ROUND(s_d47,1))+"pc]": ENDIF IF t32=-1: p32$= " Spica ["+STR$(ROUND(s_d47,1))+"pc]": ENDIF IF t114=1: p114$=smb$+" Deneb Kaitos ["+STR$(ROUND(s_d48,1))+"pc]": ENDIF IF t114=-1:p114$= " Deneb Kaitos ["+STR$(ROUND(s_d48,1))+"pc]": ENDIF IF t115=1: p115$=smb$+" Canopus ["+STR$(ROUND(s_d49,1))+"pc]": ENDIF IF t115=-1:p115$= " Canopus ["+STR$(ROUND(s_d49,1))+"pc]": ENDIF IF t116=1: p116$=smb$+" Acrux ["+STR$(ROUND(s_d50,1))+"pc]": ENDIF IF t116=-1:p116$= " Acrux ["+STR$(ROUND(s_d50,1))+"pc]": ENDIF IF t117=1: p117$=smb$+" Hadar ["+STR$(ROUND(s_d51,1))+"pc]": ENDIF IF t117=-1:p117$= " Hadar ["+STR$(ROUND(s_d51,1))+"pc]": ENDIF IF t118=1: p118$=smb$+" Polaris ["+STR$(ROUND(s_d52,1))+"pc]": ENDIF IF t118=-1:p118$= " Polaris ["+STR$(ROUND(s_d52,1))+"pc]": ENDIF IF t15=1: p15$= smb$+" Mira ["+STR$(ROUND(s_d53,1))+"pc]": ENDIF IF t15=-1: p15$= " Mira ["+STR$(ROUND(s_d53,1))+"pc]": ENDIF IF t119=1: p119$=smb$+" Adhara ["+STR$(ROUND(s_d54,1))+"pc]": ENDIF IF t119=-1:p119$= " Adhara ["+STR$(ROUND(s_d54,1))+"pc]": ENDIF IF t120=1: p120$=smb$+" Algenib ["+STR$(ROUND(s_d55,1))+"pc]": ENDIF IF t120=-1:p120$= " Algenib ["+STR$(ROUND(s_d55,1))+"pc]": ENDIF IF t121=1: p121$=smb$+" Mirfak ["+STR$(ROUND(s_d56,1))+"pc]": ENDIF IF t121=-1:p121$= " Mirfak ["+STR$(ROUND(s_d56,1))+"pc]": ENDIF IF t17=1: p17$= smb$+" Antares ["+STR$(ROUND(s_d57,1))+"pc]": ENDIF IF t17=-1: p17$= " Antares ["+STR$(ROUND(s_d57,1))+"pc]": ENDIF IF t122=1: p122$=smb$+" Shaula ["+STR$(ROUND(s_d58,1))+"pc]": ENDIF IF t122=-1:p122$= " Shaula ["+STR$(ROUND(s_d58,1))+"pc]": ENDIF IF t18=1: p18$= smb$+" Beteigeuze ["+STR$(ROUND(s_d59,1))+"pc]": ENDIF IF t18=-1: p18$= " Beteigeuze ["+STR$(ROUND(s_d59,1))+"pc]": ENDIF IF t123=1: p123$=smb$+" Saiph ["+STR$(ROUND(s_d60,1))+"pc]": ENDIF IF t123=-1:p123$= " Saiph ["+STR$(ROUND(s_d60,1))+"pc]": ENDIF IF t124=1: p124$=smb$+" Enif ["+STR$(ROUND(s_d61,1))+"pc]": ENDIF IF t124=-1:p124$= " Enif ["+STR$(ROUND(s_d61,1))+"pc]": ENDIF IF t19=1: p19$= smb$+" Rigel ["+STR$(ROUND(s_d62,1))+"pc]": ENDIF IF t19=-1: p19$= " Rigel ["+STR$(ROUND(s_d62,1))+"pc]": ENDIF IF t125=1: p125$=smb$+" Mintaka ["+STR$(ROUND(s_d63,1))+"pc]": ENDIF IF t125=-1:p125$= " Mintaka ["+STR$(ROUND(s_d63,1))+"pc]": ENDIF IF t126=1: p126$=smb$+" Alnitak ["+STR$(ROUND(s_d64,1))+"pc]": ENDIF IF t126=-1:p126$= " Alnitak ["+STR$(ROUND(s_d64,1))+"pc]": ENDIF IF t127=1: p127$=smb$+" Alnilam ["+STR$(ROUND(s_d65,1))+"pc]": ENDIF IF t127=-1:p127$= " Alnilam ["+STR$(ROUND(s_d65,1))+"pc]": ENDIF IF t128=1: p128$=smb$+" Arneb ["+STR$(ROUND(s_d66,1))+"pc]": ENDIF IF t128=-1:p128$= " Arneb ["+STR$(ROUND(s_d66,1))+"pc]": ENDIF IF t20=1: p20$= smb$+" Deneb ["+STR$(ROUND(s_d67/1000,1))+"kpc]": ENDIF IF t20=-1: p20$= " Deneb ["+STR$(ROUND(s_d67,1))+"pc]": ENDIF IF t129=1: p129$=smb$+" RSGC2-01 ["+STR$(ROUND(s_d68/1000,1))+"kpc]":ENDIF IF t129=-1:p129$= " RSGC2-01 ["+STR$(ROUND(s_d68/1000,1))+"kpc]":ENDIF IF t130=1: p130$=smb$+" RSGC-F01 ["+STR$(ROUND(s_d69/1000,1))+"kpc]":ENDIF IF t130=-1:p130$= " RSGC-F01 ["+STR$(ROUND(s_d69/1000,1))+"kpc]":ENDIF !! IF t__=1:p__$=smb$+" __ [__pc]":ENDIF IF t__=-1: p__$=" __ [__pc]":ENDIF !! s99$=smq$+" Projektion an/aus" s100$=smq$+" Vergrößerung: "+INT$(vgr_s)+" ×"
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 25 IF s101=-1:s101$=_smbl$+" Symbol": ENDIF IF s101=1: s101$=_mst$+ " Maßstab × "+INT$(vgrs0):ENDIF IF t06s=1: p06$= smb$+ " Text": ENDIF IF t06s=-1:p06$= " Text aus": ENDIF RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% sreset: IF s99=1 t01=-1 t02=-1 t03=-1 t05=-1 t07=-1 t08=-1 t09=-1 t10=-1 t11=-1 t12=-1 t13=-1 t14=-1 t15=-1 t17=-1 t18=-1 t19=-1 t20=-1 t32=-1 t33=-1 t35=-1 t36=-1 t38=-1 t59=-1 t73=-1 t74=-1 t75=-1 t76=-1 t77=-1 t78=-1 t79=-1 t80=-1 t81=-1 t82=-1 t83=-1 t84=-1 t85=-1 t86=-1 t87=-1 t88=-1 t89=-1 t90=-1 t91=-1 t92=-1 t93=-1 t94=-1 t95=-1 t96=-1 t97=-1 t100=-1 t101=-1 t102=-1 t103=-1 t104=-1 t105=-1 t106=-1 t107=-1 t108=-1 t109=-1 t110=-1 t111=-1 t112=-1 t113=-1 t114=-1 t115=-1 t116=-1 t117=-1 t118=-1 t119=-1
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 32 st25=1 st26=1 st27=1 st28=1 st29=1 st30=1 st31=1 st32=1 st33=1 st34=1 st35=1 st36=1 st37=1 st38=1 st39=1 st40=1 st41=1 st42=1 st43=1 st44=1 st45=1 st46=1 st47=1 st48=1 st49=1 st50=1 st51=1 st52=1 st53=1 st54=1 st55=1 st56=1 st57=1 ENDIF RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! % Dialog Nebel dialog5prm: nb00=1 nb01=-1 nb02=-1 nb10=-1 nb11=-1 nb12=-1 nb14=-1 nb15=-1 nb16=-1 nb17=-1 nb18=-1 nb19=-1 nb20=-1 nb21=-1 nb22=-1 nb101=1 %%%% nb99=-1 t06nb=1 !! nb__=-1 !! RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dialog5: GOSUB menu5 std5: ARRAY.LOAD sel5$[],nb00$,nb15$,nb01$,nb16$,nb17$,nb18$, nb19$,nb20$,nb21$,nb22$,nb10$,nb11$,nb12$,nb14$,nb99$,nb100$,nb101$,nb23$,"Ok" DIALOG.SELECT sel5,sel5$[],"Nebel, Planetare Nebel und Supernovae: Darstellung/Projektion:" IF sel5=1: nb00=nb00*-1:IF nb00=-1 THEN RETURN:ENDIF IF sel5=2: nb15=nb15*-1:ENDIF IF sel5=3: nb01=nb01*-1:ENDIF IF sel5=4: nb16=nb16*-1:ENDIF IF sel5=5: nb17=nb17*-1:ENDIF IF sel5=6: nb18=nb18*-1:ENDIF IF sel5=7: nb19=nb19*-1:ENDIF IF sel5=8: nb20=nb20*-1:ENDIF
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 33 IF sel5=9: nb21=nb21*-1:ENDIF IF sel5=10:nb22=nb22*-1:ENDIF IF sel5=11:nb10=nb10*-1:ENDIF IF sel5=12:nb11=nb11*-1:ENDIF IF sel5=13:nb12=nb12*-1:ENDIF IF sel5=14:nb14=nb14*-1:ENDIF !! IF sel5=__:nb__=nb__*-1:ENDIF !! IF sel5=15:GOSUB nbreset: nb99=nb99*-1:ENDIF IF sel5=16 GOSUB dlgvgr vgr_nb=_vgr:vgr=vgr_nb ENDIF IF sel5=17:nb101=nb101*-1:ENDIF IF sel5=18:t06nb=t06nb*-1:ENDIF IF sel5=19:RETURN: ENDIF GOSUB menu5 GOTO std5 RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% menu5: IF nb00=1: nb00$=smb$+" Ebene an": ENDIF IF nb00=-1:nb00$= " Ebene aus": ENDIF IF nb15=1: nb15$=smb$+" Hantelnebel ["+STR$(ROUND(nb_d01,1))+"pc]": ENDIF IF nb15=-1:nb15$= " Hantelnebel ["+STR$(ROUND(nb_d01,1))+"pc]": ENDIF IF nb01=1: nb01$=smb$+" Orionnebel ["+STR$(ROUND(nb_d02,1))+"pc]": ENDIF IF nb01=-1:nb01$= " Orionnebel ["+STR$(ROUND(nb_d02,1))+"pc]": ENDIF IF nb16=1: nb16$=smb$+" M78 ["+STR$(ROUND(nb_d03,1))+"pc]": ENDIF IF nb16=-1:nb16$= " M78 ["+STR$(ROUND(nb_d03,1))+"pc]": ENDIF IF nb17=1: nb17$=smb$+" Eulennebel ["+STR$(ROUND(nb_d04,1))+"pc]": ENDIF IF nb17=-1:nb17$= " Eulennebel ["+STR$(ROUND(nb_d04,1))+"pc]": ENDIF IF nb18=1: nb18$=smb$+" M76 ["+STR$(ROUND(nb_d05,1))+"pc]": ENDIF IF nb18=-1:nb18$= " M76 ["+STR$(ROUND(nb_d05,1))+"pc]": ENDIF IF nb19=1: nb19$=smb$+" Ringnebel ["+STR$(ROUND(nb_d06,1))+"pc]": ENDIF IF nb19=-1:nb19$= " Ringnebel ["+STR$(ROUND(nb_d06,1))+"pc]": ENDIF IF nb20=1: nb20$=smb$+" Lagunennebel ["+STR$(ROUND(nb_d07/1000,1))+"kpc]": ENDIF IF nb20=-1:nb20$= " Lagunennebel ["+STR$(ROUND(nb_d07/1000,1))+"kpc]": ENDIF IF nb21=1: nb21$=smb$+" Trifidnebel ["+STR$(ROUND(nb_d08/1000,1))+"kpc]": ENDIF IF nb21=-1:nb21$= " Trifidnebel ["+STR$(ROUND(nb_d08/1000,1))+"kpc]": ENDIF IF nb22=1: nb22$=smb$+" Omeganebel ["+STR$(ROUND(nb_d09/1000,1))+"kpc]": ENDIF IF nb22=-1:nb22$= " Omeganebel ["+STR$(ROUND(nb_d09/1000,1))+"kpc]": ENDIF IF nb10=1: nb10$=smb$+" Krebsnebel ["+STR$(ROUND(nb_d10/1000,1))+"kpc]": ENDIF IF nb10=-1:nb10$= " Krebsnebel ["+STR$(ROUND(nb_d10/1000,1))+"kpc]": ENDIF IF nb11=1: nb11$=smb$+" Adlernebel ["+STR$(ROUND(nb_d11/1000,1))+"kpc]": ENDIF IF nb11=-1:nb11$= " Adlernebel ["+STR$(ROUND(nb_d11/1000,1))+"kpc]": ENDIF IF nb12=1: nb12$=smb$+" Stundenglasnebel ["+STR$(ROUND(nb_d12/1000,1))+"kpc]":ENDIF IF nb12=-1:nb12$= " Stundenglasnebel ["+STR$(ROUND(nb_d12/1000,1))+"kpc]":ENDIF IF nb14=1: nb14$=smb$+" V838 ["+STR$(ROUND(nb_d13/1000,1))+"kpc]": ENDIF IF nb14=-1:nb14$= " V838 ["+STR$(ROUND(nb_d13/1000,1))+"kpc]": ENDIF !! IF nb__=1:nb__$=smb$+" __ [__pc]":ENDIF IF nb__=-1: nb__$=" __ [__pc]":ENDIF !! nb99$=smq$+" Projektion an/aus" nb100$=smq$+" Vergrößerung: "+INT$(vgr_nb)+" ×" IF nb101=-1:nb101$=_smbl$+" Symbol": ENDIF IF nb101=1: nb101$=_mst$+ " Maßstab": ENDIF IF t06nb=1: nb23$= smb$+ " Text": ENDIF IF t06nb=-1:nb23$= " Text aus":ENDIF RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% nbreset: IF nb99=1 nb01=-1 nb02=-1 nb10=-1 nb11=-1 nb12=-1 nb14=-1 nb15=-1 nb16=-1 nb17=-1 nb18=-1 nb19=-1
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 34 nb20=-1 nb21=-1 nb22=-1 ELSE nb01=1 nb02=1 nb10=1 nb11=1 nb12=1 nb14=1 nb15=1 nb16=1 nb17=1 nb18=1 nb19=1 nb20=1 nb21=1 nb22=1 ENDIF RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! % Dialog Milchstraße dialog6prm: gm00=1 gm01=-1 gm02=-1 gm03=-1 gm04=-1 gm05=-1 gm06=-1 gm99=-1 t06gm=1 !! gm__=-1 !! RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dialog6: GOSUB menu6 std6: ARRAY.LOAD sel6$[],gm00$,gm05$,gm06$,gm01$,gm02$,gm04$,gm03$,gm99$,gm30$,"Ok" DIALOG.SELECT sel6,sel6$[],"Milchstraßen Objekte: Darstellung/Projektion:" IF sel6=1:gm00=gm00*-1:IF gm00=-1 THEN RETURN:ENDIF IF sel6=2:gm05=gm05*-1:ENDIF IF sel6=3:gm06=gm06*-1:ENDIF IF sel6=4:gm01=gm01*-1:ENDIF IF sel6=5:gm02=gm02*-1:ENDIF IF sel6=6:gm04=gm04*-1:ENDIF IF sel6=7:gm03=gm03*-1:ENDIF !! IF sel6=__:gm__=gm__*-1:ENDIF !! IF sel6=8:GOSUB gmreset: gm99=gm99*-1:ENDIF !! IF sel6=9 GOSUB dlgvgr vgr_gm=_vgr:vgr=vgr_gm ENDIF !! IF sel6=9:t06gm=t06gm*-1:ENDIF IF sel6=10:RETURN: ENDIF GOSUB menu6 GOTO std6 RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% menu6: IF gm00=1:gm00$= smb$+" Ebene an": ENDIF IF gm00=-1:gm00$= " Ebene aus": ENDIF IF gm05=1:gm05$=smb$+" Sagittarius Wolke ["+STR$(ROUND(gm_d02/1000,1))+"kpc]":ENDIF IF gm05=-1:gm05$= " Sagittarius Wolke ["+STR$(ROUND(gm_d02/1000,1))+"kpc]":ENDIF IF gm06=1:gm06$=smb$+" Zentrum ["+STR$(ROUND(gm_d01/1000,1))+"kpc]": ENDIF IF gm06=-1:gm06$= " Zentrum ["+STR$(ROUND(gm_d01/1000,1))+"kpc]": ENDIF IF gm01=1:gm01$=smb$+" Sag DEG ["+STR$(ROUND(gm_d03/1000,1))+"kpc]": ENDIF IF gm01=-1:gm01$= " Sag DEG ["+STR$(ROUND(gm_d03/1000,1))+"kpc]": ENDIF
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 35 IF gm02=1:gm02$=smb$+" M54 ["+STR$(ROUND(gm_d04/1000,1))+"kpc]": ENDIF IF gm02=-1:gm02$= " M54 ["+STR$(ROUND(gm_d04/1000,1))+"kpc]": ENDIF IF gm03=1:gm03$=smb$+" Große Wolke ["+STR$(ROUND(gm_d05/1000,1))+"kpc]": ENDIF IF gm03=-1:gm03$= " Große Wolke ["+STR$(ROUND(gm_d05/1000,1))+"kpc]": ENDIF IF gm04=1:gm04$=smb$+" Kleine Wolke ["+STR$(ROUND(gm_d06/1000,1))+"kpc]": ENDIF IF gm04=-1:gm04$= " Kleine Wolke ["+STR$(ROUND(gm_d06/1000,1))+"kpc]": ENDIF !! IF gm__=1:gm__$=smb$+" __ [__kpc]":ENDIF IF gm__=-1: gm__$=" __ [__kpc]":ENDIF !! gm99$=smq$+" Projektion an/aus" !gm100$=smq$+" Vergrößerung: "+INT$(vgr_gm)+" ×" IF t06gm=1: gm30$=smb$+" Text": ENDIF IF t06gm=-1:gm30$= " Text aus":ENDIF RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% gmreset: IF gm99=1 gm01=-1 gm02=-1 gm03=-1 gm04=-1 gm05=-1 gm06=-1 ELSE gm01=1 gm02=1 gm03=1 gm04=1 gm05=1 gm06=1 ENDIF RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! % Dialog Galaxien dialog7prm: gx00=1 gx01=-1 gx02=-1 gx03=-1 gx04=-1 gx05=-1 gx06=-1 gx07=-1 gx08=-1 gx09=-1 gx10=-1 gx11=-1 gx12=-1 gx13=-1 gx14=-1 gx15=-1 gx16=-1 gx17=-1 gx18=-1 gx19=-1 gx20=-1 gx21=-1 gx22=-1 gx23=-1 gx24=-1 gx25=-1 gx26=-1 gx27=-1 gx28=-1 gx29=-1 gx30=-1 gx31=-1 gx99=-1 gx101=1 %%% t06gx=1 !! gx__=-1 !! RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 36 dialog7: GOSUB menu7 std7: ARRAY.LOAD sel7$[],gx00$,gx01$,gx05$,gx11$,gx12$,gx20$,gx13$,gx02$,gx27$,gx03$,gx21$,gx04$,gx10$ ,gx29$,gx22$,gx28$,gx14$,gx23$,gx31$,gx15$,gx26$,gx30$,gx17$,gx19$,gx07$,gx06$,gx16$, gx09$,gx08$,gx25$,gx18$,gx24$,gx99$,gx100$,gx101$,gx40$,"Ok" DIALOG.SELECT sel7,sel7$[],"Galaxien: Darstellung/Projektion:" IF sel7=1: gx00=gx00*-1:IF gx00=-1 THEN RETURN:ENDIF IF sel7=2: gx01=gx01*-1:ENDIF IF sel7=3: gx05=gx05*-1:ENDIF IF sel7=4: gx11=gx11*-1:ENDIF IF sel7=5: gx12=gx12*-1:ENDIF IF sel7=6: gx20=gx20*-1:ENDIF IF sel7=7: gx13=gx13*-1:ENDIF IF sel7=8: gx02=gx02*-1:ENDIF IF sel7=9: gx27=gx27*-1:ENDIF IF sel7=10:gx03=gx03*-1:ENDIF IF sel7=11:gx21=gx21*-1:ENDIF IF sel7=12:gx04=gx04*-1:ENDIF IF sel7=13:gx10=gx10*-1:ENDIF IF sel7=14:gx29=gx29*-1:ENDIF IF sel7=15:gx22=gx22*-1:ENDIF IF sel7=16:gx28=gx28*-1:ENDIF IF sel7=17:gx14=gx14*-1:ENDIF IF sel7=18:gx23=gx23*-1:ENDIF IF sel7=19:gx31=gx31*-1:ENDIF IF sel7=20:gx15=gx15*-1:ENDIF IF sel7=21:gx26=gx26*-1:ENDIF IF sel7=22:gx30=gx30*-1:ENDIF IF sel7=23:gx17=gx17*-1:ENDIF IF sel7=24:gx19=gx19*-1:ENDIF IF sel7=25:gx07=gx07*-1:ENDIF IF sel7=26:gx06=gx06*-1:ENDIF IF sel7=27:gx16=gx16*-1:ENDIF IF sel7=28:gx09=gx09*-1:ENDIF IF sel7=29:gx08=gx08*-1:ENDIF IF sel7=30:gx25=gx25*-1:ENDIF IF sel7=31:gx18=gx18*-1:ENDIF IF sel7=32:gx24=gx24*-1:ENDIF !! IF sel7=__:gx__=gx__*-1:ENDIF !! IF sel7=33:GOSUB gxreset: gx99=gx99*-1:ENDIF IF sel7=34 GOSUB dlgvgr vgr_gx=_vgr:vgr=vgr_gx ENDIF IF sel7=35:gx101=gx101*-1:ENDIF IF sel7=36:t06gx=t06gx*-1:ENDIF IF sel7=37:RETURN:ENDIF GOSUB menu7 GOTO std7 RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% menu7: IF gx00=1: gx00$=smb$+" Ebene an": ENDIF IF gx00=-1:gx00$= " Ebene aus": ENDIF IF gx01=1: gx01$=smb$+" Andromeda ["+STR$(ROUND(gx_d01/10^6,1))+"Mpc]": ENDIF IF gx01=-1:gx01$= " Andromeda ["+STR$(ROUND(gx_d01/10^3,1))+"kpc]": ENDIF IF gx05=1: gx05$=smb$+" Triangulum ["+STR$(ROUND(gx_d02/10^6,1))+"Mpc]":ENDIF IF gx05=-1:gx05$= " Triangulum ["+STR$(ROUND(gx_d02/10^3,1))+"kpc]":ENDIF IF gx11=1: gx11$=smb$+" M81 ["+STR$(ROUND(gx_d03/10^6,1))+"Mpc]": ENDIF IF gx11=-1:gx11$= " M81 ["+STR$(ROUND(gx_d03/10^6,1))+"Mpc]": ENDIF IF gx12=1: gx12$=smb$+" M82 ["+STR$(ROUND(gx_d04/10^6,1))+"Mpc]": ENDIF IF gx12=-1:gx12$= " M82 ["+STR$(ROUND(gx_d04/10^6,1))+"Mpc]": ENDIF IF gx20=1: gx20$=smb$+" M94 ["+STR$(ROUND(gx_d05/10^6,1))+"Mpc]": ENDIF IF gx20=-1:gx20$= " M94 ["+STR$(ROUND(gx_d05/10^6,1))+"Mpc]": ENDIF IF gx13=1: gx13$=smb$+" M83 ["+STR$(ROUND(gx_d06/10^6,1))+"Mpc]": ENDIF IF gx13=-1:gx13$= " M83 ["+STR$(ROUND(gx_d06/10^6,1))+"Mpc]": ENDIF IF gx02=1: gx02$=smb$+" M101 ["+STR$(ROUND(gx_d07/10^6,1))+"Mpc]": ENDIF IF gx02=-1:gx02$= " M101 ["+STR$(ROUND(gx_d07/10^6,1))+"Mpc]": ENDIF IF gx27=1: gx27$=smb$+" M106 ["+STR$(ROUND(gx_d08/10^6,1))+"Mpc]": ENDIF IF gx27=-1:gx27$= " M106 ["+STR$(ROUND(gx_d08/10^6,1))+"Mpc]": ENDIF IF gx21=1: gx21$=smb$+" M95 ["+STR$(ROUND(gx_d09/10^6,1))+"Mpc]": ENDIF IF gx21=-1:gx21$= " M95 ["+STR$(ROUND(gx_d09/10^6,1))+"Mpc]": ENDIF
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 37 IF gx03=1: gx03$=smb$+" M51 ["+STR$(ROUND(gx_d10/10^6,1))+"Mpc]": ENDIF IF gx03=-1:gx03$= " M51 ["+STR$(ROUND(gx_d10/10^6,1))+"Mpc]": ENDIF IF gx04=1: gx04$=smb$+" M104 ["+STR$(ROUND(gx_d11/10^6,1))+"Mpc]":ENDIF IF gx04=-1:gx04$= " M104 ["+STR$(ROUND(gx_d11/10^6,1))+"Mpc]":ENDIF IF gx10=1: gx10$=smb$+" M74 ["+STR$(ROUND(gx_d13/10^6,1))+"Mpc]": ENDIF IF gx10=-1:gx10$= " M74 ["+STR$(ROUND(gx_d13/10^6,1))+"Mpc]": ENDIF IF gx29=1: gx29$=smb$+" M108 ["+STR$(ROUND(gx_d16/10^6,1))+"Mpc]":ENDIF IF gx29=-1:gx29$= " M108 ["+STR$(ROUND(gx_d16/10^6,1))+"Mpc]":ENDIF IF gx22=1: gx22$=smb$+" M96 ["+STR$(ROUND(gx_d14/10^6,1))+"Mpc]": ENDIF IF gx22=-1:gx22$= " M96 ["+STR$(ROUND(gx_d14/10^6,1))+"Mpc]": ENDIF IF gx28=1: gx28$=smb$+" M105 ["+STR$(ROUND(gx_d17/10^6,1))+"Mpc]":ENDIF IF gx28=-1:gx28$= " M105 ["+STR$(ROUND(gx_d17/10^6,1))+"Mpc]":ENDIF IF gx14=1: gx14$=smb$+" M84 ["+STR$(ROUND(gx_d18/10^6,1))+"Mpc]": ENDIF IF gx14=-1:gx14$= " M84 ["+STR$(ROUND(gx_d18/10^6,1))+"Mpc]": ENDIF IF gx23=1: gx23$=smb$+" M98 ["+STR$(ROUND(gx_d19/10^6,1))+"Mpc]": ENDIF IF gx23=-1:gx23$= " M98 ["+STR$(ROUND(gx_d19/10^6,1))+"Mpc]": ENDIF IF gx31=1: gx31$=smb$+" M77 ["+STR$(ROUND(gx_d20/10^6,1))+"Mpc]": ENDIF IF gx31=-1:gx31$= " M77 ["+STR$(ROUND(gx_d20/10^6,1))+"Mpc]": ENDIF IF gx15=1: gx15$=smb$+" M85 ["+STR$(ROUND(gx_d21/10^6,1))+"Mpc]": ENDIF IF gx15=-1:gx15$= " M85 ["+STR$(ROUND(gx_d21/10^6,1))+"Mpc]": ENDIF IF gx26=1: gx26$=smb$+" M102 ["+STR$(ROUND(gx_d22/10^6,1))+"Mpc]":ENDIF IF gx26=-1:gx26$= " M102 ["+STR$(ROUND(gx_d22/10^6,1))+"Mpc]":ENDIF IF gx30=1: gx30$=smb$+" M109 ["+STR$(ROUND(gx_d23/10^6,1))+"Mpc]":ENDIF IF gx30=-1:gx30$= " M109 ["+STR$(ROUND(gx_d23/10^6,1))+"Mpc]":ENDIF IF gx17=1: gx17$=smb$+" M87 ["+STR$(ROUND(gx_d33/10^6,1))+"Mpc]": ENDIF IF gx17=-1:gx17$= " M87 ["+STR$(ROUND(gx_d33/10^6,1))+"Mpc]": ENDIF IF gx19=1: gx19$=smb$+" M89 ["+STR$(ROUND(gx_d24/10^6,1))+"Mpc]": ENDIF IF gx19=-1:gx19$= " M89 ["+STR$(ROUND(gx_d24/10^6,1))+"Mpc]": ENDIF IF gx07=1: gx07$=smb$+" M49 ["+STR$(ROUND(gx_d25/10^6,1))+"Mpc]": ENDIF IF gx07=-1:gx07$= " M49 ["+STR$(ROUND(gx_d25/10^6,1))+"Mpc]": ENDIF IF gx06=1: gx06$=smb$+" M90 ["+STR$(ROUND(gx_d26/10^6,1))+"Mpc]": ENDIF IF gx06=-1:gx06$= " M90 ["+STR$(ROUND(gx_d26/10^6,1))+"Mpc]": ENDIF IF gx16=1: gx16$=smb$+" M86 ["+STR$(ROUND(gx_d27/10^6,1))+"Mpc]": ENDIF IF gx16=-1:gx16$= " M86 ["+STR$(ROUND(gx_d27/10^6,1))+"Mpc]": ENDIF IF gx09=1: gx09$=smb$+" M91 ["+STR$(ROUND(gx_d28/10^6,1))+"Mpc]": ENDIF IF gx09=-1:gx09$= " M91 ["+STR$(ROUND(gx_d28/10^6,1))+"Mpc]": ENDIF IF gx08=1: gx08$=smb$+" M58 ["+STR$(ROUND(gx_d29/10^6,1))+"Mpc]": ENDIF IF gx08=-1:gx08$= " M58 ["+STR$(ROUND(gx_d29/10^6,1))+"Mpc]": ENDIF IF gx25=1: gx25$=smb$+" M100 ["+STR$(ROUND(gx_d30/10^6,1))+"Mpc]":ENDIF IF gx25=-1:gx25$= " M100 ["+STR$(ROUND(gx_d30/10^6,1))+"Mpc]":ENDIF IF gx18=1: gx18$=smb$+" M88 ["+STR$(ROUND(gx_d31/10^6,1))+"Mpc]": ENDIF IF gx18=-1:gx18$= " M88 ["+STR$(ROUND(gx_d31/10^6,1))+"Mpc]": ENDIF IF gx24=1: gx24$=smb$+" M99 ["+STR$(ROUND(gx_d32/10^6,1))+"Mpc]": ENDIF IF gx24=-1:gx24$= " M99 ["+STR$(ROUND(gx_d32/10^6,1))+"Mpc]": ENDIF !! IF gx__=1:gx__$=smb$+" ___ [Mpc]":ENDIF IF gx__=-1: gx__$=" ___ [Mpc]":ENDIF !! gx99$=smq$+" Projektion an/aus" gx100$=smq$+" Vergrößerung: "+INT$(vgr_gx)+" ×" IF gx101=-1:gx101$=_smbl$+" Symbol": ENDIF IF gx101=1: gx101$=_mst$+ " Maßstab": ENDIF IF t06gx=1: gx40$= smb$+ " Text": ENDIF IF t06gx=-1:gx40$= " Text aus":ENDIF RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% gxreset: IF gx99=1 gx01=-1 gx02=-1 gx03=-1 gx04=-1 gx05=-1 gx06=-1 gx07=-1 gx08=-1 gx09=-1 gx10=-1 gx11=-1 gx12=-1 gx13=-1 gx14=-1 gx15=-1 gx16=-1 gx17=-1 gx18=-1 gx19=-1
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 38 gx20=-1 gx21=-1 gx22=-1 gx23=-1 gx24=-1 gx25=-1 gx26=-1 gx27=-1 gx28=-1 gx29=-1 gx30=-1 gx31=-1 gx32=-1 gx33=-1 ELSE gx01=1 gx02=1 gx03=1 gx04=1 gx05=1 gx06=1 gx07=1 gx08=1 gx09=1 gx10=1 gx11=1 gx12=1 gx13=1 gx14=1 gx15=1 gx16=1 gx17=1 gx18=1 gx19=1 gx20=1 gx21=1 gx22=1 gx23=1 gx24=1 gx25=1 gx26=1 gx27=1 gx28=1 gx29=1 gx30=1 gx31=1 gx32=1 gx33=1 ENDIF RETURN ! % Dialog Galaxienhaufen %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dialog8prm: gh00=1 gh01=-1 gh02=-1 gh03=-1 gh04=-1 gh05=-1 gh06=-1 gh07=-1 gh08=-1 gh09=-1 gh10=-1 gh11=-1 gh12=-1 gh13=-1 gh14=-1 gh15=-1 gh99=-1 t06gh=1 !! gh__=-1 !! RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dialog8: GOSUB menu8
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 39 std8: ARRAY.LOAD sel8$[],gh00$,gh01$,gh03$,gh04$,gh06$,gh09$,gh02$,gh07$,gh10$,gh11$,gh05$,gh12$,gh13$ ,gh14$,gh15$,gh08$,gh99$,gh30$,"Ok" DIALOG.SELECT sel8,sel8$[],"Galaxien Haufen und Superhaufen: Darstellung/Projektion:" IF sel8=1: gh00=gh00*-1:IF gh00=-1 THEN RETURN:ENDIF IF sel8=2: gh01=gh01*-1:ENDIF IF sel8=3: gh03=gh03*-1:ENDIF IF sel8=4: gh04=gh04*-1:ENDIF IF sel8=5: gh06=gh06*-1:ENDIF IF sel8=6: gh09=gh09*-1:ENDIF IF sel8=7: gh02=gh02*-1:ENDIF IF sel8=8: gh07=gh07*-1:ENDIF IF sel8=9: gh10=gh10*-1:ENDIF IF sel8=10:gh11=gh11*-1:ENDIF IF sel8=11:gh05=gh05*-1:ENDIF IF sel8=12:gh12=gh12*-1:ENDIF IF sel8=13:gh13=gh13*-1:ENDIF IF sel8=14:gh14=gh14*-1:ENDIF IF sel8=15:gh15=gh15*-1:ENDIF IF sel8=16:gh08=gh08*-1:ENDIF !! IF sel8=__:gh__=gh__*-1:ENDIF !! IF sel8=17:GOSUB ghreset: gh99=gh99*-1:ENDIF !! IF sel8=18 GOSUB dlgvgr vgr_gh=_vgr:vgr=vgr_gh ENDIF !! IF sel8=18:t06gh=t06gh*-1:ENDIF IF sel8=19:RETURN:ENDIF GOSUB menu8 GOTO std8 RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% menu8: IF gh00=1: gh00$=smb$+" Ebene an": ENDIF IF gh00=-1:gh00$= " Ebene aus": ENDIF IF gh01=1: gh01$=smb$+" Virgo ["+STR$(ROUND(gh_d01/10^6,1))+"Mpc]": ENDIF IF gh01=-1:gh01$= " Virgo ["+STR$(ROUND(gh_d01/10^6,1))+"Mpc]": ENDIF IF gh03=1: gh03$=smb$+" Fornax ["+STR$(ROUND(gh_d02/10^6,1))+"Mpc]": ENDIF IF gh03=-1:gh03$= " Fornax ["+STR$(ROUND(gh_d02/10^6,1))+"Mpc]": ENDIF IF gh04=1: gh04$=smb$+" Fornax II ["+STR$(ROUND(gh_d03/10^6,1))+"Mpc]": ENDIF IF gh04=-1:gh04$= " Eridanus ["+STR$(ROUND(gh_d03/10^6,1))+"Mpc]": ENDIF IF gh06=1: gh06$=smb$+" Antila ["+STR$(ROUND(gh_d04/10^6,1))+"Mpc]": ENDIF IF gh06=-1:gh06$= " Antila ["+STR$(ROUND(gh_d04/10^6,1))+"Mpc]": ENDIF IF gh09=1: gh09$=smb$+" Hydra ["+STR$(ROUND(gh_d05/10^6,1))+"Mpc]": ENDIF IF gh09=-1:gh09$= " Hydra ["+STR$(ROUND(gh_d05/10^6,1))+"Mpc]": ENDIF IF gh02=1: gh02$=smb$+" Norma ["+STR$(ROUND(gh_d06/10^6,1))+"Mpc]": ENDIF IF gh02=-1:gh02$= " Norma ["+STR$(ROUND(gh_d06/10^6,1))+"Mpc]": ENDIF IF gh07=1: gh07$=smb$+" Laniakea S. ["+STR$(ROUND(gh_d07/10^6,1))+"Mpc]": ENDIF IF gh07=-1:gh07$= " Großer Attraktor ["+STR$(ROUND(gh_d07/10^6,1))+"Mpc]":ENDIF IF gh10=1: gh10$=smb$+" Perseus-Pi. S. ["+STR$(ROUND(gh_d08/10^6,1))+"Mpc]": ENDIF IF gh10=-1:gh10$= " Perseus-Pi. S. ["+STR$(ROUND(gh_d08/10^6,1))+"Mpc]": ENDIF IF gh11=1: gh11$=smb$+" Coma S. ["+STR$(ROUND(gh_d09/10^6,1))+"Mpc]": ENDIF IF gh11=-1:gh11$= " Coma S. ["+STR$(ROUND(gh_d09/10^6,1))+"Mpc]": ENDIF IF gh05=1: gh05$=smb$+" Coma ["+STR$(ROUND(gh_d10/10^6,1))+"Mpc]": ENDIF IF gh05=-1:gh05$= " Große Wand ["+STR$(ROUND(gh_d10/10^6,1))+"Mpc]": ENDIF IF gh12=1: gh12$=smb$+" Ophiuchus S. ["+STR$(ROUND(gh_d11/10^6,1))+"Mpc]": ENDIF IF gh12=-1:gh12$= " Ophiuchus S. ["+STR$(ROUND(gh_d11/10^6,1))+"Mpc]": ENDIF IF gh13=1: gh13$=smb$+" Leo S. ["+STR$(ROUND(gh_d12/10^6,1))+"Mpc]": ENDIF IF gh13=-1:gh13$= " Leo S. ["+STR$(ROUND(gh_d12/10^6,1))+"Mpc]": ENDIF IF gh14=1: gh14$=smb$+" Herkules S. ["+STR$(ROUND(gh_d13/10^6,1))+"Mpc]": ENDIF IF gh14=-1:gh14$= " Herkules S. ["+STR$(ROUND(gh_d13/10^6,1))+"Mpc]": ENDIF IF gh15=1: gh15$=smb$+" Shapley S. ["+STR$(ROUND(gh_d14/10^6,1))+"Mpc]": ENDIF IF gh15=-1:gh15$= " Shapley S. ["+STR$(ROUND(gh_d14/10^6,1))+"Mpc]": ENDIF IF gh08=1: gh08$=smb$+" Geschoß ["+STR$(ROUND(gh_d15/10^9,1))+"Gpc]": ENDIF IF gh08=-1:gh08$= " Geschoß ["+STR$(ROUND(gh_d15/10^6,1))+"Mpc]": ENDIF !! IF gh__=1:gh__$=smb$+" ___ [Mpc]":ENDIF IF gh__=-1: gh__$=" ___ [Mpc]":ENDIF !! gh99$=smq$+" Projektion an/aus" !gh100$=smq$+" Vergrößerung: "+INT$(vgr_gh)+" ×"
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 40 IF t06gh=1: gh30$=smb$+" Text": ENDIF IF t06gh=-1:gh30$= " Text aus":ENDIF RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ghreset: IF gh99=1 gh01=-1 gh02=-1 gh03=-1 gh04=-1 gh05=-1 gh06=-1 gh07=-1 gh08=-1 gh09=-1 gh10=-1 gh11=-1 gh12=-1 gh13=-1 gh14=-1 gh15=-1 ELSE gh01=1 gh02=1 gh03=1 gh04=1 gh05=1 gh06=1 gh07=1 gh08=1 gh09=1 gh10=1 gh11=1 gh12=1 gh13=1 gh14=1 gh15=1 ENDIF RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! % Dialog Quasare dialog9prm: gq00=1 gq01=-1 gq02=-1 gq03=-1 gq04=-1 gq05=-1 gq06=-1 gq07=-1 gq08=-1 gq09=-1 gq10=-1 gq11=-1 gq12=-1 gq13=-1 gq14=-1 gq15=-1 gq16=-1 gq17=-1 gq18=-1 gq19=-1 gq20=-1 gq99=-1 gq101=1 %%% t06gq=1 !! gq__=-1 !! RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dialog9: GOSUB menu9 std9: ARRAY.LOAD sel9$[],gq00$,gq01$,gq13$,gq03$,gq14$,gq04$,gq20$,gq15$,gq05$,gq06$,gq16$,gq07$,gq09$ ,gq08$,gq17$,gq18$,gq19$,gq02$,gq99$,gq100$,gq101$,gq30$,"Ok"
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 41 DIALOG.SELECT sel9,sel9$[],"Quasare: Darstellung/Projektion:" IF sel9=1: gq00=gq00*-1:IF gq00=-1 THEN RETURN:ENDIF IF sel9=2: gq01=gq01*-1:ENDIF IF sel9=3: gq13=gq13*-1:ENDIF IF sel9=4: gq03=gq03*-1:ENDIF IF sel9=5: gq14=gq14*-1:ENDIF IF sel9=6: gq04=gq04*-1:ENDIF IF sel9=7: gq20=gq20*-1:ENDIF IF sel9=8: gq15=gq15*-1:ENDIF IF sel9=9: gq05=gq05*-1:ENDIF IF sel9=10:gq06=gq06*-1:ENDIF IF sel9=11:gq16=gq16*-1:ENDIF IF sel9=12:gq07=gq07*-1:ENDIF IF sel9=13:gq09=gq09*-1:ENDIF IF sel9=14:gq08=gq08*-1:ENDIF IF sel9=15:gq17=gq17*-1:ENDIF IF sel9=16:gq18=gq18*-1:ENDIF IF sel9=17:gq19=gq19*-1:ENDIF IF sel9=18:gq02=gq02*-1:ENDIF !! IF sel9=_:gq__=gq__*-1:ENDIF !! IF sel9=19:GOSUB gqreset: gq99=gq99*-1:ENDIF IF sel9=20 GOSUB dlgvgr vgr_gq=_vgr:vgr=vgr_gq ENDIF IF sel9=21:gq101=gq101*-1:ENDIF IF sel9=22:t06gq=t06gq*-1:ENDIF IF sel9=23:RETURN:ENDIF GOSUB menu9 GOTO std9 RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% menu9: IF gq00=1: gq00$=smb$+" Ebene an": ENDIF IF gq00=-1:gq00$= " Ebene aus": ENDIF IF gq01=1: gq01$=smb$+" UGC 8085 ["+STR$(ROUND(gq_d01/10^6,1))+"Mpc]": ENDIF IF gq01=-1:gq01$= " UGC 8085 ["+STR$(ROUND(gq_d01/10^6,1))+"Mpc]": ENDIF IF gq13=1: gq13$=smb$+" J1430+1339 ["+STR$(ROUND(gq_d02/10^6,1))+"Mpc]": ENDIF IF gq13=-1:gq13$= " J1430+1339 ["+STR$(ROUND(gq_d02/10^6,1))+"Mpc]": ENDIF IF gq03=1: gq03$=smb$+" 3C 273 ["+STR$(ROUND(gq_d03/10^6,1))+"Mpc]": ENDIF IF gq03=-1:gq03$= " 3C 273 ["+STR$(ROUND(gq_d03/10^6,1))+"Mpc]": ENDIF IF gq14=1: gq14$=smb$+" CID-42 ["+STR$(ROUND(gq_d04/10^9,1))+"Gpc]": ENDIF IF gq14=-1:gq14$= " CID-42 ["+STR$(ROUND(gq_d04/10^9,1))+"Gpc]": ENDIF IF gq04=1: gq04$=smb$+" 3C 48 ["+STR$(ROUND(gq_d05/10^9,1))+"Gpc]": ENDIF IF gq04=-1:gq04$= " 3C 48 ["+STR$(ROUND(gq_d05/10^9,1))+"Gpc]": ENDIF IF gq20=1: gq20$=smb$+" 3C 47 ["+STR$(ROUND(gq_d06/10^9,1))+"Gpc]": ENDIF IF gq20=-1:gq20$= " 3C 47 ["+STR$(ROUND(gq_d06/10^9,1))+"Gpc]": ENDIF IF gq15=1: gq15$=smb$+" 3C 279 ["+STR$(ROUND(gq_d07/10^9,1))+"Gpc]": ENDIF IF gq15=-1:gq15$= " 3C 279 ["+STR$(ROUND(gq_d07/10^9,1))+"Gpc]": ENDIF IF gq05=1: gq05$=smb$+" 3C 147 ["+STR$(ROUND(gq_d08/10^9,1))+"Gpc]": ENDIF IF gq05=-1:gq05$= " 3C 147 ["+STR$(ROUND(gq_d08/10^9,1))+"Gpc]": ENDIF IF gq06=1: gq06$=smb$+" CTA-102 ["+STR$(ROUND(gq_d09/10^9,1))+"Gpc]": ENDIF IF gq06=-1:gq06$= " CTA-102 ["+STR$(ROUND(gq_d09/10^9,1))+"Gpc]": ENDIF IF gq16=1: gq16$=smb$+" Einstein Cross ["+STR$(ROUND(gq_d10/10^9,1))+"Gpc]":ENDIF IF gq16=-1:gq16$= " Einstein Cross ["+STR$(ROUND(gq_d10/10^9,1))+"Gpc]":ENDIF IF gq07=1: gq07$=smb$+" QSO 0957+561 ["+STR$(ROUND(gq_d11/10^9,1))+"Gpc]": ENDIF IF gq07=-1:gq07$= " QSO 0957+561 ["+STR$(ROUND(gq_d11/10^9,1))+"Gpc]": ENDIF IF gq09=1: gq09$=smb$+" Huge-LQG ["+STR$(ROUND(gq_d12/10^9,1))+"Gpc]": ENDIF IF gq09=-1:gq09$= " Huge-LQG ["+STR$(ROUND(gq_d12/10^9,1))+"Gpc]": ENDIF IF gq08=1: gq08$=smb$+" 3C 9 ["+STR$(ROUND(gq_d13/10^9,1))+"Gpc]": ENDIF IF gq08=-1:gq08$= " 3C 9 ["+STR$(ROUND(gq_d13/10^9,1))+"Gpc]": ENDIF IF gq17=1: gq17$=smb$+" TON 618 ["+STR$(ROUND(gq_d14/10^9,1))+"Gpc]": ENDIF IF gq17=-1:gq17$= " TON 618 ["+STR$(ROUND(gq_d14/10^9,1))+"Gpc]": ENDIF IF gq18=1: gq18$=smb$+" H1413+117 ["+STR$(ROUND(gq_d15/10^9,1))+"Gpc]": ENDIF IF gq18=-1:gq18$= " H1413+117 ["+STR$(ROUND(gq_d15/10^9,1))+"Gpc]": ENDIF IF gq19=1: gq19$=smb$+" APM 08279+5255 ["+STR$(ROUND(gq_d16/10^9,1))+"Gpc]":ENDIF IF gq19=-1:gq19$= " APM 08279+5255 ["+STR$(ROUND(gq_d16/10^9,1))+"Gpc]":ENDIF IF gq02=1: gq02$=smb$+" QSO J0313-1806 ["+STR$(ROUND(gq_d17/10^9,1))+"Gpc]":ENDIF IF gq02=-1:gq02$= " QSO J0313-1806 ["+STR$(ROUND(gq_d17/10^9,1))+"Gpc]":ENDIF !! IF gq__=1:gq__$=smb$+" __ [__pc]":ENDIF IF gq__=-1: gq__$=" __ [__pc]":ENDIF !! gq99$=smq$+" Projektion an/aus" gq100$=smq$+" Vergrößerung: "+INT$(vgr_gq)+" ×"
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 48 DIALOG.MESSAGE sel0$[6]+", wobei dx° = hx°+(hx'/60)+(hx''/3600):",u_dlgm$,u_msg eq1$="":eq2$="":eq3$="":eq4$="":eq5$="":eq6$="=":eq7$="":eq8$="":eq9$="" ENDIF IF sel=7 % grad in rad INPUT "Winkelgrad a°...",u_wkg,45 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% u_rad=u_wkg/180*PI() %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% u_rad$= STR$(ROUND(u_rad,14)) u_rad0$=STR$(ROUND(u_rad,5)) CLIPBOARD.PUT u_rad$ u_dlgm$="" u_dlgm$=u_dlgm$+STR$(ROUND(u_wkg,2))+"° = " u_dlgm$=u_dlgm$+u_rad$+"rad" DIALOG.MESSAGE sel0$[7]+", wobei rad = (a°/180) pi: ",u_dlgm$,u_msg eq1$="":eq2$="":eq3$="":eq4$="":eq5$="":eq6$="":eq7$="=":eq8$="":eq9$="" ENDIF IF sel=8 % V in r !CLIPBOARD.GET cpb$ INPUT "V°...",u_V,VAL(cpb$) INPUT "d...",u_d,100 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% u_Vr=u_v/180*PI() % zu rad u_r=u_d*TAN(u_Vr/2) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% CLIPBOARD.PUT STR$(u_r) u_dlgm$="V=" u_dlgm$=u_dlgm$+STR$(ROUND(u_v,4))+"° bei d=" u_dlgm$=u_dlgm$+STR$(ROUND(u_d,2))+" : r=" u_dlgm$=u_dlgm$+STR$(ROUND(u_r,4)) DIALOG.MESSAGE sel0$[8]+", wobei r = d tan(V[rad]/2): ",u_dlgm$,u_msg eq1$="":eq2$="":eq3$="":eq4$="":eq5$="":eq6$="":eq7$="":eq8$="=":eq9$="" ENDIF IF sel=9 % 10^n in Einheit !CLIPBOARD.GET cpb$ INPUT "x ...",u_xzp,VAL(cpb$) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% IF u_xzp>=10^3 THEN u_eh=u_xzp/10^3: u_eh$="k" IF u_xzp>=10^6 THEN u_eh=u_xzp/10^6: u_eh$="M" IF u_xzp>=10^9 THEN u_eh=u_xzp/10^9: u_eh$="G" IF u_xzp>=10^12 THEN u_eh=u_xzp/10^12:u_eh$="T" IF u_xzp>=10^15 THEN u_eh=u_xzp/10^15:u_eh$="P" IF u_xzp>=10^18 THEN u_eh=u_xzp/10^18:u_eh$="E" IF u_xzp>=10^21 THEN u_eh=u_xzp/10^21:u_eh$="Z" IF u_xzp>=10^24 THEN u_eh=u_xzp/10^24:u_eh$="Y" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% CLIPBOARD.PUT STR$(ROUND(u_eh,3)) u_dlgm$="" u_dlgm$=u_dlgm$+STR$(ROUND(u_xzp,4))+" = " u_dlgm$=u_dlgm$+STR$(ROUND(u_eh,1))+u_eh$ DIALOG.MESSAGE sel0$[9]+": ",u_dlgm$,u_msg eq1$="":eq2$="":eq3$="":eq4$="":eq5$="":eq6$="":eq7$="":eq8$="":eq9$="=" ENDIF IF sel=11:CLIPBOARD.GET cpb$:RETURN:ENDIF !CLIPBOARD.GET cpb$ GOTO calcst RETURN ! % Dialog Linienbreite %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% lbrte: ARRAY.LOAD selbr$[],"1 [sehr schmal]","2 [schmal]","3 [normal]","4 [breit]","5 [sehr breit]" DIALOG.SELECT skl,selbr$[],"Linienbreite:" RETURN ! % Dialog Vergrösserung %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dlgvgr: ARRAY.LOAD vgrf$[],"1 × [Maßstab]","2 ×","3 ×","4 ×","5 ×","10 ×","20 ×" DIALOG.SELECT vgrf,vgrf$[],"Vergrößerungsfaktor:" IF vgrf=1 THEN _vgr=1 IF vgrf=2 THEN _vgr=2 IF vgrf=3 THEN _vgr=3 IF vgrf=4 THEN _vgr=4 IF vgrf=5 THEN _vgr=5 IF vgrf=6 THEN _vgr=10 IF vgrf=7 THEN _vgr=20 RETURN ! % Dialog Modus %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dialog3:
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 49 r01$="Vollsimulation" r02$="Simulation" r03$="Echtzeit" r04$="Entfernung:"+aed$ r05$="i Information" ARRAY.LOAD sel3$[],r03$,r02$,r01$,r04$,r05$ DIALOG.SELECT sel3,sel3$[],"Modus:" IF sel3=1 INPUT "Zeitrafferfaktor ve[0,1]=…",vse,0.05:s07=1 vse=vse+1 IF vse<=1 THEN vse=1.001 IF vse>2 THEN vse=2 ENDIF IF sel3=2:INPUT "Beschleunigungsfaktor vsmn[-1,1]=…",vsmn,0.1 IF ABS(vsmn)>1 THEN vsmn=1 v=0.1:s07=-1:ENDIF IF sel3=3 INPUT "Minimaldistanz in AE=…",vsm_mn,0.02 IF vsm_mn<0.01 THEN vsm_mn=0.01 IF vsm_mn>100000 THEN vsm_mn=100000 INPUT "Maximaldistanz in pc=…",vsm_mx,2.5*10^8 IF vsm_mx<1 THEN vsm_mx=1 IF vsm_mx>14.25*10^9 THEN vsm_mx=14.25*10^9 INPUT "Zeitrafferfaktor vs[0,1]=…",vsm,0.05:s07=0 vsm=vsm+1 IF vsm<=1 THEN vsm=1.001 IF vsm>2 THEN vsm=2 ENDIF IF sel3=4 % in AE ARRAY.LOAD selae0$[],"Astronomische Einheit AE","Lichtjahr Lj","Parsec pc" DIALOG.SELECT selae0,selae0$[],"Anfangsentfernung,Einheit [Lj="+INT$(Lj_)+"AE|pc="+INT$(pc_)+"AE]:" IF selae0=1:INPUT "Anfangsentfernung AE0=…",aed,1 IF aed>14.25*10^9*pc_ THEN aed=14.25*10^9*pc_ ENDIF IF selae0=2:INPUT "Anfangsentfernung Lj0=…",aed,1 IF aed>14.25*3.26*10^9 THEN aed=14.25*3.26*10^9 aed=aed*Lj_:ENDIF IF selae0=3:INPUT "Anfangsentfernung pc0=…",aed,1 IF aed>14.25*10^9 THEN aed=14.25*10^9 aed=aed*pc_ ENDIF IF aed<=0 THEN aed=1 ed=(sx/2.9)/aed % Anfangsentfernungsfaktor ed GOSUB anfangsentfernung ENDIF IF sel3=5 GOSUB dialoginf:GOTO st0 ENDIF IF s07<>1 THEN ur$="" RETURN anfangsentfernung: IF aed<Lj_:aed$=FORMAT$("#####.##",aed)+" AE": ENDIF IF aed>=Lj_ Ljd=aed/Lj_ IF Ljd<=pcl_:aed$=FORMAT$("#.##",Ljd)+" Lj": ENDIF IF Ljd>pcl_ IF Ljd < pcl_*10^3 aed$= FORMAT$("###.##",Ljd/pcl_)+"pc": ENDIF IF Ljd >= pcl_*10^3 & Ljd< pcl_*10^6 aed$= FORMAT$("###.##",Ljd/(pcl_*10^3))+" kpc":ENDIF IF Ljd >= pcl_*10^6 & Ljd< pcl_*10^9 aed$= FORMAT$("###.##",Ljd/(pcl_*10^6))+" Mpc":ENDIF IF Ljd >= pcl_*10^9 aed$= FORMAT$("###.##",Ljd/(pcl_*10^9))+" Gpc":ENDIF ENDIF ENDIF RETURN ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dialoginf: GR.ORIENTATION 1 GR.SCREEN sx,sy % Bildschirmformat mx=sx/2:my=sy/2 GR.SET.STROKE 2 ARRAY.LOAD selinf$[],"i Astronomische Parameter","i Sonnensystem Parameter","i Stern Größenvergleich","i Rotationen im inneren Sonnensystem","i Rotationen im äußeren Sonnensystem","i Sonne-Mond-Erde Distanz","i Zehnerpotenzen"
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 50 DIALOG.SELECT selinf,selinf$[],"i Information:" GOSUB global IF selinf=1:INCLUDE ssr_parameter1.bas:ENDIF IF selinf=2:INCLUDE ssr_systemgr.bas :ENDIF IF selinf=3:INCLUDE ssr_sterngr.bas :ENDIF IF selinf=4:INCLUDE ssr_rotat1.bas :ENDIF IF selinf=5:INCLUDE ssr_rotat2.bas :ENDIF IF selinf=6:INCLUDE ssr_distanz.bas :ENDIF IF selinf=7:INCLUDE ssr_potenz.bas :ENDIF GR.ORIENTATION -1 GR.SCREEN sx,sy % Bildschirmformat mx=sx/2:my=sy/2 RETURN ! % Dialog Uhrzeit, Kalender %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dialogu: x01$="Ja" x02$="Nein" ARRAY.LOAD sel4$[],x01$,x02$ DIALOG.SELECT sel4,sel4$[],"Uhrzeit und Kalenderskala:" IF sel4=1:swu=1:ur$=_ur$:ENDIF IF sel4=2:swu=-1:ur$="":ENDIF RETURN ! % Dialog Kompass %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dialogk: k01$="Kompass" k02$="Position" k03$="Kompass und Position" ARRAY.LOAD sel5$[],k01$,k02$,k03$ DIALOG.SELECT sel5,sel5$[],"Kompassoptionen:" IF sel5=1:swk=1:kp$=_kp1$: ENDIF IF sel5=2:swk=-1:kp$=_kp2$:ENDIF IF sel5=3:swk=0:kp$=_kp3$: ENDIF RETURN source_: GR.TEXT.SIZE txzi/2 GR.TEXT.ALIGN 3 GR.TEXT.DRAW tx,sx,40,"IAU[2023]" GR.TEXT.ALIGN 1 GR.TEXT.SIZE txzi RETURN sourceg1: GR.TEXT.SIZE txzi/2 GR.TEXT.ALIGN 3 GR.TEXT.DRAW tx,sx,40,"NASA["+_g1_mon$+"/"+_g1_jar$+"]" GR.TEXT.ALIGN 1 GR.TEXT.SIZE txzi RETURN sourceg2: GR.TEXT.SIZE txzi/2 GR.TEXT.ALIGN 3 GR.TEXT.DRAW tx,sx,40,"CDS["+_g2_mon$+"/"+_g2_jar$+"]" GR.TEXT.ALIGN 1 GR.TEXT.SIZE txzi RETURN ! % Einstellungen Ende %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% fin::INCLUDE ssr_fin.bas:RETURN ! % ENDE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Acknowledgement This research has made use of the NASA/IPAC Extragalactic Database (NED), which is funded by the National Aeronautics and Space Administration and operated by the California Institute of Technology, http://ned.ipac.caltech.edu.
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 51 References Baan, W. A., An, T., Henkel, C., Imai, H., Kostenko, V., & Sobolev, A. (2022). H2O MegaMaser Emission in NGC 4258 Indicative of a Periodic Disc Instability. Nature Astronomy, 6(8), 976–83. https://doi.org/10.1038/s41550-022-01706-y Bok, B. J. (1971). Harlow Shapley, Cosmographer. The American Scholar, 40(3), 470–74. http://www. jstor.org/stable/41209872 Bonnell, J. T., Nemiroff, R. J., & Goldstein, J. J. (1996). The Scale of the Universe Debate in 1996. Publications of the Astronomical Society of the Pacific, 108(730), 1065–67. http://www.jstor. org/stable/40680843 Brown, N. J., Waagen, E. O., Scovil, C., Nelson, P., Oksanen, A., Solonen, J., & Price, A. (2002). Peculiar variable in Monoceros. International Astronomical Union Circular, 7785, 1. https://ui. adsabs.harvard.edu/abs/2002IAUC.7785....1B Brunthaler, A., Reid, M. J., Falcke, H., Greenhill, L. J., & Henkel, C. (2005). The Geometric Distance and Proper Motion of the Triangulum Galaxy (M33). Science, 307(5714), 1440–43. https://doi.org/ 10.1126/science.1108342 CGPM. (2022). Sur l’extension de La Liste Des Préfixes Du SI. Résolution 3 de La 27e. Paris, France: La Conférence générale des poids et mesures (CGPM). https://doi.org/10.59161/CGPM2022 RES3F Chamba, N. (2020). Historical Perspectives on the Concept of Galaxy Size. Research Notes of the AAS, 4(7), 117. https://doi.org/10.3847/2515-5172/aba9 51 de Vaucouleurs, G., de Vaucouleurs, A., Corwin, Jr., H. G., Buta, R. J., Paturel, G. & Fouque, P. (1991a). Third Reference Catalogue of Bright Galaxies. 1st ed. Vol. I. New York, NY: Springer. https://link.springer.com/book/978038797549 8 de Vaucouleurs, G., de Vaucouleurs, A., Corwin, Jr., H. G., Buta, R. J., Paturel, G. & Fouque, P. (1991b). Third Reference Catalogue of Bright Galaxies. 1st ed. Vol. II. New York, NY: Springer. https://doi.org/ 10.1007/978-1-4757-4360-9 de Vaucouleurs, G., de Vaucouleurs, A., Corwin, Jr., H. G., Buta, R. J., Paturel, G. & Fouque, P. (1991c). Third Reference Catalogue of Bright Galaxies. 1st ed. Vol. III. New York, NY: Springer. https://doi.org/ 10.1007/978-1-4757-4363-0 Dreyer, J. L. E. (1888). A New General Catalogue of Nebulae and Clusters of Stars, being the Catalogue of the late Sir John F. W. Herschel, Bart., revised, corrected, and enlarged. Memoirs of the Royal Astronomical Society, 49, 1—237. https://ui. adsabs.harvard.edu/abs/1888MmRAS..49....1D Ferguson, H. (1996). The Hubble Deep Field – field selection. Space Telescope Science Institute. Gingerich, O. (1996). The Scale of the Universe: A Curtain Raiser in Four Acts and Four Morals. Publiycations of the Astronomical Society of the Pacific, 108(730): 1068–72. http://www.jstor. org/stable/40680844 Herschel, W. (1786). Catalogue of One Thousand New Nebulae and Clusters of Stars. Philosophical Transactions of the Royal Society of London, 76, 457—99. https://doi.org/10.1098%2Frstl.1786. 0027 Hills, J. G. (1981). Comet showers and the steady-state infall of comets from the Oort Cloud. Astronomical Journal, 86, 1730—40. https://doi.org/ 10.1086%2F113058 Hubble, E. P. (1925). Cepheids in spiral nebulae. The Obseryvatory, 48(May), 139–42. https://ui.adsabs. harvard.edu/abs/1925Obs....48..139H Hubble, E. P. (1929). A Relation Between Distance and Radial Velocity Among Extra-Galactic Nebulae. Proceedings of the National Academy of Sciences, 15(3): 168–73. https://doi.org/10.1073/ pnas.15.3.168 Ibata, R. A., Gilmore, G., & Irwin, M. J. (1994). A dwarf satellite galaxy in Sagittarius. Nature, 370, 194— 96. https://doi.org/10.1038%2F370194a0 Israel, G. L., Belfiore, A., Stella, L., Esposito, P., Casella, P., De Luca, A., Marelli M., Papitto, A., Perri, M., Puccetti, S., Castillo, G., Salvetti, D., Tiengo, A., Zampieri, L., D’Agostino, D., Greiner, J., Haberl, F., Novara, G., Salvaterra, R., Turolla, R., Watson, M., Wilms, J., & Wolter, A. (2017). An Accreting Pulsar with Extreme Properties Drives an Ultraluminous x-Ray Source in NGC 5907. Science, 355(6327), 817–19. https://doi.org/ 10.1126/science.aai8635 Jang, I. S., Hoyt, T. J., Beaton, R. L., Freedman, W. L., Madore, B. F., Lee, M. G., Neeley, J. R., Monson, A. J., Rich, J. A., & Seibert, M. (2021). The Carnegie–Chicago Hubble Program. IX. Calibration of the Tip of the Red Giant Branch Method in the Megamaser Host Galaxy, NGC 4258 (M106). The Astrophysical Journal, 906(2), 125. https://doi.org/10.3847/1538-4357/abc8e9 Karachentsev, I. D., Makarova, L. N., Brent T. R., Anand, G. S., Rizzi, L., Shaya, E. J., & Afanasiev, V. L. (2020). KKH 22, the First Dwarf Spheroidal Satellite of IC 342. Astronomy & Astrophysics (A&A), 638, A111. https://doi.org/10.1051/0004-6361/202 037993 Marché, J. D., & Lindner, R. P. (2007). Curtis, Heber Doust. In The Biographical Encyclopedia of Astronomers, edited by T. Hockey, V. Trimble, T. R. Williams, K. Bracher, R. A. Jarrell, J. D. Marché, F. J. Ragep, J. Palmeri, and M. Bolt, 264–66. New York, NY: Springer New York. https://doi.org/ 10.1007/978-0-387-30400-7_320 Messier, C. (1784). Cataloque des nébuleuses et amas d'étoiles, La Connaissance des temps, ou connaissance des mouvements célestes, pour l'année bissextile 1784. Paris, Imprimerie royale, 1781, p. 227—267. http://www.mes sier-objects.com Miyoshi, M., Moran, J., Herrnstein, J., Greenhill, L., Nakai, N., Diamond, P., & Inoue, M. (1995). Evidence for a Black Hole from High Rotation Velocities in a Sub-Parsec Region of NGC4258. Nature, 373(6510), 127–29. https://doi.org/10.1038/ 373127a0 Miles, R. (2006). A light history of photometry: from Hipparchus to the Hubble Space Telescope. Journal of the British Astronomical Association, 117(4), 172—86. https://ui.adsabs.har vard.edu/abs/2007JBAA..117..172M Milone, E. F. (2011). Astronomical Photometry: Past, Present and Future. New York: Springer. https:// books.google.com/books/about/Astronomical _Photometry.html?id=Ps_6zjUCR3wC Moore, P., & Pepin, M. B. (1995). Beyond Messier: The Caldwell Catalogue. Sky and Telescope Vol. 90, Cambridge, MA. http://www.messier.seds.org/ xtra/similar/caldwell.html
Schrausser, D. G. (2025). SSR: Solar System Simulator. https://doi.org/10.5281/zenodo.10338851 52 Mullaney, J. (1976). Letter to Sky & Telescope. Sky & Telescope, 235, Cambridge, MA. https://web.archi ve.org/web/20071001004725 NIST. (2024). Metric (SI) Prefixes. Gaithersburg, Maryland, U.S.: National Institute of Standards; Technology (NIST). https://www.nist.gov/pml/owm/ metric-si-prefixes Ochsenbein, F., Bauer, P., & Marcout, J. (2000). The VizieR database of astronomical catalogues. Astronomy and Astrophysics Supplement Series, 143, 23—32. https://doi.org/10.1051/aas:2000169 Oort, J. H. (1950). The Structure of the Cloud of Comets Surrounding the Solar System and a Hypothesis Concerning its Origin. Bulletin of the Astronomical Institutes of the Netherlands, 11, 91— 110. https://ui.adsabs.harvard.edu/abs/1950B AN....11...91O/abstract Paturel, G., Fouque, P., Bottinelli, L., & Gouguenheim, L. (1989). An Extragalactic Database. I. The Catalogue of Principal Galaxies. Astronomy and Astrophysics, Suppl. Ser., 80(November), 299– 315. https://ui.adsabs.harvard.edu/abs/1989A &AS...80..299P Peruzzi, G., & Realdi, M. (2011). The Quest for the Size of the Universe in Early Relativistic Cosmology (1917-1930). Archive for History of Exact Sciences, 65(6), 659–89. http://www.jstor.org/ stable/41287712 Sandage, A., Sandage, M., & Kristian, J. (1975). Nearby Groups of Galaxies. Galaxies and the Universe. https://ned.ipac.caltech.edu/level5/Dev2/fram es.html Schrausser, D. G. (2025). HP_Prime_MATH: Manual. 1st ed. Zenodo. https://doi.org/10.5281/zenodo.1571 3317 Shapley, H., & Curtis, H. D. (1921). The scale of the universe. Washington, D.C.: National research council of the National academy of sciences. https:// archive.org/details/scaleofuniverse00shap Smith, H. A., & Trimble, V. (2007). Shapley, Harlow. In The Biographical Encyclopedia of Astronomers, edited by T. Hockey, V. Trimble, Thomas R. Willliams, K. Bracher, R. A. Jarrell, J. D. Marché, F. J. Ragep, J. Palmeri, and M. Bolt, 1048–51. New York, NY: Springer New York. https://doi.org/ 10.1007/978-0-387-30400-7_1266 Sokol, J. (2017). HUBBLE TROUBLE. Science, 355(6329), 1010–15. https://www.jstor.org/stable/249184 74 Strasbourg astronomical Data Center. (2023). SIMBAD, Set of Identifications, Measurements and Biblioygraphy for Astronomical Data. CDS. STRASBOURG, France. http://cdsweb.u-strasbg.fr/ Simbad.html Trimble, V. (1995). The 1920 Shapley-Curtis Discussion: Background, Issues, and Aftermath. Publications of the Astronomical Society of the Pacific, 107(718), 1133–44. http://www.jstor.org/stab le/40680661 Tully, R. B., Courtois, H., Hoffman, Y., & Pomarède, D. (2014). The Laniakea supercluster of galaxies. Nature, 513, 71—3. https://doi.org/10.1038/ nature13674 Wang, F., et al. (2021). A Luminous Quasar at Redshift 7.642. The Astrophysical Journal, 907(1), L1. https://doi.org/10.3847%2F2041-8213%2Fabd 8c6 Wikipedia contributors. (2025). Wikipedia, The Free Encyclopedia. Retrieved May 2023 from https:// www.wikipedia.org Williams, D. R. (2025). Planetary Fact Sheet. NASA Goddard Space Flight Center. https://nssdc.gsfc. nasa.gov/planetary/factsheet/ Zwicky, F. (1933). Die Rotverschiebung von extragalaktischen Nebeln. Helvetica Physica Acta, 6(January), 110–27. https://ui.adsabs.harvard.edu/ abs/1933AcHPh...6..110Z Zwicky, F., Herzog, E., & Wild, P. (1961). Catalogue of Galaxies and of Clusters of Galaxies. 1st ed. Pasadena: California Institute of Technology. https://authors.library.caltech.edu/records/5m zw0-jg109