merhaba arkadaşlar

 
  rollout pervane "ramazan" width:400 height:470 
  ( 
    groupbox grb1 "Türbün Secenekleri" width:350 height:185 pos:[10,10] 
    groupbox grb2 "Türbün Renkleri" width:350 height:90 pos:[10,210] 
    radiobuttons rd1 width:60 height:80 pos:[40,165] labels:#(" "," ","") 
    bitmap bm1 width:66 height:66 pos:[15,95] filename:"1.jpg" 
    bitmap bm2 width:66 height:66 pos:[91,95] filename:"2.jpg" 
    bitmap bm3 width:66 height:66 pos:[167,95] filename:"3.jpg" 
    bitmap bm4 width:66 height:66 pos:[167,95] filename:"maxscript.jpg" 
    label lbl1 "Kanat Sayisi" pos:[30,30] 
    label lbl2 "Kanat Bükümü" pos:[30,50] 
    label lbl3 "Kanat Egimi" pos:[30,70] 
    label lbl4 "Kanat Rengi" pos:[30,230] 
    label lbl5 "Göbek Rengi" pos:[30,260] 
    spinner sp1 width:40 pos:[160,30] range:[0,35,20] type:#integer 
    spinner sp2 width:40 pos:[160,50] range:[0,40,15] type:#integer 
    spinner sp3 width:40 pos:[160,70] range:[0,80,20]type:#integer 
    colorpicker cp1 width:40 height:20 pos:[160,230] 
    colorpicker cp2 width:40 height:20 pos:[160,260] 
    button btn1 "OLUSTUR" width:80 height:30 pos:[85,310] 
    on btn1 pressed do 
    ( 
      case rd1.state of 
      ( 
        1:( 
            for i=0 to sp1.value do 
            ( 
              b=chamferbox length:122 width:26 height:1 length_segments:19 width_segments:6 height_segments:1 Fillet_segments:1 Fillet:30 wirecolor:cp1.color pos:[0,150,0] 
              addmodifier b(twist()) 
              b.twist.axis=0 
              b.twist.angle=sp3.value 
              addmodifier b (bend()) 
              b.bend.angle=sp2.value 
              addmodifier b(taper()) 
              b.taper.primaryaxis=1 
              b.taper.amount=0.8 
              about coordsys rotate b (EulerAngles 0 0(i*360/sp1.value)) 
            ) 
            cs=cylinder radius:94 height:60 sides:39 wirecolor:cp2.color pos:[0,0,-30] 
            m=group $chamferbox* 
          ) 
        2:( 
            for i=0 to sp1.value do 
            ( 
              b=chamferbox length:122 width:26 height:1 length_segments:19 width_segments:6 height_segments:1 Fillet_segments:1 Fillet:30 wirecolor:cp1.color pos:[0,150,0] 
              addmodifier b(twist()) 
              b.twist.axis=0 
              b.twist.angle=sp3.value 
              addmodifier b (bend()) 
              b.bend.angle=sp2.value 
              addmodifier b(taper()) 
              b.taper.primaryaxis=1 
              b.taper.amount=0.8 
              about coordsys rotate b (EulerAngles 0 0(i*360/sp1.value)) 
            ) 
            cs=OilTank radius:95 Cap_Height:80 height:180 Blend:0 sides:40 height_segments:1 wirecolor:cp2.color pos:[0,0,-90] 
            m=group $chamferbox* 
          ) 
        3:( 
            for i=0 to sp1.value do 
            ( 
              b=chamferbox length:122 width:26 height:1 length_segments:19 width_segments:6 height_segments:1 Fillet_segments:1 Fillet:30 wirecolor:cp1.color pos:[0,150,0] 
              addmodifier b(twist()) 
              b.twist.axis=0 
              b.twist.angle=sp3.value 
              addmodifier b (bend()) 
              b.bend.angle=sp2.value 
              addmodifier b(taper()) 
              b.taper.primaryaxis=1 
              b.taper.amount=0.8 
              about coordsys rotate b (EulerAngles 0 0(i*360/sp1.value)) 
            ) 
            cs=OilTank radius:90 Cap_Height:65 height:170 Blend:0 sides:40 height_segments:1 wirecolor:cp2.color pos:[0,0,-120] 
            addmodifier cs(Squeeze ()) 
            cs.modifiers[#Squeeze].Bulge_Amount = 0.2 
            m=group $chamferbox* 
          ) 
        ) 
      ) 
    ) 
  createdialog pervane