COLOR(blue){SIZE(18){R-grDevices.pot の和訳とチェックのページ}}

以下は R-grDevices.pot の素(粗)訳です。元ファイルと各メッセージのソース部分
を取り出したファイルを添付します.~

舟尾 (第一稿 2005.03.26)

末尾にソースを抜き出したものを参考用にそえます。今後残っているものはさらに特殊な知識を必要とするものが多いようなので、ソースとの照合が不可欠になるようなきがします。 間瀬

#contents
-間瀬先生,ソースの添付をありがとうございます.ソースと照合して訳を見直していきます. -- [[舟尾]] &new{2005-03-27 (日) 23:27:33};
-多数の貴重なご意見ありがとうございます!3/30付けで修正致しました。 -- [[舟尾]] &new{2005-03-30 (水) 23:06:21};

#comment

 msgid ""
 msgstr ""
 "Project-Id-Version: R 2.1.0\n"
 "Report-Msgid-Bugs-To: bugs@r-project.org\n"
 "POT-Creation-Date: 2005-03-03 12:50\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"
 "MIME-Version: 1.0\n"
 "Content-Type: text/plain; charset=CHARSET\n"
 "Content-Transfer-Encoding: 8bit\n"

* 1-20

 msgid "'bias' must be positive"
 msgstr "'bias' は正の値でなければなりません" 
 
 msgid "rgb matrix must be numeric"
 msgstr "rgb 行列は数値でなければなりません" 
 
 msgid "rgb matrix must have 3 rows"
 msgstr "rgb 行列の行数は 3 行でなければなりません"
 
 msgid "rgb values must be in [0, maxColorValue]"
 msgstr "rgb 値の範囲は [0, maxColorValue] でなければなりません"
 
 msgid "'start' and 'end' must be distinct and in [0, 1]."
 msgstr "'start' と 'end' の値は別にする必要があり,範囲はどちらも [0, 1] でなければなりません"
 
 msgid "'gamma' must be a scalar or 'sRGB'"
 msgstr "'gamma' はスカラーまたは 'sRGB' でなければなりません"
 
 msgid "Color space converter:"
 msgstr "Color スペース変換器:"
 
 msgid "Reference white:"
 msgstr "白を参照:   ??????????"
 
 msgid "display gamma"
 msgstr "ガンマ表示"
 
 msgid "'from' must be a colorConverter or string"
 msgstr "'from' は colorConverter または string でなければなりません"
 
 msgid "'to' must be a colorConverter or string"
 msgstr "'to' は colorConverter または string でなければなりません"
 
 msgid "'from.ref.white' disagrees with definition of"
 msgstr "'from.ref.white' が許容されない定義は"
 
 msgid "'to.ref.white' disagrees with definition of"
 msgstr "'to.ref.white' が許容されない定義は"
 
 msgid "color spaces use different reference whites."
 msgstr "カラースペース(color spaces)は異なった白の参照が使われていま す   ??????????"
 
 msgid "cannot shut down device 1 (the null device)"
 msgstr "デバイス 1 をシャットダウンすることが出来ません(NULL デバイスです)"
 
 msgid "cannot supply which and device at the same time"
 msgstr "同時に複数のデバイスを供給することは出来ません   ??????????"
 
 msgid "cannot copy the null device"
 msgstr "NULL デバイスをコピーすることは出来ません"
 
 msgid "cannot copy to the null device"
 msgstr "NULL デバイスにコピーすることは出来ません"
 
 msgid "cannot copy device to itself"
 msgstr "デバイスを同じデバイスにコピーすることは出来ません"
 
 msgid "'device' should be a function"
 msgstr "'device' は関数でなければなりません"

-基準白色 ( キジュンハクショク : reference white ) --  &new{2005-03-27 (日) 00:06:09};
 "白を参照:" => "基準白色:" 
 "カラースペース(color spaces)は異なった白の参照が使われています"
 "カラースペース(color spaces)は異なった基準白色を使っています"
-ガンマ補正 【gamma correction】読み方:ガンマホセイ 画像などの色のデータと、それが実際に出力される際の信号の相対関係を調節して、より自然に近い表示を得るための補正操作。 γ(ガンマ)値とは、画像の明るさの変化に対する電圧換算値の変化の比で、これが1に近づくのが理想だが、素子の特性により機器によってそれぞれ異なった値となる。このため、元データに忠実な表示を再現したければ、これらの誤差を修正する必要がある。これがガンマ補正である。 ディスプレイにおいては、パソコンから出力されるカラー情報と実際のディスプレイの輝度が比例関係になるようにガンマ補正を行なっている。OSの側で接続しているディスプレイを選択する場合、ディスプレイごとにガンマ特性を記録したファイルを読み込み、最適な輝度で表示されるように調整を行なっている。 --  &new{2005-03-27 (日) 00:09:58};
 "ガンマ表示" => "ディスプレイガンマ"
-"同時に複数のデバイスを供給することは出来ません" => "同時に which と device を与えることは出来ません" --  &new{2005-03-27 (日) 08:48:46};
-"'from.ref.white' が許容されない定義は" => "'from.ref.white' が以下の定義と一致します:" --  &new{2005-03-27 (日) 08:51:50};
-'to.ref.white' が許容されない定義は" => 'to.ref.white' が以下の定義と一致しません:" --  &new{2005-03-27 (日) 08:53:34};
-"'from.ref.white' disagrees with definition of" => "'from.ref.white' が以下の定義と一致しません:" --  &new{2005-03-27 (日) 09:25:17};
-"'start' と 'end' の値は別にする必要があり,範囲はどちらも [0, 1] でなければなりません" => "'start' と 'end' の値は異なり,どちらも範囲 [0, 1] 内になければなりません" --  &new{2005-03-27 (日) 23:30:10};

