Tilting Google Maps and MissileLauncher
0 likes2,823 views
This document discusses integrating Google Maps with tilt input from a laptop. It provides code examples in C++, Ruby and Perl for reading tilt sensor data on Windows. It also shows how to combine Google Maps JavaScript API with Perl code to update the map based on tilt input detected by Perl.
![傾斜 Google 地圖 ＆ 火箭発射器 宮川達彦 [email_address] Six Apart, Ltd. / 渋谷 Perl 推廣組 osdc.tw 台北 2007/04/15](https://image.slidesharecdn.com/tilting-google-maps-and-missilelauncher-28463/85/Tilting-Google-Maps-and-MissileLauncher-1-320.jpg)
![Ruby device = Device.new ' ＼＼＼＼ . ＼＼ ShockMgr' device.open values = device.io(command, result_size).unpack("x4s*") cx = values[3] cy = values[2]](https://image.slidesharecdn.com/tilting-google-maps-and-missilelauncher-28463/85/Tilting-Google-Maps-and-MissileLauncher-11-320.jpg)
![Perl 移植 use Win32API::File; my $file = createFile("//./ShockMgr", "r ke") or die "Can't get ShockMgr device"; DeviceIoControl($file, 0x733fc, [], 0, my($buf), 0x24, my($bytes), []); my @data = unpack "x4s*", $buf;](https://image.slidesharecdn.com/tilting-google-maps-and-missilelauncher-28463/85/Tilting-Google-Maps-and-MissileLauncher-12-320.jpg)
![tilt-missile.pl (1/3) use Time::HiRes qw(sleep); use Win32::API; use Win32API::File qw(:ALL); use Win32::OLE; sub get_pos { my $file = createFile("//./ShockMgr", "r ke") or die "Can't get ShockMgr device"; DeviceIoControl($file, 0x733fc, [], 0, my($buf), 0x24, my($bytes), []); my @data = unpack "x4s*", $buf; return @data; }](https://image.slidesharecdn.com/tilting-google-maps-and-missilelauncher-28463/85/Tilting-Google-Maps-and-MissileLauncher-13-320.jpg)
![tilt-missile.pl (2/3) my @pos = get_pos; my($base_x, $base_y) = @pos[3, 2]; while (my @pos = get_pos) { my $ax = ($pos[1] - $base_x) / 30; my $ay = ($pos[0] - $base_y) / 30; my $command = detect_command($ax, $ay); system("ctlmissile $command") if $command; }](https://image.slidesharecdn.com/tilting-google-maps-and-missilelauncher-28463/85/Tilting-Google-Maps-and-MissileLauncher-14-320.jpg)
![gmaps.html (2/2) <script language="PerlScript" > use Win32API::File qw(:ALL); sub get_pos { my $base = shift; my $file = createFile("//./ShockMgr", "r ke") or die "Can't get ShockMgr device"; DeviceIoControl($file, 0x733fc, [], 0, my($buf), 0x24, my($bytes), []); my @data = unpack "x4s*", $buf; return join ",", ($base ? @data[3, 2] : @data[1, 0]); } </script>](https://image.slidesharecdn.com/tilting-google-maps-and-missilelauncher-28463/85/Tilting-Google-Maps-and-MissileLauncher-22-320.jpg)
Tilting Google Maps and MissileLauncher
- 1. 傾斜 Google 地圖 ＆ 火箭発射器 宮川達彦 [email_address] Six Apart, Ltd. / 渋谷 Perl 推廣組 osdc.tw 台北 2007/04/15
- 3. USB MissileLaunchers by Yappo
- 4. Now mashing up With ThinkPad Tilt!
- 5. ( 公開表演 ) Live Demo
- 6. 極好 ! sugoi!
- 7. 如何實現 How can you do that?
- 9. 發現了 2 個範例 Found 2 examples: C++ / Ruby
- 10. C++ if( !DeviceIoControl( hFile, 0x733fc, NULL, 0, // via IOCTL(0x733fc) (void *)&AccelerometerData, 0x24, &ulRead, NULL)) throw "Failed to DeviceIoControl"; X = AccelerometerData.x0 + OffsetX; Y = AccelerometerData.y0 + OffsetY;
- 11. Ruby device = Device.new ' ＼＼＼＼ . ＼＼ ShockMgr' device.open values = device.io(command, result_size).unpack("x4s*") cx = values[3] cy = values[2]
- 12. Perl 移植 use Win32API::File; my $file = createFile("//./ShockMgr", "r ke") or die "Can't get ShockMgr device"; DeviceIoControl($file, 0x733fc, [], 0, my($buf), 0x24, my($bytes), []); my @data = unpack "x4s*", $buf;
- 13. tilt-missile.pl (1/3) use Time::HiRes qw(sleep); use Win32::API; use Win32API::File qw(:ALL); use Win32::OLE; sub get_pos { my $file = createFile("//./ShockMgr", "r ke") or die "Can't get ShockMgr device"; DeviceIoControl($file, 0x733fc, [], 0, my($buf), 0x24, my($bytes), []); my @data = unpack "x4s*", $buf; return @data; }
- 14. tilt-missile.pl (2/3) my @pos = get_pos; my($base_x, $base_y) = @pos[3, 2]; while (my @pos = get_pos) { my $ax = ($pos[1] - $base_x) / 30; my $ay = ($pos[0] - $base_y) / 30; my $command = detect_command($ax, $ay); system("ctlmissile $command") if $command; }
- 15. tilt-missile.pl (3/3) sub detect_command { my($ax, $ay) = @_; if (abs($ax) >= 180 || abs($ay) >= 180) { return "fire"; } elsif ($ax >= 80) { return "right"; } … }
- 16. (Google 地圖実演 )
- 17. 整合 Google 地圖
- 18. 困難原因 : Google 地圖 API = JavaScript
- 19. JavaScript <-> Win32 Perl 能成功嗎？
- 20. Active X ™
- 21. gmaps.html (1/2) <script language="JavaScript" > function load() { if (GBrowserIsCompatible()) { map = new GMap2(document.getElementById("map")); map.addControl(new GLargeMapControl()); map.addControl(new GMapTypeControl()); if (debug) document.getElementById('log').style.visibility = 'visible'; GEvent.addListener(map, "dragstart", function() { dragging = 1 }); GEvent.addListener(map, "dragend", function() { var center = map.getCenter(); x = center.x; y = center.y; dragging = 0; }); … map.setCenter(new GLatLng(y, x), 14); base = get_pos(1). split(/,/); </script>
- 22. gmaps.html (2/2) <script language="PerlScript" > use Win32API::File qw(:ALL); sub get_pos { my $base = shift; my $file = createFile("//./ShockMgr", "r ke") or die "Can't get ShockMgr device"; DeviceIoControl($file, 0x733fc, [], 0, my($buf), 0x24, my($bytes), []); my @data = unpack "x4s*", $buf; return join ",", ($base ? @data[3, 2] : @data[1, 0]); } </script>
- 23. http://svn.bulknews.net/repos/public/gmaps-thinkpad/ Or google "google maps thinkpad" MacBook + Safari: http://blog.yappo.jp/yappo/archives/000441.html
- 24. Thanks to: Yappo (for his LT) Takesako-san (for win32 binary) Gugod (for his missile) clkao (for his idea)
- 25. 謝謝