⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 readme_sim14.ps

📁 这是一个射线追踪的源码
💻 PS
📖 第 1 页 / 共 5 页
字号:
	8 {} COMMONBITMAPc	} bind def/BEGINBITMAP2BITc { 	2 {} COMMONBITMAPc	} bind def/COMMONBITMAPc { 		 	/cvtProc exch def	/depth exch def	gsave		3 index 2 div add exch		4 index 2 div add exch		translate			rotate				1 index 2 div neg		1 index 2 div neg		translate			scale				/height exch def /width exch def	/lb width depth wbytes def 	sl lb lt {lb ms} if 	/bitmapsave save def 	cvtProc                	/is im 0 lb getinterval def 	ws 0 lb getinterval is copy pop 	/cf currentfile def 	width height depth [width 0 0 height neg 0 height] 	{ip} image 	bitmapsave restore 	grestore	} bind def/BEGINBITMAPBW { 	1 {} COMMONBITMAP	} bind def/BEGINBITMAPGRAY { 	8 {} COMMONBITMAP	} bind def/BEGINBITMAP2BIT { 	2 {} COMMONBITMAP	} bind def/COMMONBITMAP { 	/cvtProc exch def	/depth exch def	gsave		3 index 2 div add exch		4 index 2 div add exch		translate			rotate				1 index 2 div neg		1 index 2 div neg		translate			scale				/height exch def /width exch def	/bitmapsave save def 	cvtProc              	/is width depth wbytes string def	/cf currentfile def 	width height depth [width 0 0 height neg 0 height] 	{cf is readhexstring pop} image	bitmapsave restore 	grestore	} bind def/ngrayt 256 array def/nredt 256 array def/nbluet 256 array def/ngreent 256 array deffMLevel1 {/colorsetup {	currentcolortransfer	/gryt exch def	/blut exch def	/grnt exch def	/redt exch def	0 1 255 {		/indx exch def		/cynu 1 red indx get 255 div sub def		/magu 1 green indx get 255 div sub def		/yelu 1 blue indx get 255 div sub def		/kk cynu magu min yelu min def		/u kk currentundercolorremoval exec def%		/u 0 def		nredt indx 1 0 cynu u sub max sub redt exec put		ngreent indx 1 0 magu u sub max sub grnt exec put		nbluet indx 1 0 yelu u sub max sub blut exec put		ngrayt indx 1 kk currentblackgeneration exec sub gryt exec put	} for	{255 mul cvi nredt exch get}	{255 mul cvi ngreent exch get}	{255 mul cvi nbluet exch get}	{255 mul cvi ngrayt exch get}	setcolortransfer	{pop 0} setundercolorremoval	{} setblackgeneration	} bind def}{/colorSetup2 {	[ /Indexed /DeviceRGB 255 		{dup red exch get 255 div 		 exch dup green exch get 255 div 		 exch blue exch get 255 div}	] setcolorspace} bind def} ifelse/fakecolorsetup {	/tran 256 string def	0 1 255 {/indx exch def 		tran indx		red indx get 77 mul		green indx get 151 mul		blue indx get 28 mul		add add 256 idiv put} for	currenttransfer	{255 mul cvi tran exch get 255.0 div}	exch fmConcatProcs settransfer} bind def/BITMAPCOLOR { 	/depth 8 def	gsave		3 index 2 div add exch		4 index 2 div add exch		translate			rotate				1 index 2 div neg		1 index 2 div neg		translate			scale				/height exch def /width exch def	/bitmapsave save def	fMLevel1 {			colorsetup		/is width depth wbytes string def		/cf currentfile def 		width height depth [width 0 0 height neg 0 height] 		{cf is readhexstring pop} {is} {is} true 3 colorimage 	} {		colorSetup2		/is width depth wbytes string def		/cf currentfile def 		7 dict dup begin			/ImageType 1 def			/Width width def			/Height height def			/ImageMatrix [width 0 0 height neg 0 height] def			/DataSource {cf is readhexstring pop} bind def			/BitsPerComponent depth def			/Decode [0 255] def		end image		} ifelse	bitmapsave restore 	grestore	} bind def/BITMAPCOLORc { 	/depth 8 def	gsave		3 index 2 div add exch		4 index 2 div add exch		translate			rotate				1 index 2 div neg		1 index 2 div neg		translate			scale				/height exch def /width exch def	/lb width depth wbytes def 	sl lb lt {lb ms} if 	/bitmapsave save def 	fMLevel1 {			colorsetup		/is im 0 lb getinterval def 		ws 0 lb getinterval is copy pop 		/cf currentfile def 		width height depth [width 0 0 height neg 0 height] 		{ip} {is} {is} true 3 colorimage	} {		colorSetup2		/is im 0 lb getinterval def 		ws 0 lb getinterval is copy pop 		/cf currentfile def 		7 dict dup begin			/ImageType 1 def			/Width width def			/Height height def			/ImageMatrix [width 0 0 height neg 0 height] def			/DataSource {ip} bind def			/BitsPerComponent depth def			/Decode [0 255] def		end image		} ifelse	bitmapsave restore 	grestore	} bind def/BITMAPTRUECOLORc { 	/depth 24 def        gsave 		3 index 2 div add exch		4 index 2 div add exch		translate			rotate				1 index 2 div neg		1 index 2 div neg		translate			scale				/height exch def /width exch def	/lb width depth wbytes def 	sl lb lt {lb ms} if 	/bitmapsave save def         	/is im 0 lb getinterval def		/ris im 0 width getinterval def		/gis im width width getinterval def		/bis im width 2 mul width getinterval def         	ws 0 lb getinterval is copy pop 	/cf currentfile def 	width height 8 [width 0 0 height neg 0 height] 	{width rip pop ris} {gis} {bis} true 3 colorimage	bitmapsave restore 	grestore	} bind def/BITMAPCMYKc { 	/depth 32 def        gsave 		3 index 2 div add exch		4 index 2 div add exch		translate			rotate				1 index 2 div neg		1 index 2 div neg		translate			scale				/height exch def /width exch def	/lb width depth wbytes def 	sl lb lt {lb ms} if 	/bitmapsave save def         	/is im 0 lb getinterval def		/cis im 0 width getinterval def		/mis im width width getinterval def		/yis im width 2 mul width getinterval def 	/kis im width 3 mul width getinterval def         	ws 0 lb getinterval is copy pop 	/cf currentfile def 	width height 8 [width 0 0 height neg 0 height] 	{width rip4 pop cis} {mis} {yis} {kis} true 4 colorimage	bitmapsave restore 	grestore	} bind def/BITMAPTRUECOLOR {         gsave				3 index 2 div add exch			4 index 2 div add exch			translate				rotate					1 index 2 div neg			1 index 2 div neg			translate				scale					/height exch def /width exch def        /bitmapsave save def         /is width string def        /gis width string def        /bis width string def        /cf currentfile def         width height 8 [width 0 0 height neg 0 height]         { cf is readhexstring pop }         { cf gis readhexstring pop }         { cf bis readhexstring pop }         true 3 colorimage         bitmapsave restore         grestore        } bind def/BITMAPCMYK {         gsave				3 index 2 div add exch			4 index 2 div add exch			translate				rotate					1 index 2 div neg			1 index 2 div neg			translate				scale					/height exch def /width exch def        /bitmapsave save def         /is width string def        /mis width string def        /yis width string def        /kis width string def        /cf currentfile def         width height 8 [width 0 0 height neg 0 height]         { cf is readhexstring pop }         { cf mis readhexstring pop }         { cf yis readhexstring pop }         { cf kis readhexstring pop }         true 4 colorimage         bitmapsave restore         grestore        } bind def/BITMAPTRUEGRAYc { 	/depth 24 def        gsave		3 index 2 div add exch		4 index 2 div add exch		translate			rotate				1 index 2 div neg		1 index 2 div neg		translate			scale				/height exch def /width exch def	/lb width depth wbytes def 	sl lb lt {lb ms} if         /bitmapsave save def         	/is im 0 lb getinterval def		/ris im 0 width getinterval def		/gis im width width getinterval def		/bis im width 2 mul width getinterval def         ws 0 lb getinterval is copy pop         /cf currentfile def         width height 8 [width 0 0 height neg 0 height]         {width rip pop ris gis bis width gray} image        bitmapsave restore         grestore        } bind def/BITMAPCMYKGRAYc { 	/depth 32 def        gsave		3 index 2 div add exch		4 index 2 div add exch		translate			rotate				1 index 2 div neg		1 index 2 div neg		translate			scale				/height exch def /width exch def	/lb width depth wbytes def 	sl lb lt {lb ms} if         /bitmapsave save def         	/is im 0 lb getinterval def		/cis im 0 width getinterval def		/mis im width width getinterval def		/yis im width 2 mul width getinterval def 	/kis im width 3 mul width getinterval def         ws 0 lb getinterval is copy pop         /cf currentfile def         width height 8 [width 0 0 height neg 0 height]         {width rip pop cis mis yis kis width cgray} image        bitmapsave restore         grestore        } bind def/cgray {         /ww exch def        /k exch def        /y exch def        /m exch def        /c exch def        0 1 ww 1 sub { /i exch def c i get m i get y i get k i get CMYKtoRGB				.144 mul 3 1 roll .587 mul 3 1 roll .299 mul add add				c i 3 -1 roll floor cvi put } for        c 		} bind def/gray {         /ww exch def        /b exch def        /g exch def        /r exch def        0 1 ww 1 sub { /i exch def r i get .299 mul g i get .587 mul			b i get .114 mul add add r i 3 -1 roll floor cvi put } for        r        } bind def/BITMAPTRUEGRAY {         gsave				3 index 2 div add exch			4 index 2 div add exch			translate				rotate					1 index 2 div neg			1 index 2 div neg			translate				scale					/height exch def /width exch def        /bitmapsave save def         /is width string def        /gis width string def        /bis width string def        /cf currentfile def         width height 8 [width 0 0 height neg 0 height]         { cf is readhexstring pop           cf gis readhexstring pop           cf bis readhexstring pop width gray}  image        bitmapsave restore         grestore        } bind def/BITMAPCMYKGRAY {         gsave				3 index 2 div add exch			4 index 2 div add exch			translate				rotate					1 index 2 div neg			1 index 2 div neg			translate				scale					/height exch def /width exch def        /bitmapsave save def         /is width string def        /yis width string def        /mis width string def        /kis width string def        /cf currentfile def         width height 8 [width 0 0 height neg 0 height]         { cf is readhexstring pop           cf mis readhexstring pop           cf yis readhexstring pop           cf kis readhexstring pop width cgray}  image        bitmapsave restore         grestore        } bind def/BITMAPGRAY { 	8 {fakecolorsetup} COMMONBITMAP	} bind def/BITMAPGRAYc { 	8 {fakecolorsetup} COMMONBITMAPc	} bind def/ENDBITMAP {	} bind defend 	/ALDmatrix matrix def ALDmatrix currentmatrix pop/StartALD {	/ALDsave save def	 savematrix	 ALDmatrix setmatrix	} bind def/InALD {	 restorematrix	} bind def/DoneALD {	 ALDsave restore	} bind def/I { setdash } bind def/J { [] 0 setdash } bind def%%EndProlog%%BeginSetup(5.5) FMVERSION1 1 0 0 595.28 841.89 0 1 7 FMDOCUMENT%%IncludeFont: Times-Roman0 0 /Times-Roman FMFONTDEFINE%%IncludeFont: Times-Bold1 0 /Times-Bold FMFONTDEFINE%%IncludeFont: Times-Italic2 0 /Times-Italic FMFONTDEFINE%%IncludeFont: Symbol3 1 /Symbol FMFONTDEFINE32 FMFILLS0 0 FMFILL1 0.1 FMFILL2 0.3 FMFILL3 0.5 FMFILL4 0.7 FMFILL5 0.9 FMFILL6 0.97 FMFILL7 1 FMFILL8 <0f1e3c78f0e1c387> FMFILL9 <0f87c3e1f0783c1e> FMFILL10 <cccccccccccccccc> FMFILL11 <ffff0000ffff0000> FMFILL12 <8142241818244281> FMFILL13 <03060c183060c081> FMFILL14 <8040201008040201> FMFILL16 1 FMFILL17 0.9 FMFILL18 0.7 FMFILL19 0.5 FMFILL20 0.3 FMFILL21 0.1 FMFILL22 0.03 FMFILL23 0 FMFILL24 <f0e1c3870f1e3c78> FMFILL25 <f0783c1e0f87c3e1> FMFILL26 <3333333333333333> FMFILL27 <0000ffff0000ffff> FMFILL28 <7ebddbe7e7dbbd7e> FMFILL29 <fcf9f3e7cf9f3f7e> FMFILL30 <7fbfdfeff7fbfdfe> FMFILL%%EndSetup%%Page: "1" 1%%BeginPaperSize: A4%%EndPaperSize595.28 841.89 0 FMBEGINPAGE0 FrameSetSepColorsFrameNoSep0 0 0 1 0 0 0 1 KJ0 10 Q0 X(/d1/Tomo/Readme_sim14.fm;) 214.87 806.88 T(Florian Haslinger, 26/4/99) 428.97 806.88 T215 951/G996735 FmPA71 180/G996732 FmPA0 14 Q(Short Readme and Description of Simulps14) 177.9 775.86 T45 920/G996744 FmPA45 903/G996752 FmPA0 12 Q(Internal Report) 266.82 743.2 T45 887/G996784 FmPA(Institute of Geophysics, ETH Z\237rich) 215.49 729.2 T45 873/G996783 FmPA(Florian Haslinger, April 1999) 231.98 715.2 T45 859/G996753 FmPA(haslinger@tomo.ig.erdw.ethz.ch) 225.13 701.2 T45 845/G996757 FmPA45 831/G996758 FmPA45 817/G996759 FmPA1 F(Introduction) 45.35 659.2 T45 803/G996760 FmPA0 F(Simulps14) 45.35 645.2 T(is) 100.59 645.2 T(an) 112.47 645.2 T(extension) 127.69 645.2 T(to) 177.57 645.2 T(the) 190.79 645.2 T(widely) 209.33 645.2 T(used) 245.88 645.2 T(&) 271.76 645.2 T(well) 284.98 645.2 T(tested) 309.53 645.2 T(Simul-code) 341.41 645.2 T(family,) 400.63 645.2 T(originating) 438.84 645.2 T(from) 495.39 645.2 T(Thurber) 522.61 645.2 T45 789/G996761 FmPA(\0501983\051) 45.35 631.2 T(and) 81.01 631.2 T(further) 102.01 631.2 T(developed) 138.32 631.2 T(by) 191.31 631.2 T(Um) 206.98 631.2 T(&) 228.64 631.2 T(Thurber) 241.64 631.2 T(\0501987\051) 283.96 631.2 T(and) 319.62 631.2 T(Eberhart-Phillips) 340.61 631.2 T(\0501986,) 426.28 631.2 T(1990\051) 460.94 631.2 T(among) 492.6 631.2 T(others.) 528.93 631.2 T(Simulps14) 45.35 617.2 T(is) 99.45 617.2 T(based) 110.21 617.2 T

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -