终于得知了你离开的消息。
你再不能在川流不息的马路上昂首挺胸地奔跑,
把我的长发甩在身后;
也再不能偶尔和我淘气,
坏在半路害得我要和搭档赔一千个不是。
你在屋檐下静悄悄地倚靠了四个月,
我以为你只是睡去了,
也许哪天王子的吻能让你醒来,
却不知道你的引擎,
早已经受不住我的暴走,
心脏失去了压力,
已无力把茶色的血液送到指尖。
你就这样、静静地永远地沉睡,
你橙色的小眼睛,失去了光芒,
你黑色的肌肤,已落满了尘埃。
每天我经过你的身畔,
一次又一次地感到深深的哀伤,
你为何如此残忍地离开,
留下还有一年未用的保险……
乗鞍岳
重上神乐峰
上周末第一次去神乐峰滑野雪,结果路线选择得不好,没有滑爽,决定这周六再去一次。
一大早,遇到一个大问题:睡过头了!本来我们应该坐上4:46的电车,结果4:53才睁开眼……在A)继续睡,B)晚一个半小时抵达,中挣扎片刻,好天难得,选择了B。这个选择太对了,今天虽然雪质不佳,但这条路线很爽!看图说话。
野雪初体验
昨天第一次去滑野雪,总算是完整地回来了,没有遇到特别的危险,也没有流落山头。但是也遇到了一些问题,主要是山上路线太不好确定了,容易偏离计划的路线,又不熟悉地形,结果下山的时候从一片陡坡树林里出来,累得腿都软了。觉得我们现在最需要的装备是一台GPS,这次虽然带了蓝牙GPS和PDA,由于电池问题不能一直开着记录路线,虽然可以在需要的时候确定自己的位置,但使用起来太麻烦,也只能做一个应急时的设备。
神楽的路线很有人气,先做神楽滑雪场的缆车上到滑雪场最高点,然后向上走,有远近不同的好几条路线,难度不算很大,而且雪质很好。
我们是一大早坐电车到越後湯沢车站,换巴士到滑雪场。到达滑雪场后已经9点半了,整理行李,买了上山顶的缆车券(1个大型缆车,1个6人封闭缆车,3次小缆车),上到滑雪场山顶已经11点半了,等开始爬山,已经12点了。
路线地图。青色的是我们实际走的路线
在缆车上看地图
滑雪场山顶留念。来过神楽滑雪场这么多次,一直都没有上过山顶。从田代那边过来时,上山顶太远,从三俣这边过来两次,又都天气太差。
折腾了声道声卡两天,最后用了一个傻方法
我的实验里有一小部分,要控制3个音箱的其中一个随机发出一个声音,让实验参加者判断声音是从哪个音箱里发出来的,用按键回答。需要记录参加者回答的速度和正误。
用一台电脑控制3个音源,一开始考虑用多声道的外置声卡。但是有多个输出口的外置声卡好贵,研究费的年度预算3月初结束了,4月份新的预算还没开始,现在没法用老板的研究费买器材……咨询了一下打工的leader,他说你可以再弄一块普通声卡,和电脑里原来有的双声道加起来,不就是4声道了么。这个方法经济简单!于是我自掏腰包去秋叶原买了块最便宜的有牌子的USB声卡。
需要解决的问题有:
1,切换左右声道。
2,切换两块声卡。
第一个问题很简单,用mmSystem的API函数WaveOutSetVolume设定左右声道音量就行。但是用耳机听的时候,静音的声道还是隐约有声音,也不知道是耳机问题还是设音量只能做到这样。没找到别的方法,粗糙就粗糙点吧。
第二个问题就麻烦了,mmSystem的函数翻遍了,也没成功切换得了默认声卡。据说DirectX可以,遍寻不见,还被第三方控件(directX没有delphi版)的安装或编译错误搞得头大如斗。系统里是可以更改默认输出声卡的,就是说可以用delphi改注册表。但是改了以后播放声音的软件不重启也没用。
烦了,最后我用了一个巨傻B的方法。
1) 用cooledit做了两个单声道的wav文件。
2) 写了两个只有一行代码的程序,一个启动了就播放左声道的wav文件,另一个播放右声道。
3) 主程序里每次切换声卡就是更改一下注册表的playback的键值,然后调用那两个播放程序的某一个,然后接着关掉……-_-b
每次调用别的程序,延时明显,延就延吧……如果有人知道简单的切换声卡的方法,请告诉我……
搞定了滑野雪的全套装备
Osprey Switch 36 咖啡色M 16,800 日元
MSR Lightning Ascent 25 橙色 $259.95
PIEPS DSP 2台 44,000日元/台
Black Diamond QuickDraw Guide Probe 300 2根 7350日元/根
雪锹:雪楸是用来找到被埋的人的位置后,挖雪用的。除了雪崩营救外,雪楸在冬山登山中也是很有用的东西,一组人最好准备一把,用于雪地宿营的时候平整地面和挖雪沟,或者被困时挖避难雪洞。雪楸的材料主要有铝合金和成型树脂,可以收缩或把杆子拆下来放到包里。
Black Diamond Deploy 3 7350日元
这款的把柄是弯的,便于用力,并且收起来很小,重560克左右。
Black Diamond Transfer 3 5565日元
这款的把柄较长,好挖,比上面那款重100多克,买给男人的。
切换声道 @ delphi
Wave : String;
begin
try
Wave := ‘$’ + IntToHex(0, 4) + IntTOHex(5 * 5000, 4); //左声道
MMSystem.waveOutSetVolume(0, StrTOInt(Wave));
MediaPlayer1.Play;
except
end;
end;