#comment

* 21-40
 
 msgid "no device to print from"
 msgstr "以下からはデバイスをプリントすることが出来ません:"
 
 msgid "can only print from screen device"
 msgstr "スクリーンデバイスからしかプリントすることが出来ません"
 
 msgid "dev.control() called without an open graphics device"
 msgstr "dev.control() は,グラフィックスデバイスが何も開いていないのに呼び出さ れました" 
 
 msgid "argument is missing with no default"
 msgstr "引数はデフォルトなしで欠損となっています"
 
 msgid "invalid arguments in '%s'  (need named args)"
 msgstr "'%s' 中の不正な引数です(名前がついた引数が必要です)"
 
 msgid "'name.opt' must be character, name of an existing list"
 msgstr "'name.opt' は文字型でなければならず,存在するリストの名前でなければなりません"
 
 msgid "cannot reset non-existent '%s'"
 msgstr "存在しない '%s' をリセットすることは出来ません"
 
 msgid "invalid options in"
 msgstr "不正なオプションです"
 
 msgid "NOT changing"
 msgstr "変えてはいけません"
 
 msgid "invalid 'family' argument"
 msgstr "不正な 'family' 引数です"
 
 msgid "invalid PDF version"
 msgstr "不正な PDF のバージョンです"
 
 msgid "invalid"
 msgstr "不正な"
 
 msgid "in PostScript font specification"
 msgstr "(PostScript フォントの特定中)"
 
 msgid "font"
 msgstr "フォント"
 
 msgid "already in use"
 msgstr "既に使われています"
 
 msgid "invalid arguments in postscriptFonts (must be font names)"
 msgstr "postscriptFonts 中の不正な引数です(フォント名が必要です)"
 
 msgid "invalid arguments in postscriptFonts (need named args)"
 msgstr "postscriptFonts 中の不正な引数です(名前がついた引数が必要です)"
 
 msgid "no current device to record from"
 msgstr "現在,以下のものから記録することが出来るデバイスはありません: "
 
 msgid "argument is not of class \"recordedplot\""
 msgstr "引数はクラス \"recordedplot\" のものではありません"
 
 msgid "loading snapshot from pre-2.0.0 R version"
 msgstr "pre-2.0.0 R バージョンからのスナップショットが読み込まれています"
-"以下からはデバイスをプリントすることが出来ません:" => "以下からプリントするためのデバイスがありません:" --  &new{2005-03-27 (日) 00:25:17};
-"引数はクラス \"recordedplot\" のものではありません"  =>  "引数はクラス \"recordedplot\" ではありません" --  &new{2005-03-27 (日) 07:24:19};
-"既に使われています" => "は既に使われています" --  &new{2005-03-27 (日) 08:39:19};
-"変えてはいけません"  => "変更しません" --  &new{2005-03-27 (日) 08:42:49};
-"(PostScript フォントの特定中)" => "が PostScript フォントの指定中にありました" --  &new{2005-03-27 (日) 08:47:11};
-"不正なオプションです" "以下は不正なオプションです:" --  &new{2005-03-27 (日) 08:50:15};
-"'name.opt' は文字型でなければならず,存在するリストの名前でなければなりません" => "'name.opt' は既存のリストの名前である文字列でなければなりません" --  &new{2005-03-27 (日) 08:57:28};

#comment
* 41-60
 
 msgid "loading snapshot from different R version"
 msgstr "異なった R バージョンからのスナップショットが読み込まれています"
 
 msgid "'file' is missing with no default"
 msgstr "'file' はデフォルトなしで欠損となっています"
 
 msgid "'file' is must be a non-empty character string"
 msgstr "'file' は空でない文字列でなければなりません"
 
 msgid "sorry, 'gs' cannot be found"
 msgstr "すみません,'gs' が見つかりません"
 
 msgid "device '%s' is not available"
 msgstr "デバイス %s は有効ではありません"
 
 msgid "Available devices are %s"
 msgstr "有効なデバイスは %s です"
 
 msgid "quartz() device interactivity reduced without an event loop manager"
 msgstr "quartz() デバイスは event loop manager なしに双方向的(interactivity)に
         減らされました   ??????????" 
 
 msgid "invalid Quartz font:  must be 4 strings"
 msgstr "不正な Quartz font です: 4 つの文字列でなければなりません"
 
 msgid "invalid arguments in quartzFonts (must be font names)"
 msgstr "quartzFonts 中の不正な引数です(フォント名が必要です)"
 
 msgid "invalid arguments in quartzFonts (need named args)"
 msgstr "quartzFonts 中の不正な引数です(名前がついた引数が必要です)"
 
 msgid "invalid X11 font specification:"
 msgstr "不正な X11 フォントの指定方法です"
 
 msgid "invalid arguments in X11Fonts (must be font names)"
 msgstr "X11Fonts 中の不正な引数です(フォント名が必要です)"
 
 msgid "invalid arguments in X11Fonts (need named args)"
 msgstr "X11Fonts 中の不正な引数です(名前がついた引数が必要です)"
 
 msgid "can only bring windows devices to the front"
 msgstr "ウィンドウデバイスは正面にしかもってくることが出来ません"
 
 msgid "no such device"
 msgstr "そのようなデバイスはありません"
 
 msgid "can only copy from 'windows' devices"
 msgstr "'windows' デバイスからしかコピーできません"
 
 msgid "subscript out of range"
 msgstr "添え字が範囲外です"
 
 msgid "invalid Windows font:  must be a single font family name"
 msgstr "不正な Windows フォントです: 単一のフォントファミリー名でなければなりません"
 
 msgid "invalid arguments in 'windowsFonts' (must be font names)"
 msgstr "'windowsFonts' 中の不正な引数です(フォント名が必要です)"
 
 msgid "invalid arguments in 'windowsFonts' (need named args)"
 msgstr "'windowsFonts' 中の不正な引数です(名前がついた引数が必要です)"
