基礎統計学の準備

投稿者: -
そろそろ4月です。また講義のシーズンがやってきます。

29年度の基礎統計学では、動画もとりいれて、RStudioの使い方を説明したいと思っています。そのため、パソコン上の画面 (ブラウザのウィンドウ)を録画しながら、マイクからの音声も録音しなければならない。最初は既存のソフトを使おうと思っていたが、やりたかったことができない。何よやりたかったのかんというと、
  1. ブラウザのサイズを1280x720に固定する
  2. ffmpeg を使って、選んだウィンドウを録画する
  3. マイクからの音声を同時に録音する。
  4. マイクの音声をヘッドフォンを使ってミニたリングする。
実は、この４つの作業は簡単にできないので、次のBASHスクリプトを作ってみました。

#!/bin/bash
# This script is used to resize and select a window for recording. 
# It will also setup the mic so that you can monitor the output 
# with headphones. I am running this on Debian Wheezy
# 2017-03-16

if [ -n "$1" ]; then
  OUTFILE="initial_$1.mkv"
  OUTFILE2="final_$1.mkv"
else
  TIME=$(date +%d-%b-%y_%H%M-%Z)
  OUTFILE="initial_recording_$TIME.mkv"
  OUTFILE2="final_recording_$TIME.mkv"
fi

FPS=30
MAX_WIDTH=1920
MAX_HEIGHT=1080
MIC_DEV='AT2020USB' # This is the name of the mic
echo "Choose the window to resize. It will resize to 1280x720"
# This command is used to choose the size of the window.
wmctrl -r :SELECT: -e 0,-1,-1,1280,720  

echo "Choose the window to record."
# This command is used to select the window to record.
INFO=$(xwininfo) 

WIN_GEOM=$(echo $INFO | grep -oEe 'geometry [0-9]+x[0-9]+' | \
  grep -oEe '[0-9]+x[0-9]+')
WIN_XY=$(echo $INFO | grep -oEe 'Corners:\s+\+[0-9]+\+[0-9]+' | \
  grep -oEe '[0-9]+\+[0-9]+' | sed -e 's/\+/,/' )

# Set up the mic monitor with pactl.
ID=$(pactl load-module module-loopback)

# Run ffmpeg twice. The first time will save the x11 output to a 
# lossless uncompressed file. The second time, it will compress 
# the file in a lossless format. 
ffmpeg -thread_queue_size 512 -f pulse -ac 2 -i default \
  -video_size $WIN_GEOM -framerate $FPS -f x11grab \
  -i :0.0+$WIN_XY -vcodec libx264 -crf 0 \
  -preset ultrafast -acodec pcm_s16le -framerate $FPS $OUTFILE -y
ffmpeg -i $OUTFILE \
  -vf scale="iw*sar*min($MAX_WIDTH/(iw*sar)\,$MAX_HEIGHT/ih):\
  ih*min($MAX_WIDTH/(iw*sar)\,$MAX_HEIGHT/ih),pad=$MAX_WIDTH:\
  $MAX_HEIGHT:(ow-iw)/2:(oh-ih)/2" -vcodec libx264 -qp 0 \
  -preset veryslow -acodec copy $OUTFILE2 -y

# wait a few seconds before unloading the loopback module.
sleep 5
pactl unload-module $ID

# Remove the initial mkv file made by the first instance of ffmpeg.
rm $OUTFILE

コメント

コメントを投稿

このブログの人気の投稿

RStudioとggplot()：プロットができないとき

投稿者: -
いま、RStudioを統計学の講義で使っています。ggplot2, plyr, とreshape2のパッケージも紹介して、多くの学生は上手に使えています。ところが、日本語入りの図をつくって、knitするとよく膨大な警告がでてきます。 それを解消するため、このコードをRmdファイルの一番目のコードブロックにいれてからknitさせています。 options(device = function(file, width = 7, height = 7, ...) {  cairo_pdf(tempfile(), width = width, height = height, ...)}) ところが、このコードを使うと、時々RStudioのプロットパネルに図が出てこないことがあります。dev.off()など使えば解消できることもあったが、しつこいケースもありました。 いろいろ調べたところ、このコードを通常に使っているときに実行し、プロットなどをしようとすると、問題が出てくることがわかった。 dev.list()をすると、RStudioGD やpng のデバイスが表示されない場合、RStudioGD()を実行すればもとおりになります！ ということで (コピーペ用)、 dev.list() # を実行します。ここで、RStudioGDの表示がなければ、つぎのコードを実行してください。 RStudioGD() #　これでもとどおりになるとおもいます。
続きを読む

