R-grDevices.pot の和訳とチェックのページ
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
COLOR(blue){SIZE(18){R-grDevices.pot の和訳とチェックのペ...
以下は R-grDevices.pot の素(粗)訳です。元ファイルと各メッ...
を取り出したファイルを添付します．~
舟尾 (第一稿 2005.03.26)
末尾にソースを抜き出したものを参考用にそえます。今後残っ...
#contents
-間瀬先生，ソースの添付をありがとうございます．ソースと照...
-多数の貴重なご意見ありがとうございます！3/30付けで修正致...
#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' の値は別にする必要があり，範囲...
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 をシャットダウンすることが出来ません...
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 ) -- &n...
"白を参照:" => "基準白色:"
"カラースペース(color spaces)は異なった白の参照が使われ...
"カラースペース(color spaces)は異なった基準白色を使って...
-ガンマ補正 【gamma correction】読み方：ガンマホセイ 画...
"ガンマ表示" => "ディスプレイガンマ"
-"同時に複数のデバイスを供給することは出来ません" => "同...
-"'from.ref.white' が許容されない定義は" => "'from.ref.wh...
-'to.ref.white' が許容されない定義は" => 'to.ref.white' ...
-"'from.ref.white' disagrees with definition of" => "'f...
-"'start' と 'end' の値は別にする必要があり，範囲はどちら...
#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 dev...
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...
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 fon...
msgstr "postscriptFonts 中の不正な引数です（フォント名が...
msgid "invalid arguments in postscriptFonts (need named ...
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 バージョンからのスナップショットが読...
-"以下からはデバイスをプリントすることが出来ません:" => "...
-"引数はクラス \"recordedplot\" のものではありません" =>...
-"既に使われています" => "は既に使われています" -- &new{...
-"変えてはいけません" => "変更しません" -- &new{2005-03...
-"(PostScript フォントの特定中)" => "が PostScript フォン...
-"不正なオプションです" "以下は不正なオプションです：" --...
-"'name.opt' は文字型でなければならず，存在するリストの名...
#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 ...
msgstr "quartz() デバイスは event loop manager なしに双...
減らされました ??????????"
msgid "invalid Quartz font: must be 4 strings"
msgstr "不正な Quartz font です: 4 つの文字列でなければ...
msgid "invalid arguments in quartzFonts (must be font na...
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 fami...
msgstr "不正な Windows フォントです: 単一のフォントファ...
msgid "invalid arguments in 'windowsFonts' (must be font...
msgstr "'windowsFonts' 中の不正な引数です（フォント名が...
msgid "invalid arguments in 'windowsFonts' (need named a...
msgstr "'windowsFonts' 中の不正な引数です（名前がついた...
-interactivity -> 対話的に -- &new{2005-03-27 (日) 00:16...
-"有効なデバイスは %s です" => "利用可能なデバイスは %s ...
-"'windowsFonts' 中の不正な引数です（フォント名が必要です...
-"ウィンドウデバイスは正面にしかもってくることが出来ませ...
#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 で異なります" => "が新しいものと古いも...
#comment
*ソース抜粋
./colorRamp.R- interpolate=c("linear"...
./colorRamp.R-{
./colorRamp.R-
./colorRamp.R: if (bias<=0) stop("'bias' must be positi...
./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.m...
./colorstuff.R- else rbind(r,g,b)
./colorstuff.R: if(!is.numeric(rgb)) stop("rgb matrix...
./colorstuff.R- d <- dim(rgb)
./colorstuff.R- if(d[1] != 3) stop("rgb matrix must h...
./colorstuff.R- n <- d[2]
./colorstuff.R- else rbind(r,g,b)
./colorstuff.R- if(!is.numeric(rgb)) stop("rgb matrix...
./colorstuff.R- d <- dim(rgb)
./colorstuff.R: if(d[1] != 3) stop("rgb matrix must h...
./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...
./convertColor.R- 1...
./convertColor.R- 1...
./convertColor.R: } else stop("'gamma' must be a scal...
./convertColor.R-
./convertColor.R- toXYZ <- function(rgb,...) { dogamm...
./convertColor.R- toRGB <- function(xyz,...) { ungamm...
./convertColor.R-}
./convertColor.R-
./convertColor.R-print.colorConverter <- function(x,...) {
./convertColor.R: cat(gettext("Color space converter:...
./convertColor.R- if (!is.null(x$reference.white))
./convertColor.R- cat(gettext("Reference white: "...
./convertColor.R- invisible(x)
./convertColor.R-print.colorConverter <- function(x,...) {
./convertColor.R- cat(gettext("Color space converter:...
./convertColor.R- if (!is.null(x$reference.white))
./convertColor.R: cat(gettext("Reference white: "...
./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"), "...
./convertColor.R- invisible(x)
./convertColor.R-}
./convertColor.R-
./convertColor.R- if (is.character(from))
./convertColor.R- from <- colorspaces[[match.arg(fr...
./convertColor.R- if (!inherits(from,"colorConverter"))
./convertColor.R: stop("'from' must be a colorConve...
./convertColor.R- if (is.character(to))
./convertColor.R- to <- colorspaces[[match.arg(to,n...
./convertColor.R- if (!inherits(to,"colorConverter"))
./convertColor.R- if (is.character(to))
./convertColor.R- to <- colorspaces[[match.arg(to,n...
./convertColor.R- if (!inherits(to,"colorConverter"))
./convertColor.R: stop("'to' must be a colorConvert...
./convertColor.R-
./convertColor.R- ## Need a reference white. If both th...
./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...
./convertColor.R: stop("'from.ref.white' disagrees ...
./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...
./convertColor.R: stop("'to.ref.white' disagrees wi...
./convertColor.R-
./convertColor.R- if (is.null(to.ref.white) && is.null(...
./convertColor.R- to.ref.white <- from.ref.white <-...
./convertColor.R- if (!isTRUE(all.equal(from.ref.white,...
./convertColor.R- mc <- match.call()
./convertColor.R- if (is.null(mc$from.ref.white) ||...
./convertColor.R: warning("color spaces use dif...
./convertColor.R- xyz <- chromaticAdaptation(xyz, f...
./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 de...
./device.R- .Internal(dev.off(as.integer(which)))
./device.R- dev.cur()
./device.R-}
./device.R-dev.copy <- function(device, ..., which = dev...
./device.R-{
./device.R- if(!missing(which) & !missing(device))
./device.R: stop("cannot supply which and device at the ...
./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 ...
./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 t...
./device.R- if(!(nm %in% c("X11", "GTK", "gnome", "wi...
./device.R- stop("can only print from screen devi...
./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 t...
./device.R- if(!(nm %in% c("X11", "GTK", "gnome", "wi...
./device.R- stop("can only print from screen devi...
./device.R- oc <- match.call()
./device.R- nm <- names(current.device)[1]
./device.R- if(nm == "null device") stop("no device t...
./device.R- if(!(nm %in% c("X11", "GTK", "gnome", "wi...
./device.R: stop("can only print from screen devi...
./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 t...
./device.R- if(!(nm %in% c("X11", "GTK", "gnome", "wi...
./device.R: stop("can only print from screen devi...
./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("inhi...
./device.R-{
./device.R- if(dev.cur() <= 1)
./device.R: stop("dev.control() called without an...
./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 ...
./device.R- invisible()
./device.R-}
./device.R-
./postscript.R-{
./postscript.R- lnew <- length(new)
./postscript.R- if(lnew != length(newnames <- names(n...
./postscript.R: stop(gettextf("invalid arguments in '%s'...
./postscript.R- deparse(sys.call(sy...
./postscript.R- if(!is.character(name.opt))
./postscript.R- stop("'name.opt' must be character, name...
./postscript.R- stop(gettextf("invalid arguments in '%s'...
./postscript.R- deparse(sys.call(sy...
./postscript.R- if(!is.character(name.opt))
./postscript.R: stop("'name.opt' must be character, name...
./postscript.R- if(reset) {
./postscript.R- if(exists(name.opt, envir=envir, inherit...
./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 se...
./postscript.R-
./postscript.R: } else stop(gettextf("cannot reset non-e...
./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....
./postscript.R- oldnames <- names(old)
./postscript.R- if(lnew > 0) {
./postscript.R- matches <- pmatch(newnames, oldnames)
./postscript.R- "dif...
./postscript.R- if(any(do.kee...
./postscript.R- paste("\n...
./postscript.R: get...
./postscript.R- pas...
./postscript.R- ...
./postscript.R- sep...
./postscript.R- "ISOLatin1...
./postscript.R- if(!missing(family)) {
./postscript.R- if (!is.character(family) || leng...
./postscript.R: stop("invalid 'family' argume...
./postscript.R- # If family has been defined as d...
./postscript.R- # R graphics family (i.e., it can...
./postscript.R- # then map to postscript font fam...
./postscript.R- if (version %in% versions)
./postscript.R- version <- as.integer(strsplit(ve...
./postscript.R- else
./postscript.R: stop("invalid PDF version")
./postscript.R- .External("PDF",
./postscript.R- file, old$paper, old$family...
./postscript.R- width, height, old$pointsiz...
./postscript.R-{
./postscript.R- lnew <- length(new)
./postscript.R- if(lnew != length(newnames <- names(n...
./postscript.R: stop(gettextf("invalid arguments in '%s'...
./postscript.R- deparse(sys.call(sy...
./postscript.R- if(!is.character(name.opt))
./postscript.R- stop("'name.opt' must be character, name...
--
./postscript.R- }
./postscript.R- old <- get(name.opt, envir=envir)
./postscript.R- if(!is.list(old))
./postscript.R: stop("invalid options in ", sQuote(name....
./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...
./postscript.R: "invalid...
./postscript.R: "invalid...
./postscript.R- paste(sQuote(new...
./postscript.R- collapse="...
./postscript.R- deparse(sys.call...
--
./postscript.R- "ISOLatin1...
./postscript.R- if(!missing(family)) {
./postscript.R- if (!is.character(family) || leng...
./postscript.R: stop("invalid 'family' argume...
./postscript.R- # If family has been defined as d...
./postscript.R- # R graphics family (i.e., it can...
./postscript.R- # then map to postscript font fam...
--
./postscript.R- if (version %in% versions)
./postscript.R- version <- as.integer(strsplit(ve...
./postscript.R- else
./postscript.R: stop("invalid PDF version")
./postscript.R- .External("PDF",
./postscript.R- file, old$paper, old$family...
./postscript.R- width, height, old$pointsiz...
--
./postscript.R-assign(".PostScript.Fonts", list(), envir...
./postscript.R-
./postscript.R-psFontError <- function(errDesc) {
./postscript.R: stop("invalid ", errDesc, " in PostSc...
./postscript.R-}
./postscript.R-
./postscript.R-# Check that the font has the correct str...
--
./postscript.R- nnames <- length(fontNames)
./postscript.R- if (nnames == 0) {
./postscript.R- if (!all(sapply(fonts, is.cha...
./postscript.R: stop("invalid arguments i...
./postscript.R- else
./postscript.R- get(".PostScript.Fonts", ...
./postscript.R- } else {
./postscript.R- if (ndots != nnames)
./postscript.R: stop("invalid arguments i...
./postscript.R- setPSFonts(fonts, fontNames)
./postscript.R- }
./postscript.R- }
./postscript.R-assign(".PostScript.Fonts", list(), envir...
./postscript.R-
./postscript.R-psFontError <- function(errDesc) {
./postscript.R: stop("invalid ", errDesc, " in PostSc...
./postscript.R-}
./postscript.R-
./postscript.R-# Check that the font has the correct str...
./Hershey.R- c("serif", "sans serif", "script",
./Hershey.R- "gothic english", "gothic german"...
./Hershey.R- "serif symbol", "sans serif symbo...
./Hershey.R: fontindex =
./Hershey.R- c("plain", "italic", "bold", "bold ...
./Hershey.R- "cyrillic", "oblique cyrillic", "...
./Hershey.R-## List of valid combinations : ../man/Hersh...
./Hershey.R-## *checking* of allowed combinations is don...
./Hershey.R-## (via max{#}) in FixupVFont() ../../../...
./Hershey.R:## The basic "table" really is in ../../../...
./Hershey.R-
./Hershey.R- allowed = rbind(cbind(1, 1:8), cbin...
./Hershey.R- cbind(4:6, 1), cbin...
--
./postscript.R-postscript <- function (file = ifelse(one...
./postscript.R- onefile = TRUE, f...
./postscript.R- title = "R Graphi...
./postscript.R: fonts = NULL, ...)
./postscript.R-{
./postscript.R- new <- list(onefile=onefile, ...)# eval
./postscript.R- old <- check.options(new = new, envir...
--
./postscript.R- } else {
./postscript.R- # If family has been defined ...
./postscript.R- # R graphics family (i.e., it...
./postscript.R: # then map to postscript font...
./postscript.R- if (length(family) == 1) {
./postscript.R- psFamily <- postscriptFon...
./postscript.R- if (!is.null(psFamily))
--
./postscript.R- file, old$paper, old$family...
./postscript.R- old$width, old$height, old$...
./postscript.R- old$onefile, old$pagecentre...
./postscript.R: title, fonts, PACKAGE = "gr...
./postscript.R- # if .ps.prolog is searched for and f...
./postscript.R- invisible()
./postscript.R-}
--
./postscript.R-
./postscript.R-pdf <- function (file = ifelse(onefile, "...
./postscript.R- width = 6, height = 6, o...
./postscript.R: title = "R Graphics Outp...
./postscript.R- paper = "special", ...)
./postscript.R-{
./postscript.R- # paper explicit because "special" (n...
--
./postscript.R- stop("invalid 'family' argume...
./postscript.R- # If family has been defined as d...
./postscript.R- # R graphics family (i.e., it can...
./postscript.R: # then map to postscript font fam...
./postscript.R- else {
./postscript.R- psFamily <- postscriptFonts(f...
./postscript.R- if (!is.null(psFamily))
--
./postscript.R- .External("PDF",
./postscript.R- file, old$paper, old$family...
./postscript.R- width, height, old$pointsiz...
./postscript.R: fonts, version[1], version[...
./postscript.R- invisible()
./postscript.R-}
./postscript.R-
--
./postscript.R-" 4 -1 roll lineto exch 1 index li...
./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 vec...
./postscript.R:# for font metric afm files
./postscript.R-assign(".PostScript.Fonts", list(), envir...
./postscript.R-
./postscript.R-psFontError <- function(errDesc) {
./postscript.R: stop("invalid ", errDesc, " in PostSc...
./postscript.R-}
./postscript.R-
./postscript.R:# Check that the font has the correct str...
./postscript.R-# Already checked that it had a name
./postscript.R:checkPSFont <- function(font) {
./postscript.R: if (is.null(font$family) || !is.chara...
./postscript.R: psFontError("font family name")
./postscript.R: if (is.null(font$metrics) || !is.char...
./postscript.R: length(font$metrics) < 4)
./postscript.R: psFontError("font metric informat...
./postscript.R: ## Add default symbol font metric...
./postscript.R: if (length(font$metrics) == 4)
./postscript.R: font$metrics <- c(font$metrics, "...
./postscript.R: if (is.null(font$encoding) || !is.cha...
./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, PA...
./postscript.R: stop("font" , i, " already in...
./postscript.R-}
./postscript.R-
./postscript.R:setPSFonts <- function(fonts, fontNames) {
./postscript.R: fonts <- lapply(fonts, checkPSFont)
./postscript.R: fontDB <- get(".PostScript.Fonts", en...
./postscript.R: existingFonts <- fontNames %in% names...
./postscript.R- if (sum(existingFonts) > 0) {
./postscript.R: checkFontInUse(fontNames[existing...
./postscript.R: fontDB[fontNames[existingFonts]] ...
./postscript.R- }
./postscript.R: if (sum(existingFonts) < length(fontN...
./postscript.R: fontDB <- c(fontDB, fonts[!existi...
./postscript.R: assign(".PostScript.Fonts", fontDB, e...
./postscript.R-}
./postscript.R-
./postscript.R:printFont <- function(font) {
./postscript.R: paste(font$family, "\n (", paste(f...
./postscript.R- sep="")
./postscript.R-}
./postscript.R-
./postscript.R:printFonts <- function(fonts) {
./postscript.R: cat(paste(names(fonts), ": ", unlist(...
./postscript.R- sep="", collapse=""))
./postscript.R-}
./postscript.R-
./postscript.R:# If no arguments specified, return entir...
./postscript.R:# If no named arguments specified, all ar...
./postscript.R-# on which to get info from the database
./postscript.R:# Else, must specify new fonts to enter i...
./postscript.R:# of which must be valid PostScript font ...
./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=.P...
./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.cha...
./postscript.R: stop("invalid arguments i...
./postscript.R- else
./postscript.R: get(".PostScript.Fonts", ...
./postscript.R- } else {
./postscript.R- if (ndots != nnames)
./postscript.R- stop("invalid arguments i...
./postscript.R: setPSFonts(fonts, fontNames)
./postscript.R- }
./postscript.R- }
./postscript.R-}
./postscript.R-
./postscript.R:# Create a valid postscript font descript...
./postscript.R-postscriptFont <- function(family, metric...
./postscript.R- checkPSFont(list(family=family, metri...
./postscript.R-}
./postscript.R-
./postscript.R:postscriptFonts(# Default Serif font is T...
./postscript.R- serif=postscriptFont("Tim...
./postscript.R- c("tir_____.afm", "tib_...
./postscript.R- "tii_____.afm", "tibi...
./postscript.R- "sy______.afm")),
./postscript.R: # Default Sans Serif font...
./postscript.R- sans=postscriptFont("Helv...
./postscript.R- c("hv______.afm", "hvb_...
./postscript.R- "hvo_____.afm", "hvbo...
./postscript.R- "sy______.afm")),
./postscript.R: # Default Monospace font ...
./postscript.R- mono=postscriptFont("Cour...
./postscript.R- c("com_____.afm", "cob_...
./postscript.R- "coo_____.afm", "cobo...
./postscript.R- "sy______.afm")),
./postscript.R: # Default Symbol font is ...
./postscript.R- symbol=postscriptFont("Sy...
./postscript.R- c("sy______.afm", "sy__...
./postscript.R- "sy______.afm", "sy__...
./postscript.R- "sy______.afm"),
./postscript.R- encoding="AdobeSym.enc"),
./postscript.R: # Remainder are standard ...
./postscript.R- # should be present on Po...
./postscript.R- AvantGarde=postscriptFont...
./postscript.R- c("agw_____.afm", "agd_...
./postscript.R-checkFontInUse <- function(names) {
./postscript.R- for (i in names)
./postscript.R- if (.Call("Type1FontInUse", i, PA...
./postscript.R: stop("font" , i, " already in...
./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.cha...
./postscript.R: stop("invalid arguments i...
./postscript.R- else
./postscript.R- get(".PostScript.Fonts", ...
./postscript.R- } else {
./postscript.R- get(".PostScript.Fonts", ...
./postscript.R- } else {
./postscript.R- if (ndots != nnames)
./postscript.R: stop("invalid arguments i...
./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...
./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 pr...
./recordplot.R- else if (version != rversion())
./recordplot.R- warning(gettext("loading snapshot...
./recordplot.R- " (", version, ")", domai...
./recordplot.R- if (is.null(version))
./recordplot.R- warning("loading snapshot from pr...
./recordplot.R- else if (version != rversion())
./recordplot.R: warning(gettext("loading snapshot...
./recordplot.R- " (", version, ")", domai...
./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...
./postscript.R: "invalid...
./postscript.R: "invalid...
./postscript.R- paste(sQuote(new...
./postscript.R- collapse="...
./postscript.R- deparse(sys.call...
./postscript.R- if(any(is.na(matches)))
./postscript.R- stop(sprintf(ngettext(as.integer(sum...
./postscript.R- "invalid...
./postscript.R: "invalid...
./postscript.R- paste(sQuote(new...
./postscript.R- collapse="...
./postscript.R- deparse(sys.call...
./postscript.R- ...
./postscript.R- collaps...
./postscript.R- ngettext(as.i...
./postscript.R: "dif...
./postscript.R- "dif...
./postscript.R- if(any(do.kee...
./postscript.R- paste("\n...
./postscript.R- collaps...
./postscript.R- ngettext(as.i...
./postscript.R- "dif...
./postscript.R: "dif...
./postscript.R- if(any(do.kee...
./postscript.R- paste("\n...
./postscript.R- get...
終了行:
COLOR(blue){SIZE(18){R-grDevices.pot の和訳とチェックのペ...
以下は R-grDevices.pot の素(粗)訳です。元ファイルと各メッ...
を取り出したファイルを添付します．~
舟尾 (第一稿 2005.03.26)
末尾にソースを抜き出したものを参考用にそえます。今後残っ...
#contents
-間瀬先生，ソースの添付をありがとうございます．ソースと照...
-多数の貴重なご意見ありがとうございます！3/30付けで修正致...
#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' の値は別にする必要があり，範囲...
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 をシャットダウンすることが出来ません...
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 ) -- &n...
"白を参照:" => "基準白色:"
"カラースペース(color spaces)は異なった白の参照が使われ...
"カラースペース(color spaces)は異なった基準白色を使って...
-ガンマ補正 【gamma correction】読み方：ガンマホセイ 画...
"ガンマ表示" => "ディスプレイガンマ"
-"同時に複数のデバイスを供給することは出来ません" => "同...
-"'from.ref.white' が許容されない定義は" => "'from.ref.wh...
-'to.ref.white' が許容されない定義は" => 'to.ref.white' ...
-"'from.ref.white' disagrees with definition of" => "'f...
-"'start' と 'end' の値は別にする必要があり，範囲はどちら...
#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 dev...
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...
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 fon...
msgstr "postscriptFonts 中の不正な引数です（フォント名が...
msgid "invalid arguments in postscriptFonts (need named ...
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 バージョンからのスナップショットが読...
-"以下からはデバイスをプリントすることが出来ません:" => "...
-"引数はクラス \"recordedplot\" のものではありません" =>...
-"既に使われています" => "は既に使われています" -- &new{...
-"変えてはいけません" => "変更しません" -- &new{2005-03...
-"(PostScript フォントの特定中)" => "が PostScript フォン...
-"不正なオプションです" "以下は不正なオプションです：" --...
-"'name.opt' は文字型でなければならず，存在するリストの名...
#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 ...
msgstr "quartz() デバイスは event loop manager なしに双...
減らされました ??????????"
msgid "invalid Quartz font: must be 4 strings"
msgstr "不正な Quartz font です: 4 つの文字列でなければ...
msgid "invalid arguments in quartzFonts (must be font na...
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 fami...
msgstr "不正な Windows フォントです: 単一のフォントファ...
msgid "invalid arguments in 'windowsFonts' (must be font...
msgstr "'windowsFonts' 中の不正な引数です（フォント名が...
msgid "invalid arguments in 'windowsFonts' (need named a...
msgstr "'windowsFonts' 中の不正な引数です（名前がついた...
-interactivity -> 対話的に -- &new{2005-03-27 (日) 00:16...
-"有効なデバイスは %s です" => "利用可能なデバイスは %s ...
-"'windowsFonts' 中の不正な引数です（フォント名が必要です...
-"ウィンドウデバイスは正面にしかもってくることが出来ませ...
#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 で異なります" => "が新しいものと古いも...
#comment
*ソース抜粋
./colorRamp.R- interpolate=c("linear"...
./colorRamp.R-{
./colorRamp.R-
./colorRamp.R: if (bias<=0) stop("'bias' must be positi...
./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.m...
./colorstuff.R- else rbind(r,g,b)
./colorstuff.R: if(!is.numeric(rgb)) stop("rgb matrix...
./colorstuff.R- d <- dim(rgb)
./colorstuff.R- if(d[1] != 3) stop("rgb matrix must h...
./colorstuff.R- n <- d[2]
./colorstuff.R- else rbind(r,g,b)
./colorstuff.R- if(!is.numeric(rgb)) stop("rgb matrix...
./colorstuff.R- d <- dim(rgb)
./colorstuff.R: if(d[1] != 3) stop("rgb matrix must h...
./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...
./convertColor.R- 1...
./convertColor.R- 1...
./convertColor.R: } else stop("'gamma' must be a scal...
./convertColor.R-
./convertColor.R- toXYZ <- function(rgb,...) { dogamm...
./convertColor.R- toRGB <- function(xyz,...) { ungamm...
./convertColor.R-}
./convertColor.R-
./convertColor.R-print.colorConverter <- function(x,...) {
./convertColor.R: cat(gettext("Color space converter:...
./convertColor.R- if (!is.null(x$reference.white))
./convertColor.R- cat(gettext("Reference white: "...
./convertColor.R- invisible(x)
./convertColor.R-print.colorConverter <- function(x,...) {
./convertColor.R- cat(gettext("Color space converter:...
./convertColor.R- if (!is.null(x$reference.white))
./convertColor.R: cat(gettext("Reference white: "...
./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"), "...
./convertColor.R- invisible(x)
./convertColor.R-}
./convertColor.R-
./convertColor.R- if (is.character(from))
./convertColor.R- from <- colorspaces[[match.arg(fr...
./convertColor.R- if (!inherits(from,"colorConverter"))
./convertColor.R: stop("'from' must be a colorConve...
./convertColor.R- if (is.character(to))
./convertColor.R- to <- colorspaces[[match.arg(to,n...
./convertColor.R- if (!inherits(to,"colorConverter"))
./convertColor.R- if (is.character(to))
./convertColor.R- to <- colorspaces[[match.arg(to,n...
./convertColor.R- if (!inherits(to,"colorConverter"))
./convertColor.R: stop("'to' must be a colorConvert...
./convertColor.R-
./convertColor.R- ## Need a reference white. If both th...
./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...
./convertColor.R: stop("'from.ref.white' disagrees ...
./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...
./convertColor.R: stop("'to.ref.white' disagrees wi...
./convertColor.R-
./convertColor.R- if (is.null(to.ref.white) && is.null(...
./convertColor.R- to.ref.white <- from.ref.white <-...
./convertColor.R- if (!isTRUE(all.equal(from.ref.white,...
./convertColor.R- mc <- match.call()
./convertColor.R- if (is.null(mc$from.ref.white) ||...
./convertColor.R: warning("color spaces use dif...
./convertColor.R- xyz <- chromaticAdaptation(xyz, f...
./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 de...
./device.R- .Internal(dev.off(as.integer(which)))
./device.R- dev.cur()
./device.R-}
./device.R-dev.copy <- function(device, ..., which = dev...
./device.R-{
./device.R- if(!missing(which) & !missing(device))
./device.R: stop("cannot supply which and device at the ...
./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 ...
./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 t...
./device.R- if(!(nm %in% c("X11", "GTK", "gnome", "wi...
./device.R- stop("can only print from screen devi...
./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 t...
./device.R- if(!(nm %in% c("X11", "GTK", "gnome", "wi...
./device.R- stop("can only print from screen devi...
./device.R- oc <- match.call()
./device.R- nm <- names(current.device)[1]
./device.R- if(nm == "null device") stop("no device t...
./device.R- if(!(nm %in% c("X11", "GTK", "gnome", "wi...
./device.R: stop("can only print from screen devi...
./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 t...
./device.R- if(!(nm %in% c("X11", "GTK", "gnome", "wi...
./device.R: stop("can only print from screen devi...
./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("inhi...
./device.R-{
./device.R- if(dev.cur() <= 1)
./device.R: stop("dev.control() called without an...
./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 ...
./device.R- invisible()
./device.R-}
./device.R-
./postscript.R-{
./postscript.R- lnew <- length(new)
./postscript.R- if(lnew != length(newnames <- names(n...
./postscript.R: stop(gettextf("invalid arguments in '%s'...
./postscript.R- deparse(sys.call(sy...
./postscript.R- if(!is.character(name.opt))
./postscript.R- stop("'name.opt' must be character, name...
./postscript.R- stop(gettextf("invalid arguments in '%s'...
./postscript.R- deparse(sys.call(sy...
./postscript.R- if(!is.character(name.opt))
./postscript.R: stop("'name.opt' must be character, name...
./postscript.R- if(reset) {
./postscript.R- if(exists(name.opt, envir=envir, inherit...
./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 se...
./postscript.R-
./postscript.R: } else stop(gettextf("cannot reset non-e...
./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....
./postscript.R- oldnames <- names(old)
./postscript.R- if(lnew > 0) {
./postscript.R- matches <- pmatch(newnames, oldnames)
./postscript.R- "dif...
./postscript.R- if(any(do.kee...
./postscript.R- paste("\n...
./postscript.R: get...
./postscript.R- pas...
./postscript.R- ...
./postscript.R- sep...
./postscript.R- "ISOLatin1...
./postscript.R- if(!missing(family)) {
./postscript.R- if (!is.character(family) || leng...
./postscript.R: stop("invalid 'family' argume...
./postscript.R- # If family has been defined as d...
./postscript.R- # R graphics family (i.e., it can...
./postscript.R- # then map to postscript font fam...
./postscript.R- if (version %in% versions)
./postscript.R- version <- as.integer(strsplit(ve...
./postscript.R- else
./postscript.R: stop("invalid PDF version")
./postscript.R- .External("PDF",
./postscript.R- file, old$paper, old$family...
./postscript.R- width, height, old$pointsiz...
./postscript.R-{
./postscript.R- lnew <- length(new)
./postscript.R- if(lnew != length(newnames <- names(n...
./postscript.R: stop(gettextf("invalid arguments in '%s'...
./postscript.R- deparse(sys.call(sy...
./postscript.R- if(!is.character(name.opt))
./postscript.R- stop("'name.opt' must be character, name...
--
./postscript.R- }
./postscript.R- old <- get(name.opt, envir=envir)
./postscript.R- if(!is.list(old))
./postscript.R: stop("invalid options in ", sQuote(name....
./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...
./postscript.R: "invalid...
./postscript.R: "invalid...
./postscript.R- paste(sQuote(new...
./postscript.R- collapse="...
./postscript.R- deparse(sys.call...
--
./postscript.R- "ISOLatin1...
./postscript.R- if(!missing(family)) {
./postscript.R- if (!is.character(family) || leng...
./postscript.R: stop("invalid 'family' argume...
./postscript.R- # If family has been defined as d...
./postscript.R- # R graphics family (i.e., it can...
./postscript.R- # then map to postscript font fam...
--
./postscript.R- if (version %in% versions)
./postscript.R- version <- as.integer(strsplit(ve...
./postscript.R- else
./postscript.R: stop("invalid PDF version")
./postscript.R- .External("PDF",
./postscript.R- file, old$paper, old$family...
./postscript.R- width, height, old$pointsiz...
--
./postscript.R-assign(".PostScript.Fonts", list(), envir...
./postscript.R-
./postscript.R-psFontError <- function(errDesc) {
./postscript.R: stop("invalid ", errDesc, " in PostSc...
./postscript.R-}
./postscript.R-
./postscript.R-# Check that the font has the correct str...
--
./postscript.R- nnames <- length(fontNames)
./postscript.R- if (nnames == 0) {
./postscript.R- if (!all(sapply(fonts, is.cha...
./postscript.R: stop("invalid arguments i...
./postscript.R- else
./postscript.R- get(".PostScript.Fonts", ...
./postscript.R- } else {
./postscript.R- if (ndots != nnames)
./postscript.R: stop("invalid arguments i...
./postscript.R- setPSFonts(fonts, fontNames)
./postscript.R- }
./postscript.R- }
./postscript.R-assign(".PostScript.Fonts", list(), envir...
./postscript.R-
./postscript.R-psFontError <- function(errDesc) {
./postscript.R: stop("invalid ", errDesc, " in PostSc...
./postscript.R-}
./postscript.R-
./postscript.R-# Check that the font has the correct str...
./Hershey.R- c("serif", "sans serif", "script",
./Hershey.R- "gothic english", "gothic german"...
./Hershey.R- "serif symbol", "sans serif symbo...
./Hershey.R: fontindex =
./Hershey.R- c("plain", "italic", "bold", "bold ...
./Hershey.R- "cyrillic", "oblique cyrillic", "...
./Hershey.R-## List of valid combinations : ../man/Hersh...
./Hershey.R-## *checking* of allowed combinations is don...
./Hershey.R-## (via max{#}) in FixupVFont() ../../../...
./Hershey.R:## The basic "table" really is in ../../../...
./Hershey.R-
./Hershey.R- allowed = rbind(cbind(1, 1:8), cbin...
./Hershey.R- cbind(4:6, 1), cbin...
--
./postscript.R-postscript <- function (file = ifelse(one...
./postscript.R- onefile = TRUE, f...
./postscript.R- title = "R Graphi...
./postscript.R: fonts = NULL, ...)
./postscript.R-{
./postscript.R- new <- list(onefile=onefile, ...)# eval
./postscript.R- old <- check.options(new = new, envir...
--
./postscript.R- } else {
./postscript.R- # If family has been defined ...
./postscript.R- # R graphics family (i.e., it...
./postscript.R: # then map to postscript font...
./postscript.R- if (length(family) == 1) {
./postscript.R- psFamily <- postscriptFon...
./postscript.R- if (!is.null(psFamily))
--
./postscript.R- file, old$paper, old$family...
./postscript.R- old$width, old$height, old$...
./postscript.R- old$onefile, old$pagecentre...
./postscript.R: title, fonts, PACKAGE = "gr...
./postscript.R- # if .ps.prolog is searched for and f...
./postscript.R- invisible()
./postscript.R-}
--
./postscript.R-
./postscript.R-pdf <- function (file = ifelse(onefile, "...
./postscript.R- width = 6, height = 6, o...
./postscript.R: title = "R Graphics Outp...
./postscript.R- paper = "special", ...)
./postscript.R-{
./postscript.R- # paper explicit because "special" (n...
--
./postscript.R- stop("invalid 'family' argume...
./postscript.R- # If family has been defined as d...
./postscript.R- # R graphics family (i.e., it can...
./postscript.R: # then map to postscript font fam...
./postscript.R- else {
./postscript.R- psFamily <- postscriptFonts(f...
./postscript.R- if (!is.null(psFamily))
--
./postscript.R- .External("PDF",
./postscript.R- file, old$paper, old$family...
./postscript.R- width, height, old$pointsiz...
./postscript.R: fonts, version[1], version[...
./postscript.R- invisible()
./postscript.R-}
./postscript.R-
--
./postscript.R-" 4 -1 roll lineto exch 1 index li...
./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 vec...
./postscript.R:# for font metric afm files
./postscript.R-assign(".PostScript.Fonts", list(), envir...
./postscript.R-
./postscript.R-psFontError <- function(errDesc) {
./postscript.R: stop("invalid ", errDesc, " in PostSc...
./postscript.R-}
./postscript.R-
./postscript.R:# Check that the font has the correct str...
./postscript.R-# Already checked that it had a name
./postscript.R:checkPSFont <- function(font) {
./postscript.R: if (is.null(font$family) || !is.chara...
./postscript.R: psFontError("font family name")
./postscript.R: if (is.null(font$metrics) || !is.char...
./postscript.R: length(font$metrics) < 4)
./postscript.R: psFontError("font metric informat...
./postscript.R: ## Add default symbol font metric...
./postscript.R: if (length(font$metrics) == 4)
./postscript.R: font$metrics <- c(font$metrics, "...
./postscript.R: if (is.null(font$encoding) || !is.cha...
./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, PA...
./postscript.R: stop("font" , i, " already in...
./postscript.R-}
./postscript.R-
./postscript.R:setPSFonts <- function(fonts, fontNames) {
./postscript.R: fonts <- lapply(fonts, checkPSFont)
./postscript.R: fontDB <- get(".PostScript.Fonts", en...
./postscript.R: existingFonts <- fontNames %in% names...
./postscript.R- if (sum(existingFonts) > 0) {
./postscript.R: checkFontInUse(fontNames[existing...
./postscript.R: fontDB[fontNames[existingFonts]] ...
./postscript.R- }
./postscript.R: if (sum(existingFonts) < length(fontN...
./postscript.R: fontDB <- c(fontDB, fonts[!existi...
./postscript.R: assign(".PostScript.Fonts", fontDB, e...
./postscript.R-}
./postscript.R-
./postscript.R:printFont <- function(font) {
./postscript.R: paste(font$family, "\n (", paste(f...
./postscript.R- sep="")
./postscript.R-}
./postscript.R-
./postscript.R:printFonts <- function(fonts) {
./postscript.R: cat(paste(names(fonts), ": ", unlist(...
./postscript.R- sep="", collapse=""))
./postscript.R-}
./postscript.R-
./postscript.R:# If no arguments specified, return entir...
./postscript.R:# If no named arguments specified, all ar...
./postscript.R-# on which to get info from the database
./postscript.R:# Else, must specify new fonts to enter i...
./postscript.R:# of which must be valid PostScript font ...
./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=.P...
./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.cha...
./postscript.R: stop("invalid arguments i...
./postscript.R- else
./postscript.R: get(".PostScript.Fonts", ...
./postscript.R- } else {
./postscript.R- if (ndots != nnames)
./postscript.R- stop("invalid arguments i...
./postscript.R: setPSFonts(fonts, fontNames)
./postscript.R- }
./postscript.R- }
./postscript.R-}
./postscript.R-
./postscript.R:# Create a valid postscript font descript...
./postscript.R-postscriptFont <- function(family, metric...
./postscript.R- checkPSFont(list(family=family, metri...
./postscript.R-}
./postscript.R-
./postscript.R:postscriptFonts(# Default Serif font is T...
./postscript.R- serif=postscriptFont("Tim...
./postscript.R- c("tir_____.afm", "tib_...
./postscript.R- "tii_____.afm", "tibi...
./postscript.R- "sy______.afm")),
./postscript.R: # Default Sans Serif font...
./postscript.R- sans=postscriptFont("Helv...
./postscript.R- c("hv______.afm", "hvb_...
./postscript.R- "hvo_____.afm", "hvbo...
./postscript.R- "sy______.afm")),
./postscript.R: # Default Monospace font ...
./postscript.R- mono=postscriptFont("Cour...
./postscript.R- c("com_____.afm", "cob_...
./postscript.R- "coo_____.afm", "cobo...
./postscript.R- "sy______.afm")),
./postscript.R: # Default Symbol font is ...
./postscript.R- symbol=postscriptFont("Sy...
./postscript.R- c("sy______.afm", "sy__...
./postscript.R- "sy______.afm", "sy__...
./postscript.R- "sy______.afm"),
./postscript.R- encoding="AdobeSym.enc"),
./postscript.R: # Remainder are standard ...
./postscript.R- # should be present on Po...
./postscript.R- AvantGarde=postscriptFont...
./postscript.R- c("agw_____.afm", "agd_...
./postscript.R-checkFontInUse <- function(names) {
./postscript.R- for (i in names)
./postscript.R- if (.Call("Type1FontInUse", i, PA...
./postscript.R: stop("font" , i, " already in...
./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.cha...
./postscript.R: stop("invalid arguments i...
./postscript.R- else
./postscript.R- get(".PostScript.Fonts", ...
./postscript.R- } else {
./postscript.R- get(".PostScript.Fonts", ...
./postscript.R- } else {
./postscript.R- if (ndots != nnames)
./postscript.R: stop("invalid arguments i...
./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...
./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 pr...
./recordplot.R- else if (version != rversion())
./recordplot.R- warning(gettext("loading snapshot...
./recordplot.R- " (", version, ")", domai...
./recordplot.R- if (is.null(version))
./recordplot.R- warning("loading snapshot from pr...
./recordplot.R- else if (version != rversion())
./recordplot.R: warning(gettext("loading snapshot...
./recordplot.R- " (", version, ")", domai...
./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...
./postscript.R: "invalid...
./postscript.R: "invalid...
./postscript.R- paste(sQuote(new...
./postscript.R- collapse="...
./postscript.R- deparse(sys.call...
./postscript.R- if(any(is.na(matches)))
./postscript.R- stop(sprintf(ngettext(as.integer(sum...
./postscript.R- "invalid...
./postscript.R: "invalid...
./postscript.R- paste(sQuote(new...
./postscript.R- collapse="...
./postscript.R- deparse(sys.call...
./postscript.R- ...
./postscript.R- collaps...
./postscript.R- ngettext(as.i...
./postscript.R: "dif...
./postscript.R- "dif...
./postscript.R- if(any(do.kee...
./postscript.R- paste("\n...
./postscript.R- collaps...
./postscript.R- ngettext(as.i...
./postscript.R- "dif...
./postscript.R: "dif...
./postscript.R- if(any(do.kee...
./postscript.R- paste("\n...
./postscript.R- get...
ページ名:
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
