スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Visual C++ 2010 Express 登録キー取得・起動

いろいろあってVC++2010を使うことになった。

新しい画像 (37)

今日夜、この本↓を買った。図書カードが3万円分あったのだが、残額180円になった。

ひと目でわかる Microsoft Visual C++ 2010 アプリケーション開発入門 (MSDNプログラミングシリーズ)ひと目でわかる Microsoft Visual C++ 2010 アプリケーション開発入門 (MSDNプログラミングシリーズ)
(2010/07/29)
増田 智明

スポンサーサイト

first bunny

bunny <- read.delim("bun000.ply",skip=25,header=F, sep=" ")
bunny <- bunny[,c(1,2,3)]
bunny <- bunny[bunny[,1]!=1,]
points3d(bunny[,1],bunny[,2], bunny[,3],col="#9E0200",size=0.1)

library(rgl)
points3d(bunny[,1],bunny[,2], bunny[,3],col="#9E0200",size=0.1)
for(i in 1:360) {
rgl.viewpoint(i,10)
rgl.postscript(filename = paste("bunny",i,".eps",sep=""), fmt = "eps")
}

bunny.gif


epsファイルのpng形式への一括変換
mogrify -density 100 -format png *.eps

C:\Program Files\Giam
Giamにコマを追加するときは、*1~9.pngを先に、次に*10~99.pngを、次に*100~999.pngを追加していく。

rgl.snapshot(), movie3d()などで取得した画像が真っ黒になるトラブルの回避

$$

chooseCRANmirror()
install.packages("rgl")
library(rgl)

open3d()
plot3d(oh3d(col="lightblue", alpha=0.5))
spriteid <- NULL
spin1 <- spin3d(rpm=3 ) # the scene spinner
spin2 <- spin3d(rpm=6 ) # the sprite spinner
f <- function(time) {
par3d(skipRedraw = TRUE) # stops intermediate redraws
on.exit(par3d(skipRedraw=FALSE)) # redraw at the end
rgl.pop(id=spriteid) # delete the old sprite
cubeid <- shade3d(cube3d(), col="red")
spriteid <<- sprites3d(0:1, 0:1, 0:1, shape=cubeid,
userMatrix=spin2(time,
base=spin1(time)$userMatrix)$userMatrix)
spin1(time)
}

setwd("C:/R/spin3dtest")
rgl.bringtotop()
movie3d( f, duration=5, dir="C:/Users/R/spin3dtest",
clean=F, convert=F, top=T)
movieEPS( f, duration=5, dir="C:/Users/R/spin3dtest",
clean=F, convert=F, top=T)

movieEPS <- function (f, duration, dev = rgl.cur(), ..., fps = 10, movie = "movie",
frames = movie, dir = tempdir(), convert = TRUE, clean = TRUE,
verbose = TRUE, top = TRUE, type = "gif", startTime = 0)
{
olddir <- setwd(dir)
on.exit(setwd(olddir))
for (i in round(startTime * fps):(duration * fps)) {
time <- i/fps
if (rgl.cur() != dev)
rgl.set(dev)
par3d(f(time, ...))
filename <- sprintf("%s%03d.eps", frames, i)
if (verbose) {
cat("Writing", filename, "\r")
flush.console()
}
rgl.bringtotop()
rgl.postscript(filename = filename, fmt = "eps")
}
cat("\n")
if (.Platform$OS.type == "windows")
system <- shell
if (is.logical(convert) && convert) {
version <- system("convert --version", intern = TRUE)
if (!length(grep("ImageMagick", version)))
stop("ImageMagick not found")
filename <- paste(movie, ".", type, sep = "")
if (verbose)
cat("Will create: ", file.path(dir, filename), "\n")
convert <- "convert -delay 1x%d %s*.eps %s.%s"
}
if (is.character(convert)) {
convert <- sprintf(convert, fps, frames, movie, type,
duration, dir)
if (verbose) {
cat("Executing: ", convert, "\n")
flush.console()
}
system(convert)
if (clean) {
if (verbose)
cat("Deleting frames.\n")
for (i in 0:(duration * fps)) {
filename <- sprintf("%s%03d.eps", frames, i)
unlink(filename)
}
}
}
}


後、Cygwinのconvertコマンドでpngなどに変え、何らかの方法でgifアニメに統合させる。

convert -density 300 movie033.eps movie033.png

在外者の特許管理人

特許法 第8条

日本国内に住所又は居所(法人にあつては、営業所)を有しない者(以下「在外者」という。)は、政令で定める場合を除き、その者の特許に関する代理人であつて日本国内に住所又は居所を有するもの(以下「特許管理人」という。)によらなければ、手続をし、又はこの法律若しくはこの法律に基づく命令の規定により行政庁がした処分を不服として訴えを提起することができない。


特許管理人は、一切の手続及びこの法律又はこの法律に基づく命令の規定により行政庁がした処分を不服とする訴訟について本人を代理する。ただし、在外者が特許管理人の代理権の範囲を制限したときは、この限りでない。

在外者の裁判籍

特許法 第15条

在外者の特許権その他特許に関する権利については、特許管理人があるときはその住所又は居所をもつて、特許管理人がないときは特許庁の所在地をもつて民事訴訟法(平成八年法律第百九号)第五条第四号の財産の所在地とみなす。

引用

著作権法 第32条

公表された著作物は、引用して利用することができる。この場合において、その引用は、公正な慣行に合致するものであり、かつ、報道、批評、研究その他の引用の目的上正当な範囲内で行なわれるものでなければならない。


国若しくは地方公共団体の機関、独立行政法人又は地方独立行政法人が一般に周知させることを目的として作成し、その著作の名義の下に公表する広報資料、調査統計資料、報告書その他これらに類する著作物は、説明の材料として新聞紙、雑誌その他の刊行物に転載することができる。ただし、これを禁止する旨の表示がある場合は、この限りでない。

情報解析のための複製等

著作権法 第47条の7

著作物は、電子計算機による情報解析(多数の著作物その他の大量の情報から、当該情報を構成する言語、音、影像その他の要素に係る情報を抽出し、比較、分類その他の統計的な解析を行うことをいう。以下この条において同じ。)を行うことを目的とする場合には、必要と認められる限度において、記録媒体への記録又は翻案(これにより創作した二次的著作物の記録を含む。)を行うことができる。ただし、情報解析を行う者の用に供するために作成されたデータベースの著作物については、この限りでない。

職責

弁理士法 第3条

弁理士は、常に品位を保持し、業務に関する法令及び実務に精通して、公正かつ誠実にその業務を行わなければならない。
Profile

zoa

Author:zoa
Metropolis (1927)

Calendar
06 | 2013/07 | 08
- 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31 - - -
Labels
Admin
Previous Posts
Recent Comments
Recent Trackback
Archive
このページのトップへ
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。