使用する色を定義します。 //********************************************************************************** #local Cv1 = pigment { color rgb } #local Cv2 = pigment { color rgb } #local Cv3 = pigment { color rgb } //**********************…

トラメルにより楕円を描画するマクロです。 //********************************************************************************** #macro Trammel(Lr,Tl,Vl) #local Sp=-pi; #local Ep= pi; #local Ap= pi/42; #if(Vl=0) #local Vl=1e-6; #end #local Mx…

楕円の座標位置を求めるためにトラメルの式を定義します。 //********************************************************************************** #macro Trammel_function(Sp,Tl,Vl,Px0,Pz0) #local Px0=Vl*cos(Sp); #local Pz0=(Tl-Vl)*sin(Sp); #end /…

二次近似曲線の描画マクロです。 //********************************************************************************** #macro Contact_line(Lr,E1,E2) #local Px0=0; #local Pz0=0; #local Ox0=0; #local Oz0=0; #local i=0; #while( i #local X0=Vp[i]…

二次近似曲線の式を定義します。 //********************************************************************************** #macro Contact_curve_function(Sp,E1,E2,X0,Z0,Xc,Zc,X1,Z1,Px0,Pz0) #local Px0=(X0*pow(1-Sp,2)+(2+E1)*Xc*Sp*(1-Sp)+ (1+E1+E2)…

式から円弧により平面曲線を描画するマクロです。 //********************************************************************************** #macro Curved_line(Lr,Bp,Ep,Ap,Mx,Func_type) #local Px0=0; #local Pz0=0; #local Ox0=0; #local Oz0=0; #local…

円弧により平面曲線を描画するための式を登録します。 //********************************************************************************** #macro Curve_function(Sp,Px0,Pz0,Func_type) #switch(Func_type) #case( 3) #local Px0=Sp; #local Pz0=sin(…

円盤による円弧を描画するマクロの最後の部分です。 //---------------------------------------------------------------------------------- #switch(Clipped_type) #case(0) #local Arc=atan2(Pz2-Pz1,Px2-Px1)+pi/2; #local Dx=Lr*cos(Arc); #local Dz=L…

円盤による円弧を描画するマクロの中間部分です。 //---------------------------------------------------------------------------------- #local Clipped_type=0; #if(Vz1!=Pz1 & Vz2!=Pz2) #local A=2*(Px2-Px1)*(Px1-Ox0)+2*(Pz2-Pz1)*(Pz1-Oz0); #loca…

円盤による円弧を描画するマクロの開始部分です。 //********************************************************************************** #macro Curve_element(Lr,Px1,Pz1,Px2,Pz2,Ox0,Oz0) #local Vx1=Px1; #if(Px1!=Ox0) #local Vz1= ( (Pz1-Oz0)/(Px1…

開始時における円弧の中心座標を求めます。 //********************************************************************************** #macro Beginning_center(Mx,Px1,Pz1,Px2,Pz2,Ox0,Oz0) #local A=2*(Mx*(Px1-Px2)-(Pz1-Pz2)); #local B=2*(Px1-Px2)*(Mx…

背景の色を指定します。 //********************************************************************************** background { color rgb } //**********************************************************************************

ガンマ補正と反射・屈折回数ならびにカメラや光源の位置などを設定します。 //********************************************************************************** global_settings { assumed_gamma 2.2 max_trace_level 5 } camera { angle 60 location …

二次近似の曲線により英文字をレンダリングします。

バンプマップとして画像を円板に貼り付けます。 //********************************************************************************** disc { 0 z, 3/4 texture { pigment { gradient x color_map { [ 0/3 rgb ] [ 1/3 rgb ] [ 2/3 rgb ] [ 3/3 rgb ] } …

背景の色を指定します。 //********************************************************************************** background { color rgb } //*********************************************************************************

ガンマ補正と反射・屈折回数ならびにカメラや光源の位置などを設定します。 //********************************************************************************** global_settings { assumed_gamma 2.2 max_trace_level 5 } camera { location look_at 0…

画像をバンプマップとして平面に貼り付けたものをレンダリングします。

泡をイメージした物体を外向きの法線方向に配置します。 //********************************************************************************** Normal_surface2(pi*,pi*,0) //************************************************************************…

泡をイメージした形状を定義します。 //********************************************************************************** #local Obj_seg = sphere { 0, 6 pigment { rgb 1 filter 1 } finish { ambient .1 diffuse .1 reflection .2 specular 1 rough…

円状に広がる部分を描画します。 //********************************************************************************** #local Spark_seg = sphere { 0, 30 pigment { color rgbt } interior { media { M_spark } } scale 5 hollow } #local Flare_seg =…

円状に広がる部分の色を指定します。 //********************************************************************************** #local Cv1=; #local Cv2=; #local Cv3=; #local M_spark = media { emission rgb 0.02 intervals 10 samples on,1 confidence …

背景となる部分を描画します。 //********************************************************************************** #local P_lightening = pigment { granite turbulence 0.49 color_map { [0.00 rgbf ] [0.28 rgbf ] [0.29 rgbf ] [0.30 rgbf ] [0.32…

外向き法線方向に物体を配置するための式を登録します。 //********************************************************************************** #macro Surface_function(Su,Sv,Func_no) #switch(Func_no) #case(0) #local F=30*; #break #end F #end //*…

外向きの法線方向に物体を配置するマクロです。 //********************************************************************************** #macro Normal_surface2(Vs,Ve,Func_no) union { #local Se=Ve.x; #local Ee=Ve.y; #local Ae=Ve.z; #while( Se #loc…

空間の三点により形成される平面の法線ベクトルを取得するマクロです。 //********************************************************************************** #macro Normal_vector(Tp1,Tp2,Tp3) #local Va=Tp3-Tp2; #local Vb=Tp2-Tp1; #local Lx=Va.y*…

直交座標を球面座標に変換するマクロです。 //********************************************************************************** #macro Spherical_coordinates(Vp) #local RR=vlength(Vp); #local Rh=vlength(); #if(Rh!=0) #if(Vp.z/Rh>=0) #local Sg…

背景の色を指定します。 //********************************************************************************** background { color } //**********************************************************************************

カメラと光源の位置などを指定します。 //********************************************************************************** camera { angle 20 location look_at 0 } light_source{ color rgb 1 } light_source{ color rgb 1 } //********************…

CSGにより泡のイメージをレンダリングします。