Telescope Control Demo

Bring in the serial scope link package.

<<"c:\\users\\sherlock\\desktop\\ScopeLink\\ScopeLink.m"

Open the scope. In this case, the mount, a Losmandy G11, is on COM8 and obeys the Meade LX200 protocol. The Celestron NexStar protocol for Synta, Sky-Watcher, and Celestron telescopes is also supported.

ScopeOpen["COM8","lx200"]

Find some object overhead right now.

Slew the scope to the Great Cluster in Hercules (M13).

ScopeSlewToRADec[AstronomicalData["M13","RightAscension"],AstronomicalData["M13","Declination"]]

Slew the scope to the Ring Nebula.

ScopeSlewToRADec[NebulaData["M57","RightAscension"],NebulaData["M57","Declination"]]

Slew the scope to Saturn.

ScopeSlewToRADec[PlanetData["Saturn","RightAscension"],PlanetData["Saturn","Declination"]]

Park the scope.

LScopePark[]

Close the link.

ScopeClose[]

m56, m57, m10, m12, m13

Telescope Control RPi Demo

Bring in the serial scope link package.

<<"ScopeLink.m"

Open the scope. In this case, the mount, a Losmandy G11, is on COM8 and obeys the Meade LX200 protocol. The Celestron NexStar protocol for Synta, Sky-Watcher, and Celestron telescopes is also supported.

Find some object overhead right now.

Utility function to move the scope.

SlewToTarget[theCoord_List]:=
Module[{},
ScopeSlewToRADec[theCoord[[1]],theCoord[[2]]];
Pause[10]
];

Do a “Sky Tour”.

ScopeOpen["/dev/ttyUSB0","lx200"]

Map[SlewToTarget,theCoords];

Take a picture.

astroImage=Import["!raspistill -t 10 -w 1024 -h 1024 -o -","JPG"]

Park the scope.

LScopePark[]

Close the link.

ScopeClose[]

m56, m57, m10, m12, m13

Telescope Control Test

Bring in the serial scope link package.

<<"c:\\users\\sherlock\\desktop\\ScopeLink\\ScopeLink.m"

Open the scope. In this case, the mount, a Losmandy G11, is on COM8 and obeys the Meade LX200 protocol. The Celestron NexStar protocol for Synta, Sky-Watcher, and Celestron telescopes is also supported.

ScopeOpen["COM8","lx200"]

Slew the scope to the Triangulum Galaxy.

ScopeSlewToRADec[GalaxyData["M33","RightAscension"],GalaxyData["M33","Declination"]]

Slew the scope to the Andromeda Galaxy.

ScopeSlewToRADec[GalaxyData["M32","RightAscension"],GalaxyData["M32","Declination"]]

Slew the scope to the Crab Nebula.

ScopeSlewToRADec[NebulaData["M1","RightAscension"],NebulaData["M1","Declination"]]

Park the scope.

LScopePark[]

Close the link.

ScopeClose[]

PlanetData["Saturn","RightAscension"