"And" <49341109@ntnu.edu.tw> wrote:
> "LanuHum" <Lan### [at] yandexru> wrote:
> > One wish:
> > If L < (2 * R):
> > sphere transform.
> >
> > It is possible for you?
>
> Em... I don't understand what's your meaning.

#version 3.7;

#include "functions.inc"
global_settings {
    assumed_gamma 1.000000
    max_trace_level 3
}
sky_sphere {
    pigment {rgb<0.050, 0.050, 0.050>}
}

#declare Default_texture = texture{pigment {rgb 0.8}}

#include "bezier_spheresweep.inc"

#declare BezierCurve_pts = array[16]{
    <-1,0,0.0000><-0.6286,0,0.0000><-0.1439,0,0.0000><-0.04874,0,0.0000>
    <-0.04874,0,0.0000><-0.02971,0,0.0000><-0.01903,0,0.0000><0,0,0.0000>
    <0,0,0.0000><0.01903,0,0.0000><0.02971,0,0.0000><0.04874,0,0.0000>
    <0.04874,0,0.0000><0.1439,0,0.0000><0.6286,0,0.0000><1,0,0.0000>
}
#declare BezierCurve_rs = array[16]{
    0.0860,0.0860,0.0860,0.0860
    0.0860,0.1406,0.1952,0.2498
    0.2498,0.1952,0.1406,0.0860
    0.0860,0.0860,0.0860,0.0860
}

#declare data_BezierCurve_ob = object{Shape_Bezierpoints_Sphere_Sweep(yes,12,
BezierCurve_pts, BezierCurve_rs)
    texture {Default_texture}
}
object {data_BezierCurve_ob
    texture {Default_texture}
    matrix <1.000000, 0.000000, 0.000000,  0.000000, -0.000000, -1.000000,
0.000000, 1.000000, -0.000000,  0.000000, 0.000000, 0.000000>
}

light_source {
    <5.07,5.58,4.28>
    color rgb<1, 1, 1>
    fade_distance 25.0000000000
    fade_power 1
}
camera {
    perspective
    location  <0,0,0>
    look_at  <0,0,-1>
    right <-1.7777777777777777, 0, 0>
    up <0, 1, 0>
    angle  49.134343
    rotate  <-27.098163, 46.688390, -0.903519>
    translate <7.481132, 5.343666, 6.507640>
}

Post a reply to this message

Attachments:
Download 'bezier.jpg' (196 KB)

Preview of image 'bezier.jpg'