Commit fffda402 authored by Maxime Lefrançois's avatar Maxime Lefrançois
Browse files

added saref4ener as source

parent 0a120048
forge.etsi.org/rep/:
repos:
- saref/saref-core
- saref/saref4ener
%!PS-Adobe-3.0 EPSF-3.0
%%HiResBoundingBox: 0.000000 0.000000 794.000000 191.000000
%APL_DSC_Encoding: UTF8
%APLProducer: (Version 10.11.6 (Build 15G1004) Quartz PS Context)
%%Title: (Unknown)
%%Creator: (Unknown)
%%CreationDate: (Unknown)
%%For: (Unknown)
%%DocumentData: Clean7Bit
%%LanguageLevel: 2
%%Pages: 1
%%BoundingBox: 0 0 794 191
%%EndComments
%%BeginProlog
%%BeginFile: cg-pdf.ps
%%Copyright: Copyright 2000-2004 Apple Computer Incorporated.
%%Copyright: All Rights Reserved.
currentpacking true setpacking
/cg_md 141 dict def
cg_md begin
/L3? languagelevel 3 ge def
/bd{bind def}bind def
/ld{load def}bd
/xs{exch store}bd
/xd{exch def}bd
/cmmtx matrix def
mark
/sc/setcolor
/scs/setcolorspace
/dr/defineresource
/fr/findresource
/T/true
/F/false
/d/setdash
/w/setlinewidth
/J/setlinecap
/j/setlinejoin
/M/setmiterlimit
/i/setflat
/rc/rectclip
/rf/rectfill
/rs/rectstroke
/f/fill
/f*/eofill
/sf/selectfont
/s/show
/xS/xshow
/yS/yshow
/xyS/xyshow
/S/stroke
/m/moveto
/l/lineto
/c/curveto
/h/closepath
/n/newpath
/q/gsave
/Q/grestore
counttomark 2 idiv
{ld}repeat pop
/SC{
/ColorSpace fr scs
}bd
/sopr /setoverprint where{pop/setoverprint}{/pop}ifelse ld
/soprm /setoverprintmode where{pop/setoverprintmode}{/pop}ifelse ld
/cgmtx matrix def
/sdmtx{cgmtx currentmatrix pop}bd
/CM {cgmtx setmatrix}bd
/cm {cmmtx astore CM concat}bd
/W{clip newpath}bd
/W*{eoclip newpath}bd
statusdict begin product end dup (HP) anchorsearch{
pop pop pop
true
}{
pop
(hp) anchorsearch{
pop pop true
}{
pop false
}ifelse
}ifelse
{
{
{
pop pop
(0)dup 0 4 -1 roll put
F charpath
}cshow
}
}{
{F charpath}
}ifelse
/cply exch bd
/cps {cply stroke}bd
/pgsave 0 def
/bp{/pgsave save store}bd
/ep{pgsave restore showpage}def
/re{4 2 roll m 1 index 0 rlineto 0 exch rlineto neg 0 rlineto h}bd
/scrdict 10 dict def
/scrmtx matrix def
/patarray 0 def
/createpat{patarray 3 1 roll put}bd
/makepat{
scrmtx astore pop
gsave
initgraphics
CM
patarray exch get
scrmtx
makepattern
grestore
setpattern
}bd
/cg_BeginEPSF{
userdict save/cg_b4_Inc_state exch put
userdict/cg_endepsf/cg_EndEPSF load put
count userdict/cg_op_count 3 -1 roll put
countdictstack dup array dictstack userdict/cg_dict_array 3 -1 roll put
3 sub{end}repeat
/showpage {} def
0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin
10 setmiterlimit [] 0 setdash newpath
false setstrokeadjust false setoverprint
}bd
/cg_EndEPSF{
countdictstack 3 sub { end } repeat
cg_dict_array 3 1 index length 3 sub getinterval
{begin}forall
count userdict/cg_op_count get sub{pop}repeat
userdict/cg_b4_Inc_state get restore
F setpacking
}bd
/cg_biproc{currentfile/RunLengthDecode filter}bd
/cg_aiproc{currentfile/ASCII85Decode filter/RunLengthDecode filter}bd
/ImageDataSource 0 def
L3?{
/cg_mibiproc{pop pop/ImageDataSource{cg_biproc}def}bd
/cg_miaiproc{pop pop/ImageDataSource{cg_aiproc}def}bd
}{
/ImageBandMask 0 def
/ImageBandData 0 def
/cg_mibiproc{
string/ImageBandMask xs
string/ImageBandData xs
/ImageDataSource{[currentfile/RunLengthDecode filter dup ImageBandMask/readstring cvx
/pop cvx dup ImageBandData/readstring cvx/pop cvx]cvx bind}bd
}bd
/cg_miaiproc{
string/ImageBandMask xs
string/ImageBandData xs
/ImageDataSource{[currentfile/ASCII85Decode filter/RunLengthDecode filter
dup ImageBandMask/readstring cvx
/pop cvx dup ImageBandData/readstring cvx/pop cvx]cvx bind}bd
}bd
}ifelse
/imsave 0 def
/BI{save/imsave xd mark}bd
/EI{imsave restore}bd
/ID{
counttomark 2 idiv
dup 2 add
dict begin
{def} repeat
pop
/ImageType 1 def
/ImageMatrix[Width 0 0 Height neg 0 Height]def
currentdict dup/ImageMask known{ImageMask}{F}ifelse exch
L3?{
dup/MaskedImage known
{
pop
<<
/ImageType 3
/InterleaveType 2
/DataDict currentdict
/MaskDict
<< /ImageType 1
/Width Width
/Height Height
/ImageMatrix ImageMatrix
/BitsPerComponent 1
/Decode [0 1]
currentdict/Interpolate known
{/Interpolate Interpolate}if
>>
>>
}if
}if
exch
{imagemask}{image}ifelse
end
}bd
/cguidfix{statusdict begin mark version end
{cvr}stopped{cleartomark 0}{exch pop}ifelse
2012 lt{dup findfont dup length dict begin
{1 index/FID ne 2 index/UniqueID ne and
{def} {pop pop} ifelse}forall
currentdict end definefont pop
}{pop}ifelse
}bd
/t_array 0 def
/t_i 0 def
/t_c 1 string def
/x_proc{
exch t_array t_i get add exch moveto
/t_i t_i 1 add store
}bd
/y_proc{
t_array t_i get add moveto
/t_i t_i 1 add store
}bd
/xy_proc{
t_array t_i 2 copy 1 add get 3 1 roll get
4 -1 roll add 3 1 roll add moveto
/t_i t_i 2 add store
}bd
/sop 0 def
/cp_proc/x_proc ld
/base_charpath
{
/t_array xs
/t_i 0 def
{
t_c 0 3 -1 roll put
currentpoint
t_c cply sop
cp_proc
}forall
/t_array 0 def
}bd
/sop/stroke ld
/nop{}def
/xsp/base_charpath ld
/ysp{/cp_proc/y_proc ld base_charpath/cp_proc/x_proc ld}bd
/xysp{/cp_proc/xy_proc ld base_charpath/cp_proc/x_proc ld}bd
/xmp{/sop/nop ld /cp_proc/x_proc ld base_charpath/sop/stroke ld}bd
/ymp{/sop/nop ld /cp_proc/y_proc ld base_charpath/sop/stroke ld}bd
/xymp{/sop/nop ld /cp_proc/xy_proc ld base_charpath/sop/stroke ld}bd
/refnt{
findfont dup length dict copy dup
/Encoding 4 -1 roll put
definefont pop
}bd
/renmfont{
findfont dup length dict copy definefont pop
}bd
L3? dup dup{save exch}if
/Range 0 def
/DataSource 0 def
/val 0 def
/nRange 0 def
/mulRange 0 def
/d0 0 def
/r0 0 def
/di 0 def
/ri 0 def
/a0 0 def
/a1 0 def
/r1 0 def
/r2 0 def
/dx 0 def
/Nsteps 0 def
/sh3tp 0 def
/ymax 0 def
/ymin 0 def
/xmax 0 def
/xmin 0 def
/setupFunEval
{
begin
/nRange Range length 2 idiv store
/mulRange
[
0 1 nRange 1 sub
{
2 mul/nDim2 xd
Range nDim2 get
Range nDim2 1 add get
1 index sub
255 div
exch
}for
]store
end
}bd
/FunEval
{
begin
nRange mul /val xd
0 1 nRange 1 sub
{
dup 2 mul/nDim2 xd
val
add DataSource exch get
mulRange nDim2 get mul
mulRange nDim2 1 add get
add
}for
end
}bd
/max
{
2 copy lt
{exch pop}{pop}ifelse
}bd
/sh2
{
/Coords load aload pop
3 index 3 index translate
3 -1 roll sub
3 1 roll exch
sub
2 copy
dup mul exch dup mul add sqrt
dup
scale
atan
rotate
/Function load setupFunEval
clippath {pathbbox}stopped {0 0 0 0}if newpath
/ymax xs
/xmax xs
/ymin xs
/xmin xs
currentdict/Extend known
{
/Extend load 0 get
{
0/Function load FunEval sc
xmin ymin xmin abs ymax ymin sub rectfill
}if
}if
/Nsteps/Function load/Size get 0 get 1 sub store
/dx 1 Nsteps div store
gsave
/di ymax ymin sub store
/Function load
0 1 Nsteps
{
1 index FunEval sc
0 ymin dx di rectfill
dx 0 translate
}for
pop
grestore
currentdict/Extend known
{
/Extend load 1 get
{
Nsteps/Function load FunEval sc
1 ymin xmax 1 sub abs ymax ymin sub rectfill
}if
}if
}bd
/shp
{
4 copy
dup 0 gt{
0 exch a1 a0 arc
}{
pop 0 moveto
}ifelse
dup 0 gt{
0 exch a0 a1 arcn
}{
pop 0 lineto
}ifelse
fill
dup 0 gt{
0 exch a0 a1 arc
}{
pop 0 moveto
}ifelse
dup 0 gt{
0 exch a1 a0 arcn
}{
pop 0 lineto
}ifelse
fill
}bd
/calcmaxs
{
xmin dup mul ymin dup mul add sqrt
xmax dup mul ymin dup mul add sqrt
xmin dup mul ymax dup mul add sqrt
xmax dup mul ymax dup mul add sqrt
max max max
}bd
/sh3
{
/Coords load aload pop
5 index 5 index translate
3 -1 roll 6 -1 roll sub
3 -1 roll 5 -1 roll sub
2 copy dup mul exch dup mul add sqrt
/dx xs
2 copy 0 ne exch 0 ne or
{
exch atan rotate
}{
pop pop
}ifelse
/r2 xs
/r1 xs
/Function load
dup/Size get 0 get 1 sub
/Nsteps xs
setupFunEval
dx r2 add r1 lt{
0
}{
dx r1 add r2 le
{
1
}{
r1 r2 eq
{
2
}{
3
}ifelse
}ifelse
}ifelse
/sh3tp xs
clippath {pathbbox}stopped {0 0 0 0}if
newpath
/ymax xs
/xmax xs
/ymin xs
/xmin xs
dx dup mul r2 r1 sub dup mul sub dup 0 gt
{
sqrt r2 r1 sub atan
/a0 exch 180 exch sub store
/a1 a0 neg store
}{
pop
/a0 0 store
/a1 360 store
}ifelse
currentdict/Extend known
{
/Extend load 0 get r1 0 gt and
{
0/Function load FunEval sc
{
{
dx 0 r1 360 0 arcn
xmin ymin moveto
xmax ymin lineto
xmax ymax lineto
xmin ymax lineto
xmin ymin lineto
eofill
}
{
r1 0 gt{0 0 r1 0 360 arc fill}if
}
{
0 r1 xmin abs r1 add neg r1 shp
}
{
r2 r1 gt{
0 r1
r1 neg r2 r1 sub div dx mul
0
shp
}{
0 r1 calcmaxs
dup
r2 add dx mul dx r1 r2 sub sub div
neg
exch 1 index
abs exch sub
shp
}ifelse
}
}sh3tp get exec
}if
}if
/d0 0 store
/r0 r1 store
/di dx Nsteps div store
/ri r2 r1 sub Nsteps div store
/Function load
0 1 Nsteps
{
1 index FunEval sc
d0 di add r0 ri add d0 r0 shp
{
d0 0 r0 a1 a0 arc
d0 di add 0 r0 ri add a0 a1 arcn
fill
d0 0 r0 a0 a1 arc
d0 di add 0 r0 ri add a1 a0 arcn
fill
}pop
/d0 d0 di add store
/r0 r0 ri add store
}for
pop
currentdict/Extend known
{
/Extend load 1 get r2 0 gt and
{
Nsteps/Function load FunEval sc
{
{
dx 0 r2 0 360 arc fill
}
{
dx 0 r2 360 0 arcn
xmin ymin moveto
xmax ymin lineto
xmax ymax lineto
xmin ymax lineto
xmin ymin lineto
eofill
}
{
xmax abs r1 add r1 dx r1 shp
}
{
r2 r1 gt{
calcmaxs dup
r1 add dx mul dx r2 r1 sub sub div
exch 1 index
exch sub
dx r2
shp
}{
r1 neg r2 r1 sub div dx mul
0
dx
r2
shp
}ifelse
}
}
sh3tp get exec
}if
}if
}bd
/sh