-interactivity -> 対話的に --  &new{2005-03-27 (日) 00:16:45};
-"有効なデバイスは %s です" => "利用可能なデバイスは %s です" --  &new{2005-03-27 (日) 00:27:00};
-"'windowsFonts' 中の不正な引数です(フォント名が必要です)"=>"'windowsFonts' 中の引数が不正です(フォント名が必要です)" --  &new{2005-03-27 (日) 09:33:26};
-"ウィンドウデバイスは正面にしかもってくることが出来ません" => "ウィンドウデバイスしか正面にもってくることが出来ません" ? --  &new{2005-03-27 (日) 23:33:47};

#comment
* 61-62
 
 msgid        "invalid argument name %s in '%s'"
 msgid_plural "invalid argument names %s in '%s'"
 msgstr[0]    "%2$s 中の %1$s は不正な引数名です"
 msgstr[1]    "%2$s 中の %1$s は不正な引数名です"
 
 msgid        "differs between new and previous"
 msgid_plural "differ between new and previous"
 msgstr[0]    "new と previous で異なります"
 msgstr[1]    "new と previous で異なります"
-"new と previous で異なります" => "が新しいものと古いもので異なります" --  &new{2005-03-27 (日) 08:43:58};

#comment

*ソース抜粋
 ./colorRamp.R-                    interpolate=c("linear","spline"))
 ./colorRamp.R-{
 ./colorRamp.R-
 ./colorRamp.R:  if (bias<=0) stop("'bias' must be positive")
 ./colorRamp.R-  colors<-t(col2rgb(colors)/255)
 ./colorRamp.R-  space<-match.arg(space)
 ./colorRamp.R-  interpolate<-match.arg(interpolate)

 ./colorstuff.R-    rgb <-
 ./colorstuff.R-        if(is.null(g) && is.null(b)) as.matrix(r)
 ./colorstuff.R-        else rbind(r,g,b)
 ./colorstuff.R:    if(!is.numeric(rgb)) stop("rgb matrix must be numeric")
 ./colorstuff.R-    d <- dim(rgb)
 ./colorstuff.R-    if(d[1] != 3) stop("rgb matrix must have 3 rows")
 ./colorstuff.R-    n <- d[2]

 ./colorstuff.R-        else rbind(r,g,b)
 ./colorstuff.R-    if(!is.numeric(rgb)) stop("rgb matrix must be numeric")
 ./colorstuff.R-    d <- dim(rgb)
 ./colorstuff.R:    if(d[1] != 3) stop("rgb matrix must have 3 rows")
 ./colorstuff.R-    n <- d[2]
 ./colorstuff.R-    if(n == 0)
 ./colorstuff.R-        return(cbind(c(h=1,s=1,v=1))[,0])

 ./convertColor.R-        ungamma <- function(x) ifelse(x <= 0.0031308,
 ./convertColor.R-                                      12.92*x,
 ./convertColor.R-                                      1.055*x %^% (1/2.4)-0.055)
 ./convertColor.R:    } else stop("'gamma' must be a scalar or 'sRGB'")
 ./convertColor.R-
 ./convertColor.R-    toXYZ <- function(rgb,...) { dogamma(rgb) %*% M }
 ./convertColor.R-    toRGB <- function(xyz,...) { ungamma(xyz %*% solve(M)) }

 ./convertColor.R-}
 ./convertColor.R-
 ./convertColor.R-print.colorConverter <- function(x,...) {
 ./convertColor.R:    cat(gettext("Color space converter: "), x$name, "\n", sep="")
 ./convertColor.R-    if (!is.null(x$reference.white))
 ./convertColor.R-        cat(gettext("Reference white: "), x$reference.white, "\n", sep="")
 ./convertColor.R-    invisible(x)

 ./convertColor.R-print.colorConverter <- function(x,...) {
 ./convertColor.R-    cat(gettext("Color space converter: "), x$name, "\n", sep="")
 ./convertColor.R-    if (!is.null(x$reference.white))
 ./convertColor.R:        cat(gettext("Reference white: "), x$reference.white, "\n", sep="")
 ./convertColor.R-    invisible(x)
 ./convertColor.R-}
 ./convertColor.R-

 ./convertColor.R-print.RGBcolorConverter <- function(x,...) {
 ./convertColor.R-    print.colorConverter(x, ...)
 ./convertColor.R-    if (!is.null(x$gamma))
 ./convertColor.R:        cat(gettext("display gamma"), " = ", x$gamma, "\n", sep="")
 ./convertColor.R-    invisible(x)
 ./convertColor.R-}
 ./convertColor.R-

 ./convertColor.R-  if (is.character(from))
 ./convertColor.R-      from <- colorspaces[[match.arg(from,names(colorspaces))]]
 ./convertColor.R-  if (!inherits(from,"colorConverter"))
 ./convertColor.R:      stop("'from' must be a colorConverter or string")
 ./convertColor.R-  if (is.character(to))
 ./convertColor.R-      to <- colorspaces[[match.arg(to,names(colorspaces))]]
 ./convertColor.R-  if (!inherits(to,"colorConverter"))

 ./convertColor.R-  if (is.character(to))
 ./convertColor.R-      to <- colorspaces[[match.arg(to,names(colorspaces))]]
 ./convertColor.R-  if (!inherits(to,"colorConverter"))
 ./convertColor.R:      stop("'to' must be a colorConverter or string")
 ./convertColor.R-
 ./convertColor.R-  ## Need a reference white. If both the definition and the argument
 ./convertColor.R-  ## specify one they must agree.

 ./convertColor.R-  if (is.null(from.ref.white))
 ./convertColor.R-      from.ref.white <- from$white
 ./convertColor.R-  else if (!is.null(from$white) && from.ref.white != from$white)
 ./convertColor.R:      stop("'from.ref.white' disagrees with definition of ",from$name)
 ./convertColor.R-
 ./convertColor.R-  if (is.null(to.ref.white))
 ./convertColor.R-      to.ref.white <- to$white

 ./convertColor.R-  if (is.null(to.ref.white))
 ./convertColor.R-      to.ref.white <- to$white
 ./convertColor.R-  else if (!is.null(to$white) && to.ref.white != to$white)
 ./convertColor.R:      stop("'to.ref.white' disagrees with definition of ",to$name)
 ./convertColor.R-
 ./convertColor.R-  if (is.null(to.ref.white) && is.null(from.ref.white))
 ./convertColor.R-      to.ref.white <- from.ref.white <- "D65"

 ./convertColor.R-  if (!isTRUE(all.equal(from.ref.white, to.ref.white))) {
 ./convertColor.R-      mc <- match.call()
 ./convertColor.R-      if (is.null(mc$from.ref.white) || is.null(mc$to.ref.white))
 ./convertColor.R:          warning("color spaces use different reference whites.")
 ./convertColor.R-      xyz <- chromaticAdaptation(xyz, from.ref.white, to.ref.white)
 ./convertColor.R-  }
 ./convertColor.R-

 ./device.R-    function(which = dev.cur())
 ./device.R-{
 ./device.R-    if(which == 1)
 ./device.R:	stop("cannot shut down device 1 (the null device)")
 ./device.R-    .Internal(dev.off(as.integer(which)))
 ./device.R-    dev.cur()
 ./device.R-}

 ./device.R-dev.copy <- function(device, ..., which = dev.next())
 ./device.R-{
 ./device.R-    if(!missing(which) & !missing(device))
 ./device.R:	stop("cannot supply which and device at the same time")
 ./device.R-    old.device <- dev.cur()
 ./device.R-    if(old.device == 1)
 ./device.R-	stop("cannot copy the null device")

 ./device.R-	stop("cannot supply which and device at the same time")
 ./device.R-    old.device <- dev.cur()
 ./device.R-    if(old.device == 1)
 ./device.R:	stop("cannot copy the null device")
 ./device.R-    if(missing(device)) {
 ./device.R-	if(which == 1)
 ./device.R-	    stop("cannot copy to the null device")

 ./device.R-	stop("cannot copy the null device")
 ./device.R-    if(missing(device)) {
 ./device.R-	if(which == 1)
 ./device.R:	    stop("cannot copy to the null device")
 ./device.R-	else if(which == dev.cur())
 ./device.R-	    stop("cannot copy device to itself")
 ./device.R-	dev.set(which)

 ./device.R-	if(which == 1)
 ./device.R-	    stop("cannot copy to the null device")
 ./device.R-	else if(which == dev.cur())
 ./device.R:	    stop("cannot copy device to itself")
 ./device.R-	dev.set(which)
 ./device.R-    }
 ./device.R-    else {

 ./device.R-    }
 ./device.R-    else {
 ./device.R-	if(!is.function(device))
 ./device.R:	    stop("'device' should be a function")
 ./device.R-	else device(...)
 ./device.R-    }
 ./device.R-    .Internal(dev.copy(old.device))

 ./device.R-{
 ./device.R-    current.device <- dev.cur()
 ./device.R-    nm <- names(current.device)[1]
 ./device.R:    if(nm == "null device") stop("no device to print from")
 ./device.R-    if(!(nm %in% c("X11", "GTK", "gnome", "windows","quartz")))
 ./device.R-        stop("can only print from screen device")
 ./device.R-    oc <- match.call()

 --
 ./device.R-{
 ./device.R-    current.device <- dev.cur()
 ./device.R-    nm <- names(current.device)[1]
 ./device.R:    if(nm == "null device") stop("no device to print from")
 ./device.R-    if(!(nm %in% c("X11", "GTK", "gnome", "windows","quartz")))
 ./device.R-        stop("can only print from screen device")

 ./device.R-    oc <- match.call()
 ./device.R-    nm <- names(current.device)[1]
 ./device.R-    if(nm == "null device") stop("no device to print from")
 ./device.R-    if(!(nm %in% c("X11", "GTK", "gnome", "windows","quartz")))
 ./device.R:        stop("can only print from screen device")
 ./device.R-    oc <- match.call()
 ./device.R-    oc[[1]] <- as.name("dev.copy")

 ./device.R-    oc$device <- device
 --
 ./device.R-    nm <- names(current.device)[1]
 ./device.R-    if(nm == "null device") stop("no device to print from")
 ./device.R-    if(!(nm %in% c("X11", "GTK", "gnome", "windows","quartz")))
 ./device.R:        stop("can only print from screen device")
 ./device.R-    oc <- match.call()

 ./device.R-    oc[[1]] <- as.name("dev.copy")
 ./device.R-    oc$device <- postscript
 ./device.R-dev.control <- function(displaylist = c("inhibit", "enable"))
 ./device.R-{
 ./device.R-    if(dev.cur() <= 1)
 ./device.R:        stop("dev.control() called without an open graphics device")
 ./device.R-    if(!missing(displaylist)) {

 ./device.R-        displaylist <- match.arg(displaylist)
 ./device.R-	.Internal(dev.control(displaylist == "enable"))
 ./device.R-    if(!missing(displaylist)) {
 ./device.R-        displaylist <- match.arg(displaylist)
 ./device.R-	.Internal(dev.control(displaylist == "enable"))
 ./device.R:    } else stop("argument is missing with no default")
 ./device.R-    invisible()

 ./device.R-}
 ./device.R-
 ./postscript.R-{
 ./postscript.R-    lnew <- length(new)
 ./postscript.R-    if(lnew != length(newnames <- names(new)))
 ./postscript.R:	stop(gettextf("invalid arguments in '%s'  (need named args)",
 ./postscript.R-                      deparse(sys.call(sys.parent()))), domain = NA)

 ./postscript.R-    if(!is.character(name.opt))
 ./postscript.R-	stop("'name.opt' must be character, name of an existing list")
 ./postscript.R-	stop(gettextf("invalid arguments in '%s'  (need named args)",
 ./postscript.R-                      deparse(sys.call(sys.parent()))), domain = NA)
 ./postscript.R-    if(!is.character(name.opt))
 ./postscript.R:	stop("'name.opt' must be character, name of an existing list")
 ./postscript.R-    if(reset) {

 ./postscript.R-	if(exists(name.opt, envir=envir, inherits=FALSE)) {
 ./postscript.R-	    if(length(utils::find(name.opt)) > 1)
 ./postscript.R-##-		stop(paste("Cannot reset '", name.opt,
 ./postscript.R-##-			"'  since it exists only once in search()!\n", sep=""))
 ./postscript.R-
 ./postscript.R:	} else stop(gettextf("cannot reset non-existent '%s'", name.opt),
 ./postscript.R-                    domain = NA)

 ./postscript.R-    }
 ./postscript.R-    old <- get(name.opt, envir=envir)
 ./postscript.R-    }
 ./postscript.R-    old <- get(name.opt, envir=envir)
 ./postscript.R-    if(!is.list(old))
 ./postscript.R:	stop("invalid options in ", sQuote(name.opt))
 ./postscript.R-    oldnames <- names(old)

 ./postscript.R-    if(lnew > 0) {
 ./postscript.R-	matches <- pmatch(newnames, oldnames)
 ./postscript.R-                                     "differ between new and previous"),
 ./postscript.R-                            if(any(do.keep)) {
 ./postscript.R-                                paste("\n\t ==> ",
 ./postscript.R:                                      gettext("NOT changing "),
 ./postscript.R-                                      paste(sQuote(names(prev[do.keep])),

 ./postscript.R-                                            collapse=" & "),
 ./postscript.R-                                      sep = "")},
 ./postscript.R-                               "ISOLatin1.enc")
 ./postscript.R-    if(!missing(family)) {
 ./postscript.R-        if (!is.character(family) || length(family) != 1)
 ./postscript.R:            stop("invalid 'family' argument")
 ./postscript.R-        # If family has been defined as device-independent

 ./postscript.R-        # R graphics family (i.e., it can be found in postscriptFonts)
 ./postscript.R-        # then map to postscript font family
 ./postscript.R-    if (version %in% versions)
 ./postscript.R-        version <- as.integer(strsplit(version, "[.]")[[1]])
 ./postscript.R-    else
 ./postscript.R:        stop("invalid PDF version")
 ./postscript.R-    .External("PDF",

 ./postscript.R-              file, old$paper, old$family, old$encoding, old$bg, old$fg,
 ./postscript.R-              width, height, old$pointsize, old$onefile, old$pagecentre, title,
 ./postscript.R-{
 ./postscript.R-    lnew <- length(new)
 ./postscript.R-    if(lnew != length(newnames <- names(new)))
 ./postscript.R:	stop(gettextf("invalid arguments in '%s'  (need named args)",
 ./postscript.R-                      deparse(sys.call(sys.parent()))), domain = NA)

 ./postscript.R-    if(!is.character(name.opt))
 ./postscript.R-	stop("'name.opt' must be character, name of an existing list")
 --
 ./postscript.R-    }
 ./postscript.R-    old <- get(name.opt, envir=envir)
 ./postscript.R-    if(!is.list(old))
 ./postscript.R:	stop("invalid options in ", sQuote(name.opt))

 ./postscript.R-    oldnames <- names(old)
 ./postscript.R-    if(lnew > 0) {
 ./postscript.R-	matches <- pmatch(newnames, oldnames)
 ./postscript.R-	if(any(is.na(matches)))
 ./postscript.R-	    stop(sprintf(ngettext(as.integer(sum(is.na(matches))),
 ./postscript.R:                                 "invalid argument name %s in '%s'",
 ./postscript.R:                                 "invalid argument names %s in '%s'"),

 ./postscript.R-                         paste(sQuote(newnames[is.na(matches)]),
 ./postscript.R-                               collapse=", "),
 ./postscript.R-                         deparse(sys.call(sys.parent()))),
 --
 ./postscript.R-                               "ISOLatin1.enc")
 ./postscript.R-    if(!missing(family)) {
 ./postscript.R-        if (!is.character(family) || length(family) != 1)

 ./postscript.R:            stop("invalid 'family' argument")
 ./postscript.R-        # If family has been defined as device-independent
 ./postscript.R-        # R graphics family (i.e., it can be found in postscriptFonts)
 ./postscript.R-        # then map to postscript font family
 --
 ./postscript.R-    if (version %in% versions)
 ./postscript.R-        version <- as.integer(strsplit(version, "[.]")[[1]])

 ./postscript.R-    else
 ./postscript.R:        stop("invalid PDF version")
 ./postscript.R-    .External("PDF",
 ./postscript.R-              file, old$paper, old$family, old$encoding, old$bg, old$fg,
 ./postscript.R-              width, height, old$pointsize, old$onefile, old$pagecentre, title,
 --
 ./postscript.R-assign(".PostScript.Fonts", list(), envir = .PSenv)

 ./postscript.R-
 ./postscript.R-psFontError <- function(errDesc) {
 ./postscript.R:    stop("invalid ", errDesc, " in PostScript font specification")
 ./postscript.R-}
 ./postscript.R-
 ./postscript.R-# Check that the font has the correct structure and information
 --

 ./postscript.R-        nnames <- length(fontNames)
 ./postscript.R-        if (nnames == 0) {
 ./postscript.R-            if (!all(sapply(fonts, is.character)))
 ./postscript.R:                stop("invalid arguments in postscriptFonts (must be font names)")
 ./postscript.R-            else
 ./postscript.R-                get(".PostScript.Fonts", envir=.PSenv)[unlist(fonts)]
 ./postscript.R-        } else {

 ./postscript.R-            if (ndots != nnames)
 ./postscript.R:                stop("invalid arguments in postscriptFonts (need named args)")
 ./postscript.R-            setPSFonts(fonts, fontNames)
 ./postscript.R-        }
 ./postscript.R-    }
 ./postscript.R-assign(".PostScript.Fonts", list(), envir = .PSenv)
 ./postscript.R-

 ./postscript.R-psFontError <- function(errDesc) {
 ./postscript.R:    stop("invalid ", errDesc, " in PostScript font specification")
 ./postscript.R-}
 ./postscript.R-
 ./postscript.R-# Check that the font has the correct structure and information
 ./Hershey.R-         c("serif", "sans serif", "script",
 ./Hershey.R-           "gothic english", "gothic german", "gothic italian",

 ./Hershey.R-           "serif symbol", "sans serif symbol"),
 ./Hershey.R:         fontindex =
 ./Hershey.R-         c("plain", "italic", "bold", "bold italic",
 ./Hershey.R-           "cyrillic", "oblique cyrillic", "EUC"),
 ./Hershey.R-## List of valid combinations : ../man/Hershey.Rd
 ./Hershey.R-## *checking* of allowed combinations is done in
 ./Hershey.R-## (via max{#}) in    FixupVFont() ../../../main/plot.c

 ./Hershey.R:## The basic "table" really is in  ../../../modules/vfonts/g_fontdb.c
 ./Hershey.R-
 ./Hershey.R-         allowed = rbind(cbind(1, 1:8), cbind(2, 1:5), cbind(3,1:4),
 ./Hershey.R-                         cbind(4:6, 1), cbind(7, 1:5), cbind(8,1:3))
 --
 ./postscript.R-postscript <- function (file = ifelse(onefile,"Rplots.ps", "Rplot%03d.ps"),
 ./postscript.R-                        onefile = TRUE, family,

 ./postscript.R-                        title = "R Graphics Output",
 ./postscript.R:                        fonts = NULL, ...)
 ./postscript.R-{
 ./postscript.R-    new <- list(onefile=onefile, ...)# eval
 ./postscript.R-    old <- check.options(new = new, envir = .PSenv,
 --
 ./postscript.R-        } else {

 ./postscript.R-            # If family has been defined as device-independent
 ./postscript.R-            # R graphics family (i.e., it can be found in postscriptFonts)
 ./postscript.R:            # then map to postscript font family
 ./postscript.R-            if (length(family) == 1) {
 ./postscript.R-                psFamily <- postscriptFonts(family)[[1]]
 ./postscript.R-                if (!is.null(psFamily))
 --

 ./postscript.R-              file, old$paper, old$family, old$encoding, old$bg, old$fg,
 ./postscript.R-              old$width, old$height, old$horizontal, old$pointsize,
 ./postscript.R-              old$onefile, old$pagecentre, old$print.it, old$command,
 ./postscript.R:              title, fonts, PACKAGE = "grDevices")
 ./postscript.R-    # if .ps.prolog is searched for and fails, NULL got returned.
 ./postscript.R-    invisible()
 ./postscript.R-}

 --
 ./postscript.R-
 ./postscript.R-pdf <- function (file = ifelse(onefile, "Rplots.pdf", "Rplot%03d.pdf"),
 ./postscript.R-                 width = 6, height = 6, onefile = TRUE, family,
 ./postscript.R:                 title = "R Graphics Output", fonts = NULL, version="1.1",
 ./postscript.R-                 paper = "special", ...)
 ./postscript.R-{

 ./postscript.R-    # paper explicit because "special" (not "default") by default
 --
 ./postscript.R-            stop("invalid 'family' argument")
 ./postscript.R-        # If family has been defined as device-independent
 ./postscript.R-        # R graphics family (i.e., it can be found in postscriptFonts)
 ./postscript.R:        # then map to postscript font family
 ./postscript.R-        else {

 ./postscript.R-            psFamily <- postscriptFonts(family)[[1]]
 ./postscript.R-            if (!is.null(psFamily))
 --
 ./postscript.R-    .External("PDF",
 ./postscript.R-              file, old$paper, old$family, old$encoding, old$bg, old$fg,
 ./postscript.R-              width, height, old$pointsize, old$onefile, old$pagecentre, title,
 ./postscript.R:              fonts, version[1], version[2], PACKAGE = "grDevices")

 ./postscript.R-    invisible()
 ./postscript.R-}
 ./postscript.R-
 --
 ./postscript.R-"       4 -1 roll lineto  exch 1 index lineto lineto",
 ./postscript.R-"       closepath clip newpath } def",
 ./postscript.R-"/rgb { setrgbcolor } def",

 ./postscript.R:"/s   { scalefont setfont } def")
 ./postscript.R:# "/R   { /Font1 findfont } def",
 ./postscript.R:# "/B   { /Font2 findfont } def",
 ./postscript.R:# "/I   { /Font3 findfont } def",
 ./postscript.R:# "/BI  { /Font4 findfont } def",
 ./postscript.R:# "/S   { /Font5 findfont } def",
 ./postscript.R-# "1 setlinecap 1 setlinejoin")

 ./postscript.R-
 ./postscript.R-####################
 ./postscript.R:# PostScript font database
 ./postscript.R-####################
 ./postscript.R-
 ./postscript.R:# Each font family has a name, plus a vector of 4 or 5 directories
 ./postscript.R:# for font metric afm files

 ./postscript.R-assign(".PostScript.Fonts", list(), envir = .PSenv)
 ./postscript.R-
 ./postscript.R-psFontError <- function(errDesc) {
 ./postscript.R:    stop("invalid ", errDesc, " in PostScript font specification")
 ./postscript.R-}
 ./postscript.R-
 ./postscript.R:# Check that the font has the correct structure and information

 ./postscript.R-# Already checked that it had a name
 ./postscript.R:checkPSFont <- function(font) {
 ./postscript.R:    if (is.null(font$family) || !is.character(font$family))
 ./postscript.R:        psFontError("font family name")
 ./postscript.R:    if (is.null(font$metrics) || !is.character(font$metrics) ||
 ./postscript.R:        length(font$metrics) < 4)
 ./postscript.R:        psFontError("font metric information")

 ./postscript.R:        ## Add default symbol font metric if none provided
 ./postscript.R:    if (length(font$metrics) == 4)
 ./postscript.R:        font$metrics <- c(font$metrics, "sy______.afm")
 ./postscript.R:    if (is.null(font$encoding) || !is.character(font$encoding))
 ./postscript.R:        psFontError("font encoding")
 ./postscript.R:    font
 ./postscript.R-}

 ./postscript.R-
 ./postscript.R-checkFontInUse <- function(names) {
 ./postscript.R-    for (i in names)
 ./postscript.R-        if (.Call("Type1FontInUse", i, PACKAGE = "grDevices"))
 ./postscript.R:            stop("font" , i, " already in use")
 ./postscript.R-}
 ./postscript.R-

 ./postscript.R:setPSFonts <- function(fonts, fontNames) {
 ./postscript.R:    fonts <- lapply(fonts, checkPSFont)
 ./postscript.R:    fontDB <- get(".PostScript.Fonts", envir=.PSenv)
 ./postscript.R:    existingFonts <- fontNames %in% names(fontDB)
 ./postscript.R-    if (sum(existingFonts) > 0) {
 ./postscript.R:        checkFontInUse(fontNames[existingFonts])
 ./postscript.R:        fontDB[fontNames[existingFonts]] <- fonts[existingFonts]

 ./postscript.R-    }
 ./postscript.R:    if (sum(existingFonts) < length(fontNames))
 ./postscript.R:        fontDB <- c(fontDB, fonts[!existingFonts])
 ./postscript.R:    assign(".PostScript.Fonts", fontDB, envir=.PSenv)
 ./postscript.R-}
 ./postscript.R-
 ./postscript.R:printFont <- function(font) {

 ./postscript.R:    paste(font$family, "\n    (", paste(font$metrics, collapse=" "), ")\n",
 ./postscript.R-          sep="")
 ./postscript.R-}
 ./postscript.R-
 ./postscript.R:printFonts <- function(fonts) {
 ./postscript.R:    cat(paste(names(fonts), ": ", unlist(lapply(fonts, printFont)),
 ./postscript.R-              sep="", collapse=""))

 ./postscript.R-}
 ./postscript.R-
 ./postscript.R:# If no arguments specified, return entire font database
 ./postscript.R:# If no named arguments specified, all args should be font names
 ./postscript.R-# on which to get info from the database
 ./postscript.R:# Else, must specify new fonts to enter into database (all
 ./postscript.R:# of which must be valid PostScript font descriptions and

 ./postscript.R-# all of which must be named args)
 ./postscript.R-postscriptFonts <- function(...) {
 ./postscript.R:    ndots <- length(fonts <- list(...))
 ./postscript.R-    if (ndots == 0)
 ./postscript.R-        get(".PostScript.Fonts", envir=.PSenv)
 ./postscript.R-    else {
 ./postscript.R:        fontNames <- names(fonts)

 ./postscript.R:        nnames <- length(fontNames)
 ./postscript.R-        if (nnames == 0) {
 ./postscript.R:            if (!all(sapply(fonts, is.character)))
 ./postscript.R:                stop("invalid arguments in postscriptFonts (must be font names)")
 ./postscript.R-            else
 ./postscript.R:                get(".PostScript.Fonts", envir=.PSenv)[unlist(fonts)]
 ./postscript.R-        } else {

 ./postscript.R-            if (ndots != nnames)
 ./postscript.R-                stop("invalid arguments in postscriptFonts (need named args)")
 ./postscript.R:            setPSFonts(fonts, fontNames)
 ./postscript.R-        }
 ./postscript.R-    }
 ./postscript.R-}
 ./postscript.R-

 ./postscript.R:# Create a valid postscript font description
 ./postscript.R-postscriptFont <- function(family, metrics, encoding="default") {
 ./postscript.R-    checkPSFont(list(family=family, metrics=metrics, encoding=encoding))
 ./postscript.R-}
 ./postscript.R-
 ./postscript.R:postscriptFonts(# Default Serif font is Times
 ./postscript.R-                serif=postscriptFont("Times",

 ./postscript.R-                  c("tir_____.afm", "tib_____.afm",
 ./postscript.R-                    "tii_____.afm", "tibi____.afm",
 ./postscript.R-                    "sy______.afm")),
 ./postscript.R:                # Default Sans Serif font is Helvetica
 ./postscript.R-                sans=postscriptFont("Helvetica",
 ./postscript.R-                  c("hv______.afm", "hvb_____.afm",
 ./postscript.R-                    "hvo_____.afm", "hvbo____.afm",

 ./postscript.R-                    "sy______.afm")),
 ./postscript.R:                # Default Monospace font is Courier
 ./postscript.R-                mono=postscriptFont("Courier",
 ./postscript.R-                  c("com_____.afm", "cob_____.afm",
 ./postscript.R-                    "coo_____.afm", "cobo____.afm",
 ./postscript.R-                    "sy______.afm")),
 ./postscript.R:                # Default Symbol font is Symbol

 ./postscript.R-                symbol=postscriptFont("Symbol",
 ./postscript.R-                  c("sy______.afm", "sy______.afm",
 ./postscript.R-                    "sy______.afm", "sy______.afm",
 ./postscript.R-                    "sy______.afm"),
 ./postscript.R-                  encoding="AdobeSym.enc"),
 ./postscript.R:                # Remainder are standard Adobe fonts that
 ./postscript.R-                # should be present on PostScript devices

 ./postscript.R-                AvantGarde=postscriptFont("AvantGarde",
 ./postscript.R-                  c("agw_____.afm", "agd_____.afm",
 ./postscript.R-checkFontInUse <- function(names) {
 ./postscript.R-    for (i in names)
 ./postscript.R-        if (.Call("Type1FontInUse", i, PACKAGE = "grDevices"))
 ./postscript.R:            stop("font" , i, " already in use")
 ./postscript.R-}

 ./postscript.R-
 ./postscript.R-setPSFonts <- function(fonts, fontNames) {
 ./postscript.R-        nnames <- length(fontNames)
 ./postscript.R-        if (nnames == 0) {
 ./postscript.R-            if (!all(sapply(fonts, is.character)))
 ./postscript.R:                stop("invalid arguments in postscriptFonts (must be font names)")
 ./postscript.R-            else

 ./postscript.R-                get(".PostScript.Fonts", envir=.PSenv)[unlist(fonts)]
 ./postscript.R-        } else {
 ./postscript.R-                get(".PostScript.Fonts", envir=.PSenv)[unlist(fonts)]
 ./postscript.R-        } else {
 ./postscript.R-            if (ndots != nnames)
 ./postscript.R:                stop("invalid arguments in postscriptFonts (need named args)")
 ./postscript.R-            setPSFonts(fonts, fontNames)

 ./postscript.R-        }
 ./postscript.R-    }
 ./recordplot.R-recordPlot <- function()
 ./recordplot.R-{
 ./recordplot.R-    if(dev.cur() == 1)
 ./recordplot.R:        stop("no current device to record from")
 ./recordplot.R-    res <- .Internal(getSnapshot())

 ./recordplot.R-    attr(res, "version") <- rversion()
 ./recordplot.R-    class(res) <- "recordedplot"
 ./recordplot.R-    } else {
 ./recordplot.R-      version <- attr(x, "version")
 ./recordplot.R-      if (is.null(version))
 ./recordplot.R:        warning("loading snapshot from pre-2.0.0 R version")
 ./recordplot.R-      else if (version != rversion())

 ./recordplot.R-        warning(gettext("loading snapshot from different R version"),
 ./recordplot.R-                " (", version, ")", domain = NA)
 ./recordplot.R-      if (is.null(version))
 ./recordplot.R-        warning("loading snapshot from pre-2.0.0 R version")
 ./recordplot.R-      else if (version != rversion())
 ./recordplot.R:        warning(gettext("loading snapshot from different R version"),
 ./recordplot.R-                " (", version, ")", domain = NA)

 ./recordplot.R-      .Internal(playSnapshot(x))
 ./recordplot.R-    }
 ./postscript.R-	matches <- pmatch(newnames, oldnames)
 ./postscript.R-	if(any(is.na(matches)))
 ./postscript.R-	    stop(sprintf(ngettext(as.integer(sum(is.na(matches))),
 ./postscript.R:                                 "invalid argument name %s in '%s'",
 ./postscript.R:                                 "invalid argument names %s in '%s'"),

 ./postscript.R-                         paste(sQuote(newnames[is.na(matches)]),
 ./postscript.R-                               collapse=", "),
 ./postscript.R-                         deparse(sys.call(sys.parent()))),
 ./postscript.R-	if(any(is.na(matches)))
 ./postscript.R-	    stop(sprintf(ngettext(as.integer(sum(is.na(matches))),
 ./postscript.R-                                 "invalid argument name %s in '%s'",
 ./postscript.R:                                 "invalid argument names %s in '%s'"),

 ./postscript.R-                         paste(sQuote(newnames[is.na(matches)]),
 ./postscript.R-                               collapse=", "),
 ./postscript.R-                         deparse(sys.call(sys.parent()))),
 ./postscript.R-                                               sep="")),
 ./postscript.R-                                  collapse=" and "), " ",
 ./postscript.R-                            ngettext(as.integer(sum(ii)),
 ./postscript.R:                                     "differs between new and previous",

 ./postscript.R-                                     "differ between new and previous"),
 ./postscript.R-                            if(any(do.keep)) {
 ./postscript.R-                                paste("\n\t ==> ",
 ./postscript.R-                                  collapse=" and "), " ",
 ./postscript.R-                            ngettext(as.integer(sum(ii)),
 ./postscript.R-                                     "differs between new and previous",
 ./postscript.R:                                     "differ between new and previous"),

 ./postscript.R-                            if(any(do.keep)) {
 ./postscript.R-                                paste("\n\t ==> ",
 ./postscript.R-                                      gettext("NOT changing "),

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS