Skip to content

Instantly share code, notes, and snippets.

@nappa7878
nappa7878 / ar_sample04.pde
Created February 3, 2016 07:02
ARサンプル4
/*****************************************
* AR勉強会 サンプル4
*
* Processing2.2.1 with nyar4psg 2.1.0
*
* Hiroyuki Nakano
* 2015.2.3
*****************************************/
import processing.video.*;
@nappa7878
nappa7878 / ar_sample03.pde
Created February 3, 2016 07:02
ARサンプル3
/*****************************************
* AR勉強会 サンプル3
*
* Processing2.2.1 with nyar4psg 2.1.0
*
* Hiroyuki Nakano
* 2015.2.3
*****************************************/
import processing.video.*;
@nappa7878
nappa7878 / ar_sample02.pde
Created February 3, 2016 07:01
ARサンプル2
/*****************************************
* AR勉強会 サンプル2
*
* Processing2.2.1 with nyar4psg 2.1.0
*
* Hiroyuki Nakano
* 2015.2.3
*****************************************/
import processing.video.*;
@nappa7878
nappa7878 / ar_sample01.pde
Last active February 3, 2016 07:15
ARサンプル1
/*****************************************
* AR勉強会 サンプル1
*
* Processing2.2.1 with nyar4psg 2.1.0
*
* Hiroyuki Nakano
* 2015.2.3
*****************************************/
import processing.video.*;
@nappa7878
nappa7878 / ProgressBar.bas
Last active May 26, 2021 23:27
PowerPointのスライドにプログレスバーを付加するマクロ
Sub MakeProgressBar()
Const r As String = "00" '色・RGB値のR
Const g As String = "99" '色・RGB値のG
Const b As String = "00" '色・RGB値のB
Const pbH As Long = 10 '高さ
Const pbBG As Single = 0.6 '背景の透過性
Dim i As Long
Dim s As Shape
@nappa7878
nappa7878 / narabikae.js
Created November 4, 2013 06:02
配列データの並び替え
function narabikae(){
//配列
var number = [500,4000,30,20000];
for (var i=0;i<number.length;i++) {
//配列をソート
number.sort(
function(a,b){
if( a < b ) return -1;
function onoffSelect_focus(obj){
var userAgent = window.navigator.userAgent.toLowerCase();
if(userAgent.indexOf("msie") > -1) {
obj.focus();
obj.select();
}else if(userAgent.indexOf("firefox") > -1) {
obj.focus();
obj.select();
}else if(userAgent.indexOf("opera") > -1) {
<textarea onfocus="onoffSelect_focus(this);" onclick="onoffSelect_click(this);"></textarea>
@nappa7878
nappa7878 / Q9999.pde
Created February 3, 2013 06:54
10000までの数
/*****************************************
* 10000までの数(iPad用)
*
* Hiroyuki Nakano
* 2013.2.3
*****************************************/
//フォントの設定
PFont font=createFont("FFScala", 32);
PFont font1=createFont("MS Gothic", 32);
@nappa7878
nappa7878 / multiBrowser.bat
Created February 3, 2013 06:20
1つのURLを複数ブラウザで開くためのバッチファイル
set /P URL=URLを入力してください:
start "" "C:\Program Files\Internet Explorer\iexplore.exe " %URL%
start "" "C:\Program Files\Mozilla Firefox\firefox.exe " %URL%
start "" "C:\Program Files\Safari\Safari.exe " %URL%
start "" "C:\Program Files\Google\Chrome\Application\chrome.exe " %URL%