- inspired by free style
- あの七色ボタンをWindowsアプリで
- JavaScript (Windows アプリ)
- できるのかな
- 7つのボタン
eval$s=%w' | |
b="BAhsKwHjAAAA/A8AAAA | |
AAAAA+ P//AQAAAAAAwO/ /9wMAA | |
AAAAPwDA PwHAAAAAM | |
AN/ D/ gAwAAAADc+P/ /oQMA | |
AAC Aw 4///4MBAAAAIHz4/+/DAAA A AIw | |
H// /38QMA AADxwP//8/gDAABAPPj // | |
z yCAQA AEAf8/z+PwAAAAMQD /v/H4 yM | |
AA ADxA f9/eNgZAADA8AD+Bw9i BgAAM PgBAPj | |
B kAEA AAzwD/CPMGQAAACC4f8/ HIQZ AACAAQc |
eval$s=%w'b="BAhs | |
KwKKAQAAAAD//wEAAAAAAAD4/ | |
/8PAAAAAAAA////fwAAAAAAwP////8A | |
AAAAAOD/////AwAAAAD4/////wcAAAAA/P | |
////8PAAAAAP7/////DwAAAAD//////x8AAAC | |
A//////8/AAAAwP//////PwAAAMD/////v/8AAAD | |
g/////3//AQAA4P///////gEAAPC//////v4DAADw/ | |
//////9AwAAuN/////9/QcAANjv////+/sHAAD47/// | |
//f7DwAA7Pf///Pv/w8AAPz3///z7/cPAAD0////8///D | |
wAA+Pv//+HP7x8AAPj7///hx+8fAAD+////wWPvHwAA/P3/ |
Dim wmp | |
Set wmp = CreateObject("WMPlayer.OCX") | |
wmp.cdromcollection.item(0).eject() | |
WScript.Quit(eLevel) |
#!/bin/sh | |
# for centos 6.5 | |
echo 'CapsLock to Control for jp106' | |
if [ $UID -ne 0 ] | |
then | |
echo "require root privilege" | |
exit 1 | |
fi |
#!/bin/bash | |
# rbenv installation for debian | |
echo 'start install rbenv...' | |
# install git | |
case `type git 2>&1` in | |
*"not found"*) | |
sudo apt-get -y install git-core | |
;; |
# mikutter account select | |
# mikutter config dir | |
mikudir="$HOME/mikutter-conf" | |
# get account entries | |
account=(`ls -l $mikudir | awk '$1 - /d/ {print $9}'`) | |
num=0 | |
# print account data |
#!/bin/sh | |
if [ ${EUID:-${UID}} != 0 ]; then | |
echo 'Need root privilege.' | |
exit 0 | |
fi | |
ISAI=$(dmesg | tail | grep "renamed from usb0" | awk '{print $5}' | sed -e 's/:$//') | |
ip l set dev $ISAI up | |
dhcpcd $ISAI |
# Usage: | |
# ./bm-image-register.sh [NAME] | |
# [NAME] -> except extension | |
# ex) ubuntu-image.(vmlinuz|initrd|qcow2) -> ubuntu-image | |
NAME=$1 | |
BMKERNEL=$(glance image-create --name $NAME --public --disk-format aki < $NAME.vmlinuz | awk '/id/ {print $4}') | |
BMRAMDISK=$(glance image-create --name $NAME --public --disk-format ari < $NAME.initrd | awk '/id/ {print $4}') | |
glance image-create --name $NAME --public --disk-format qcow2 --container-format bare --property kernel_id=$BMKERNEL --property ramdisk_id=$BMRAMDISK < $NAME.qcow2 |
require 'rmagick' | |
#include Magick | |
white = Magick::Pixel.new(255*256,255*256,255*256) | |
img1 = Magick::Image.read('sample6.jpg').first | |
img1.each_pixel {|pixel,x,y| | |
if pixel.to_color != "red" then | |
img1.pixel_color(x,y,white) |