光合成関連の単語

投稿者: -
昨日の講義で紹介した英語です。 ATP（adenoshin triphosphate） アデノシン三リン酸 ADP（adenosine diphosphate） アデノシン二リン酸 NADP（nicotinamide adenine dinucleotide phosphate） ニコチンアミドアデニンジヌクレオチドリン酸 NADP＋ 酸化型NADP NADPH 還元型NADP chloroplast 葉緑体 chromoplast 有色体 leucoplast 白色体 amyloplast 澱粉体 thylakoid チラコイド frequency 振動数 wavelength 波長 quantum 光量子 photosystem I 光化学系I photosystem II 光化学系II photochemical reaction 光化学反応 cytochrome b6/f シトクロムb６／f複合体 plastiquinone プラストキノン ferredoxin フェレドキシン ferredoxin NADP reductase フェレドキシンNADPレダクターゼ reaction center 反応中心 antenna pigments アンテナ色素 pheophytin フェオフィチン quinone キノン tyrosine チロシン iron-sulfur complex 鉄-硫黄複合体 ATP synthase ATP合成酵素 plastid 色素体 plastoglobule プラストブロビエール lipid globule 脂質小粒 plastidial DNA 色素体DNA Z-scheme Z機構 lumen ルーメン stroma ストロマ grana グラナ ribosome リボソーム lamella ラメラ fluorescence 蛍光 diatom 珪藻 dinoflagellate 渦鞭毛藻 green algae 緑藻 brown algae 褐藻 red algae 紅藻 chlorophyll クロロフィル carotenoid カロテノイド phycobiliprotein フィコビリンタンパク質 oxygen evolving complex 酸素発生複合体
続きを読む

大村湾調査！！　～海藻・生き物編～

投稿者: -
イメージ
引き続きM2の松尾です！ さっきのブログで紹介しきれなかった大村湾の海藻ちゃんと生き物たちを紹介させていただきます！ ちなみに同定は大雑把なのであしからず…（笑） まずは大村からです！ めっちゃ成長してるウミトラノオ。 ウミトラって大きくなると分枝してきて虎の尾っぽくなくなるんですよね。 もうわっさわっさしてました。 私の可愛い実験対象種のヨレモク。 頑張って結構成長してました。 まだまだ大きくなります。絶賛成長期！！ 藻場の隙間に沈んでたアカクラゲ。 動いてなかったのでおそらく死んだ子が流されてきたんだと思います。 このアカクラゲすごく大きくて！直径30cm程はありました。 生きていたらと思うと恐ろしい…。 アカクラゲは刺されると痛いですよ！今年もそろそろ来るんですかねえ…。 アカクラゲの横にアオウミウシ。 小さくてきれいで可愛んですがこのウミウシ、他のウミウシを食べるらしいです。 ウミウシは謎が多すぎて不思議ちゃんです。 一度捕食してるところをまじまじと観察してみたい。 カミクラゲだと思います← 大村で初めてみました。 毒はそこまで強くはないそうです。 でもなんとなくあまり触りたくはない感じですね（笑） お久しぶりなムラサキウニ！ 大村で見るのは久しぶりでした。ガンガゼはたまにいるんですけどね。 やっぱりガンガゼはかわいくないですけど、ムラサキウニはなんとなく可愛げがありますね。 棘があまり攻撃的じゃないところとか、人に棘を向けてこないとことか…。 大村はこんな感じでした！いつも行くとこなのでついつい写真も少なくなってしまいます。 記録写真の大切さ！！！（まああまりに多いと整理も大変ですが） 続いて四本堂です！ 美味しいヒジキ。 四本堂はヒジキすごく生えてます。 大村にはいなかったのですごく新鮮な感じです。 なんだかちょっとまるまるしい感じがキュートですね！ ミツデソゾがいっぱい！ 大村のミツデソゾはくすんだ色をしてたので、こんな鮮やかな色の子は初めて見たかもです！ 岩の上とかにわさわさ生えてるのが小さな森みたいになってて可愛い。 波に揺れてる様は...
続きを読む