Advertisement
Guest User

Untitled

a guest
Mar 28th, 2017
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.08 KB | None | 0 0
  1. # a szerver elérhetősége
  2. host := 192.168.1.106
  3. port := 7264
  4. #home := /mentes/csillag/Canon/
  5. home := /mentes/Canon/
  6.  
  7.  
  8. #az aktuális nap lekérdezése a könyvtárnévhez
  9. gettime time
  10.  
  11. home := ($home)($time.YEAR)($time.MONTH)($time.DAY)
  12.  
  13. # a home könyvtár létrehozása, ha nem létezik
  14. exec mode; FALSE
  15. exec mkdir -p $home
  16. exec mode; TRUE
  17.  
  18. println Home könyvtár beállítása: $home
  19. sethome $home
  20.  
  21. # az eszközök neveinek lekérdezése
  22. getdevices $host; $port; devices
  23.  
  24. if $devices.size = 0 then
  25. println Egy eszköz sincs beállítva a szerverbe
  26. return
  27. endif
  28.  
  29. to := $devices.size - 1
  30.  
  31. for i := 0 to $to
  32.  
  33. println .$devices[$i]...
  34.  
  35. if $devices[$i] = CCD Simulator || $devices[$i] = GPhoto CCD then
  36.  
  37. println CCD beállítása: $devices[$i]
  38. ccd.set $host; $port; $devices[$i]
  39. ccd.connect
  40.  
  41. if $devices[$i] = GPhoto CCD then
  42.  
  43. # a fájlformátum átállítása CR2-re
  44. ccd.setprop Transfer Format; Native
  45.  
  46. endif
  47.  
  48. elseif $devices[$i] = Telescope Simulator || $devices[$i] = SynScan || $devices[$i] = EQMod Mount || $devices[$i] = LX200 Classic then
  49.  
  50. println Mechanika beállítása: $devices[$i]
  51. mount.set $host; $port; $devices[$i]
  52. mount.connect
  53.  
  54.  
  55. if $devices[$i] = EQMod Mount || $devices[$i] = LX200 Classic then
  56.  
  57. hotkey CTRL+UP; mount.north
  58. hotkey CTRL+DOWN; mount.south
  59. hotkey CTRL+RIGHT; mount.east
  60. hotkey CTRL+LEFT; mount.west
  61. hotkey CTRL+U; mount.slew_up
  62. hotkey CTRL+D; mount.slew_down
  63.  
  64. endif
  65.  
  66. if $devices[$i] = EQMod Mount then
  67.  
  68. # az óragép bekapcsolása
  69. mount.setprop TELESCOPE_TRACK_RATE; TRACK_SIDEREAL
  70.  
  71. endif
  72.  
  73. else
  74. println Ismeretlen eszköz: $devices[$i]
  75. endif
  76.  
  77. next
  78.  
  79. mount.addcatalog messier.txt
  80. mount.addcatalog ngc.txt
  81. mount.addcatalog Vend_alias.txt
  82.  
  83. mount.setprop GEOGRAPHIC_COORD; LAT; +47.442;
  84. mount.setprop GEOGRAPHIC_COORD; LONG; +19.115;
  85. mount.setprop GEOGRAPHIC_COORD; ELEV; 112;
  86. mount.display GEOGRAPHIC_COORD
  87.  
  88. run.addfolder system
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement