Математика

Физика

Химия

Биология

Техника и    технологии

 

Исходник загрузить

 

global Boot,a, n1,t0,t

 

global t3,t4,t5,t6,t7,t8,t9,t10,t11,t12

 

 

 

 

on beginsprite me

  

  my = sprite(me.spriteNum).member

  

  my.resetWorld()

  

  Boot =0

  

  a=0

  

  t0=0

  t =0

  n1 =0

  

  t3 = 0

  t4 = 0

  t5 = 0

  t6 =0

  t7 =0

  t8 =0

  t9 =0

  t10 =0

  t11 =0

  t12 =0

  ---------------

  myCicl--создания исходных данных

  

  

  my.newTexture("backdrop", #fromCastmember, member("sky"))

  

  my.camera(1).insertBackdrop(1,my.texture("backdrop"), point(0,0), 0)

  ------------------------------------------------------------------------

  set the url of member "Trousers"="Trousers.swa"

  ------------------------------------------------------------------------

  

end

 

 

 

on exitFrame me

  --set the url of member "Trousers"="Trousers.swa"

  --

  

  if (a=1) then

    --музыка

    myButton

    --------------------------------------------

    

    n1 =n1 + 1--счетчик

    

    t = t0+(n1-1)*0.35 --сущность всей системы

    

    --put t

    --------------------------------------------

    

    

    --Алгорим обработки

    Round

    

    --Шаг за шагом

    

    

    --1 шаг

    

    

  end if

  

  --Sphere01

  

  

  

  go the frame

  

  

  

end

 

 

-- создания обработки данных

 

--Button

on  myButton

  if  Boot=0 then

    

    --set the url of member "Trousers"="Trousers.swa"

    play (member "Trousers")

    

    Boot=1

  end if

  

end  --myButton

----

 

 

on  Round

  

  ------------------------------------------------------------

  

  -----------------------------------------------------

  

  ---------------------------------------------

  

  -----------------------------------------

  

  

  

  

  

  --Где

  

  --h(n)-h(0) =h(n)-h(n-1) =h(n+1)-h(n) =1 --приращение

  

  

  

  --h0-начальное условие

  

  -- n1 - счетчик

  

  -----------------------------------------

  

  ---------------------------------------------

  

  -----------------------------------------------------

  

  

  

  

  --member("my").model("Sphere01").translate(-10*sin(t),10*cos(t) ,0,#world)

  

  ------------------------------------------------------------

  --member("my").model("Sphere01").translate(0,-30*sin(t),30*cos(t) ,#world)

  

  --member("my").model("Sphere01").rotate(5,5,5)

  

  

  myobrabotkarote

  

  myobrabotka

  

  myobrabotka2

  

  

  --abs(-1)

  --power(1.6,2)

  

  --member("my").model("Sphere01").translate(0,5,0,#world)

end  -- Round

 

 

 

on myCicl

  repeat with x = 1 to 15

    

    S777 = string(x)

    

    member("my").model("Sphere01").clone("Sphere"&S777)

    

  end repeat

  

  

end --myCicl

 

 

 

on myobrabotkarote

  member("my").model("Group01").rotate(0,0,5)

  

end --rote

 

 

on myobrabotka

  

  --repeat with z = 1 to 15

  --

  

  --end repeat

  --1

  

  if  t>2 AND t<10 then

    member("my").model("Sphere1").translate(0,0,-1,#world)

  end if

  --2

  if  t>5  AND t<13  then

    member("my").model("Sphere2").translate(0,0,-1,#world)

  end if  

  

  --3

  if  t>8 AND t<16  then

    member("my").model("Sphere3").translate(0,0,-1,#world)

  end if  

  

  if  t>11  AND t<19  then

    

    member("my").model("Sphere4").translate(0,0,-1,#world)

    

  end if

  

  if  t>14 AND t<22    then

    member("my").model("Sphere5").translate(0,0,-1,#world)

  end if

  

  if  t>17 AND t<25    then

    member("my").model("Sphere6").translate(0,0,-1,#world)

  end if

  

  

  if  t>20 AND t<28    then

    member("my").model("Sphere7").translate(0,0,-1,#world)

  end if

  

  if  t>23 AND t<31    then

    member("my").model("Sphere8").translate(0,0,-1,#world)

  end if

  

  

  if  t>26 AND t<34    then

    member("my").model("Sphere9").translate(0,0,-1,#world)

  end if

  

  

  if  t>29 AND t<37    then

    member("my").model("Sphere10").translate(0,0,-1,#world)

  end if

  

  

end --

 

 

on myobrabotka2

  if  t>10 then

    

    t3 = t3+1

    --repeat with t3 = 1 to 5

    ht3 =t3*0.150 --сущность всей системы

    

    --member("my").model("Sphere1").translate(1,0,0,#world)

    

    member("my").model("Sphere1").translate(-12*cos(PI/4.0),0,12*sin(PI/4.0)-9.8*ht3,#world)

    --end repeat

  end if

  

  --2

  if t>13  then

    t4 = t4+1

    ht4 =t4*0.150 --сущность всей системы

    member("my").model("Sphere2").translate(-12*cos(PI/4.0),0,12*sin(PI/4.0)-9.8*ht4,#world)

  end if  

  

  --3

  if  t>16  then

    t5 = t5+1

    ht5 =t5*0.150 --сущность всей системы

    member("my").model("Sphere3").translate(-12*cos(PI/4.0),0,12*sin(PI/4.0)-9.8*ht5,#world)

    

  end if

  

  --4

  

  if  t>19  then

    t6 = t6+1

    ht6 =t6*0.150 --сущность всей системы

    member("my").model("Sphere4").translate(0,-12*cos(PI/4.0),12*sin(PI/4.0)-9.8*ht6,#world)

    

    

  end if

  

  --5

  if  t>22  then

    t7 = t7+1

    ht7 =t7*0.150 --сущность всей системы

    member("my").model("Sphere5").translate(0,-12*cos(PI/4.0),12*sin(PI/4.0)-9.8*ht7,#world)

    

  end if

  

  --6

  

  if  t>25  then

    t8 = t8+1

    ht8 =t8*0.150 --сущность всей системы

    member("my").model("Sphere6").translate(12*cos(PI/4.0),0,12*sin(PI/4.0)-9.8*ht8,#world)

    

  end if

  

  --7

  

  if  t>28  then

    t9 = t9+1

    ht9 =t9*0.150 --сущность всей системы

    member("my").model("Sphere7").translate(12*cos(PI/4.0),0,12*sin(PI/4.0)-9.8*ht9,#world)

    

  end if

  

  

  

  --8

  if  t>31  then

    t10 = t10+1

    ht10 =t10*0.150 --сущность всей системы

    member("my").model("Sphere8").translate(12*cos(PI/4.0),0,12*sin(PI/4.0)-9.8*ht10,#world)

    

  end if

  

  

  if  t>34  then

    t11 = t11+1

    ht11 =t11*0.150 --сущность всей системы

    member("my").model("Sphere9").translate(-12*cos(PI/4.0),0,12*sin(PI/4.0)-9.8*ht11,#world)

    

  end if

  

  if  t>37  then

    t12 = t12+1

    ht12 =t12*0.150 --сущность всей системы

    member("my").model("Sphere10").translate(-12*cos(PI/4.0),0,12*sin(PI/4.0)-9.8*ht12,#world)

    

  end if

  

end --

Назад

 

Hosted by uCoz