Delphi dasturlash tili. Ishlatish uchun juda qulay dastr. O‘rnating va ijod qiling.

Video darslik

Diqqat ! ! !

Xurmatli kanalimiz a'zolari kanalimizga do'stlaringizni taklif qilishni unutmang.

https://t.iss.one/il_dil_softs

3 Ds MAX Script dasturini o'rganuvchilar uchun 10 ta video darslar to'plami.

Видеокурс ___“MAXScript. Базовый___“. Лекция 1

Видеокурс ___“MAXScript. Базовый___“. Лекция 2

Видеокурс ___“MAXScript. Базовый___“. Лекция 3

Видеокурс ___“MAXScript. Базовый___“. Лекция 4

Видеокурс ___“MAXScript. Базовый___“. Лекция 5

Видеокурс ___“MAXScript. Базовый___“. Лекция 6

Видеокурс ___“MAXScript. Базовый___“. Лекция 8

Видеокурс ___“MAXScript. Базовый___“. Лекция 9

3Ds MAX Script uchun misollar

3Ds MAX Script uchun qo'llanma

Pascal ABC NET dasturida 3D grafikada animatsiya. uses Graph3D;
function ParametricTrajectory(a,b: real; N: integer; fun: real->Point3D) := PartitionPoints(a,b,N).Select(fun);

begin
var tr := ParametricTrajectory(0,2*Pi,100,t->P3D(8*cos(t),4*sin(t),0));
Polyline3D(tr);
var b := Sphere(tr.First,1,Colors.Blue);
b.AnimMoveTrajectory(tr.Skip(1),5).Forever.Begin;
end.

//Pascal ABCNET dasturida Kubik-Rubik dasturi.
uses Graph3D;

var InnerColor := RGB(70,70,70);
var sec := 0.5;

var g := new Object3D[3,3,3];

procedure CreateCube;
begin
var a := 1.03;

for var x := 0 to 2 do
for var y := 0 to 2 do
for var z := 0 to 2 do
if (x,y,z) <> (1,1,1) then
begin
var b := Box(0+x*a-a,0+y*a-a,-0.5+z*a-a,1,1,0.01,z=0 ? Colors.White : InnerColor);
var b3 := Box(0+x*a-a,0+y*a-a,0.5+z*a-a,1,1,0.01,z=2 ? Colors.Yellow : InnerColor);

var b1 := Box(0.5+x*a-a,0+y*a-a,0+z*a-a,0.01,1,1,x=2 ? Colors.Red : InnerColor);
var b4 := Box(-0.5+x*a-a,0+y*a-a,0+z*a-a,0.01,1,1,x=0 ? Colors.Orange : InnerColor);

var b2 := Box(0+x*a-a,0.5+y*a-a,0+z*a-a,1,0.01,1,y=2 ? Colors.Green : InnerColor);
var b5 := Box(0+x*a-a,-0.5+y*a-a,0+z*a-a,1,0.01,1,y=0 ? Colors.Blue : InnerColor);

g[x,y,z] := Group(b,b1,b2,b3,b4,b5);
end;
end.