locked
small basic graphic and animations and more (3) RRS feed

All replies

  • holemaker 3d: ZXP733-0


    • Edited by Tryhest Sunday, August 21, 2016 11:55 AM
    Sunday, August 21, 2016 11:54 AM
  • That's really cool ! holemaker 3d

    can you do a blackhole simulation ?

    Sunday, August 21, 2016 7:12 PM
    Answerer
  • hangman w hanging anim:


     BKN968


    • Edited by Tryhest Tuesday, September 13, 2016 3:20 AM
    Monday, August 22, 2016 5:26 AM
  • nautilus:

    GCW323
    after run pan with mouse to adjust display angle and elevation




    • Edited by Tryhest Tuesday, September 13, 2016 3:18 AM
    Monday, August 22, 2016 6:06 AM
  • 3d road:


    SCW271


    • Edited by Tryhest Tuesday, September 13, 2016 3:22 AM
    Monday, August 22, 2016 7:06 AM
  • sierpinski's carpet:

    GraphicsWindow.BackgroundColor="darkblue"
    dw=desktop.Width
    dh=desktop.Height
    GraphicsWindow.width=240*3
    GraphicsWindow.Height=240*3
    GraphicsWindow.Top=20
    GraphicsWindow.Left=300
    GraphicsWindow.Title="Serpinski's carpet"
    size=240
    Program.Delay(1000)
    For n=0 To 2
      For m=0 To 2
        If n=1 And m=1 then
          GraphicsWindow.BrushColor="cyan"
        else
          GraphicsWindow.BrushColor="magenta"
        EndIf
        GraphicsWindow.FillEllipse (n*size,m*size,size*.95,size*.95)
      EndFor
    EndFor
    Program.Delay(1000)
    for h=1 To 5
      image = LDGraphicsWindow.Capture("",0)
      For n=0 To 2
        For m=0 To 2
          If n=1 And m=1 then
          else
            GraphicsWindow.DrawResizedImage(image,n*size,m*size,240,240)
          EndIf
        EndFor
      EndFor
      Program.Delay(1000)
    EndFor

    Monday, August 22, 2016 10:47 AM
  • sierpinski carpets:

    QSS786


    • Edited by Tryhest Tuesday, September 13, 2016 3:24 AM
    Monday, August 22, 2016 11:28 AM
  • coriolis effect:

    args=0
    GraphicsWindow.DrawEllipse (1 1 1 1)
    t_x=200
    t_y=200
    s6=30
    t_Angle =s6
    pp=102
    LDEvents.MouseWheel=mww
    GraphicsWindow.PenWidth =0
    GraphicsWindow.BackgroundColor ="darkcyan"
    While "true"
      ss=0
      For x=0 To 360 Step s6
        ss=ss+1
        LDCall.Function ("tmove" 30)
        cc[ss]=Shapes.AddEllipse(19 19)
        LDShapes.BrushColour (cc[ss] LDColours.HSLtoRGB (math.Remainder (x*2 360) 1 .6))
        LDShapes.move(cc[ss] t_x t_y)
        
        t_Angle=t_Angle +90
        LDCall.Function ("tmove" 240)
        Shapes.Animate(cc[ss] t_x t_y 500)
        Program.Delay(pp)
            If ss>5 Then 
          Shapes.Remove (cc[ss-5])
        endif
        LDCall.Function ("tmove", -240)
        t_Angle=t_Angle -90
        LDCall.Function ("tmove" 30)
        
        t_Angle =t_Angle +s6
      EndFor 
      GraphicsWindow.Clear ()
    EndWhile 
    
    Sub mww
      pp=pp+ LDEvents.LastMouseWheelDelta
      GraphicsWindow.Title =pp
    endsub
    
    sub tMove
      
      mm=LDMath.Convert2Cartesian  (t_x,t_y,args[1] t_Angle-90 )
      ox=t_x
      oy=t_y
      t_x= (mm[1])
      t_y= (mm[2])
      GraphicsWindow.DrawLine(ox oy t_x t_y)
    EndSub

    Tuesday, August 23, 2016 3:41 PM
  • sunflower:

    xc=450
    yc=450
    GraphicsWindow.Width =900
    GraphicsWindow.Height =900
    seeds=1000
    scf=5
    scf1=1
    GraphicsWindow.BackgroundColor ="darkblue"
    tau=LDMath.ArcTan(1)*8
    phi=(math.SquareRoot (5) + 1) / 2
    GraphicsWindow.PenWidth=0
    for  i = 0 to seeds
      theta = i * TAU / PHI
      r = math.SquareRoot (i) * SCf
      x = xc + r * math.cos(theta)
      y = yc - r * math.sin(theta)
      ee=Shapes.AddEllipse (7*scf1 7*scf1)
      LDShapes.Centre (ee x y)
      LDShapes.BrushColour (ee LDColours.HSLtoRGB (i/3 1 .6))
      scf1=scf1*1.0008
    endfor

    Tuesday, August 23, 2016 5:48 PM
  • animated disco-version flower:

    xc=450
    yc=450
    GraphicsWindow.Width =900
    GraphicsWindow.Height =900
    seeds=600
    scf=5
    scf1=1
    GraphicsWindow.BackgroundColor ="darkblue"
    tau=LDMath.ArcTan(1)*8
    phi=(math.SquareRoot (5) + 1) / 2
    GraphicsWindow.PenWidth=0
    for  i = 0 to seeds
      theta = i * TAU / PHI
      r = math.SquareRoot (i) * SCf
      x = xc + r * math.cos(theta)
      y = yc - r * math.sin(theta)
      ee=Shapes.AddEllipse (7*scf1 7*scf1)
      LDShapes.Centre (ee x y)
      LDShapes.BrushColour (ee LDColours.HSLtoRGB (i/3 1 .6))
      scf1=scf1*1.0008
      LDShapes.AnimateOpacity (ee 1500 0)
      Program.Delay (15)
    endfor

    Tuesday, August 23, 2016 5:53 PM
  • twinkling starflower:

    xc=450
    yc=450
    GraphicsWindow.Title ="Starflower"
    GraphicsWindow.Width =900
    GraphicsWindow.Height =900
    seeds=600
    scf=5
    scf1=1
    GraphicsWindow.BackgroundColor ="darkblue"
    tau=LDMath.ArcTan(1)*8
    phi=(math.SquareRoot (5) + 1) / 2
    GraphicsWindow.PenWidth=0
    for  i = 0 to seeds
      theta = i * TAU / PHI
      r = math.SquareRoot (i) * SCf
      x = xc + r * math.cos(theta)
      y = yc - r * math.sin(theta)
      ee=ldShapes.AddStar  (6 7*scf1/4 7*scf1/1.5)
      LDShapes.move (ee x y)
      LDShapes.BrushColour (ee LDColours.HSLtoRGB (i/3 1 .6))
      scf1=scf1*1.0008
      ldshapes.AnimateOpacity (ee 1500 10) 
      
      Program.Delay (10)
    endfor

    Tuesday, August 23, 2016 6:26 PM
  • blackhole suction dots:

    GraphicsWindow.BackgroundColor="darkblue"
    cx=624/2
    cy=442/2
    a=0
    GraphicsWindow.Title ="Dotties"
    GraphicsWindow.PenWidth = 0
    LDPhysics.SetGravity(0,0)
    For n=1 To 600
      r15=math.SquareRoot(n)/2+4
      x=cx+ldmath.Sin(a)*(cy-10)
      y=cy+ldmath.Cos(a)*(cy-10)
      dx=ldmath.Sin(a)
      dy=ldmath.Cos(a)
      GraphicsWindow.BrushColor=LDColours.HSLtoRGB (n/2 1 .6)
      t[n] = Shapes.AddEllipse(r15,r15)
      LDPhysics.AddMovingShape(t[n],1,0,0)
      LDPhysics.SetPosition(t[n],x,y,0)
      LDPhysics.SetVelocity(t[n],-dx*50,-dy*50)
      a=a+137.5
      LDPhysics.DoTimestep()
    EndFor
    a=0
    While 1=1
      dx=ldmath.Sin(a)*250
      dy=ldmath.Cos(a)*250
      LDPhysics.SetGravity(dx,dy)
      a=a+5
      LDPhysics.DoTimestep()
    EndWhile

    Tuesday, August 23, 2016 6:46 PM
  • rotating 3D dna model: CSH687-2

    • Edited by Tryhest Wednesday, August 24, 2016 4:49 AM
    Wednesday, August 24, 2016 4:47 AM
  • hugry blackhole: BSH241

    • Edited by Tryhest Wednesday, August 24, 2016 10:02 AM
    Wednesday, August 24, 2016 10:02 AM
  • 3d pendulum: NSX174
    Wednesday, August 24, 2016 11:20 AM
  • jellyfish: QPF671
    Wednesday, August 24, 2016 12:53 PM
  • @TryHest

    Very very good !! wonderful 3d black hole effect , wow !!!!

    Wednesday, August 24, 2016 11:59 PM
    Answerer
  • @Tryhest

    Amazing 3D DNA rotating simulation, FANTASTIC !!!!!!!!


    • Edited by YLedEditor Thursday, August 25, 2016 12:14 AM
    Thursday, August 25, 2016 12:01 AM
    Answerer
  • ty yled))

    blasting: QWF512


    • Edited by Tryhest Thursday, August 25, 2016 3:25 AM
    Thursday, August 25, 2016 3:24 AM
  • 3d webcobb: JXN733

    Friday, August 26, 2016 9:45 AM
  • 3d printer pottery: QCW865

    for those who want to see 3d printer output and doesn't have one yet. u can vary the function to obtain different radiuses and shapes .

    notice that the output is slow if u increase quality and smaller the radius, just like in real 3d printing that takes hours and even days to finish sometimes((


    • Edited by Tryhest Saturday, August 27, 2016 3:55 AM
    Saturday, August 27, 2016 3:38 AM
  • Wow !!! 3d printer nice idea :)
    Saturday, August 27, 2016 3:42 AM
    Answerer
  • moving bags: BKD171

    Sunday, September 4, 2016 6:24 AM
  • Hello Tryhest

    You publish remarkable animations on this forum, and this one is amazing! Your animations become more and more fascinating every day.

    Sunday, September 4, 2016 3:51 PM
    Answerer
  • tx yled)) u made noticeable progress in short time also.

    now zodiac in 3d with grid: RFS623


    • Edited by Tryhest Monday, September 5, 2016 4:05 AM
    Monday, September 5, 2016 4:04 AM
  • 3D  rotating umbrela: XZP691

     
    Monday, September 5, 2016 4:25 AM
  • 3d fungus: QCK206

    Monday, September 5, 2016 4:33 AM
  • happy handy umbrella: JHB234

    Monday, September 5, 2016 4:50 AM
  • octopussy: SNS650


    • Edited by Tryhest Monday, September 5, 2016 5:53 AM
    Monday, September 5, 2016 5:35 AM
  • 3d lamp: FKT126

    Monday, September 5, 2016 5:48 AM
  • 3d digital rotating clock: MHT251

    Monday, September 5, 2016 7:21 AM
  • beautifull 3d fungus

    now try a version with many many fungus falling very slowly down like rain ! :)

    Monday, September 5, 2016 7:24 PM
    Answerer
  • but the fungus are not usually falling down ,but growing up)) mostly after rain
    • Edited by Tryhest Tuesday, September 6, 2016 2:39 PM
    Tuesday, September 6, 2016 2:39 PM
  • Hi Tryhest !

    like this program: surrealistic flying fungus !! by Yled.

    program no: XQG699

    Tuesday, September 6, 2016 5:51 PM
    Answerer
  • 3d lemniscate rotating: THP558

    Tuesday, September 6, 2016 8:29 PM
  • pi lace: BCC798

    Tuesday, September 6, 2016 10:03 PM
  • wow !!! pi lace , great effect !!

    Wonderful :)

    Tuesday, September 6, 2016 11:54 PM
    Answerer
  • pi/fi lace in 3d: RXP210

    Wednesday, September 7, 2016 5:32 AM
  • rotating eiffel tower (kinda): CJV777

    Wednesday, September 7, 2016 6:20 AM
  • watermill: SHX705

    Saturday, September 10, 2016 4:03 AM
  • pendulum clock: NQV397
    Sunday, September 11, 2016 1:12 AM
  • waterpump games: RZV471

    Sunday, September 11, 2016 2:01 AM
  • sand&pendulum clock:MPN207
    • Edited by Tryhest Sunday, September 11, 2016 7:18 PM MPN207
    Sunday, September 11, 2016 7:18 PM
  • rotating mazes:

    Tuesday, September 13, 2016 3:14 AM
  • Hi Tryhest !

    your sand & pendulum clock is amazing !

    here is a screen capture of your program

    Tuesday, September 13, 2016 12:05 PM
    Answerer
  • waterfall words: KRJ992
    Thursday, September 15, 2016 5:59 AM
  • updated: FMC195-1

    • Edited by Tryhest Friday, September 16, 2016 3:47 AM
    Thursday, September 15, 2016 4:08 PM
  • gravity lab:FZM654

    use mswheel to adjust angle of rotation and obtain various effects

    Friday, September 16, 2016 7:17 PM
  • simple pseudo-3d demo tubes: LGQ405

    Friday, September 16, 2016 8:06 PM
  • tubes w mswheel regulation: VJH175

    Friday, September 16, 2016 8:35 PM
  • pseudo-3D hand: KLL662


    • Edited by Tryhest Friday, September 16, 2016 9:15 PM
    Friday, September 16, 2016 9:15 PM
  • sawmill in action: JWP624

    Saturday, September 17, 2016 6:50 AM
  • I have really enjoyed this sawmill simulation.:)

    Fantastic 3D programs as allways !!!

    Saturday, September 17, 2016 5:20 PM
    Answerer
  • tx yled))

    pendulums in action: PKH286

    Sunday, September 18, 2016 7:35 PM
  • @Tryhest

    hi! i started with the pendulum programs you did, and add some modifications, changes somes values, and ended with Something new and amazing,

    Vibrating Ropes with buttons.

    program no: PKH286-0

    Sunday, September 18, 2016 10:56 PM
    Answerer
  • quite crazy effects))

    try to produce some music also with vibrating))

    Monday, September 19, 2016 7:26 PM
  • Yvans masterpiece with little modifications.

    Not music but spherical sounds...

    GraphicsWindow.Width =1366
    GraphicsWindow.Height =768
    GraphicsWindow.TOP=0
    GraphicsWindow.LEFT=0
    
    GraphicsWindow.PenWidth=0
    GraphicsWindow.BackgroundColor ="BLACK"
    LDMusic.Reset()
    LDPhysics.Reset ()
    
    For r=1 To 25
       
    GraphicsWindow.BrushColor =LDColours.HSLtoRGB (r*32 ,1.2 ,0.75)
     
    ee[r]=Shapes.AddEllipse (80 30)
    LDPhysics.AddMovingShape (ee[r] 0 1 4)
    
      rr[r]=Shapes.AddRectangle (1 1400)
      LDPhysics.AddMovingShape (rr[r] 0 1 0)
      LDPhysics.SetPosition (ee[r], 30 280 0)
      LDPhysics.SetPosition (rr[r] 30 140 0)
      
      LDPhysics.GroupShapes (rr[r] ee[r])
      
      If r=1 then
        LDPhysics.SetPosition (rr[1] 10 209 45)
        aa[1]=LDPhysics.AddFixedAnchor (200  10) 
        
      Else
        
        LDPhysics.SetPosition (rr[r] (r-1)*31+205 285 0)
        aa[r]=LDPhysics.AddFixedAnchor (205+(r-1)*31 10) 
        
      endif
    
      'LDPhysics.AttachShapesWithRotation   (aa[r] rr[r])
    EndFor 
    LDPhysics.SetGravity (0 800)
     
    While "true
      LDPhysics.DoTimestep ()
      pos1 = LDPhysics.GetPosition(ee[2])
      Octave = Math.Floor(Pos1[1]/100)+1 
      channel= Octave
      pos2 = LDPhysics.GetPosition(ee[3])
      t_time = Math.GetRandomNumber(100)
      i = Math.Floor(Pos2[1]/25)+10 
      'TextWindow.WriteLine(pos1 + Octave + " I= "+i)
      Spheric()
    EndWhile 
      
    Sub Spheric
      LDMusic.Instrument = i
      LDMusic.Velocity = i + 60
      x=LDMusic.PlayNote(Octave,"A",channel)
      LDMusic.EndNote(x)
      LDMusic.Reset()
      LDMusic.PlayNote(Octave,"C",channel)
      LDMusic.PlayNote(Octave,"E",channel)
      Program.Delay(i)  
      LDMusic.Reset()
      LDMusic.PlayNote(Octave,"A",channel)
      Program.Delay(i)
      LDMusic.Reset()
      LDMusic.PlayNote(Octave,"F",channel)
      Program.Delay(i)
      LDMusic.Reset()
      LDMusic.PlayNote(Octave,"D",channel)
      Program.Delay(i)
      LDMusic.Reset()
      LDMusic.PlayNote(Octave,"G",channel)
      Program.Delay(i)
      LDMusic.Reset()
      LDMusic.PlayNote(Octave,"H",channel)
      Program.Delay(i)
      LDMusic.Reset()
      LDMusic.PlayNote(Octave,"A",channel)
      Program.Delay(i)
      LDMusic.Reset()
    Endsub

    Monday, September 19, 2016 11:10 PM
  • pendulums v2: PTT115
    Tuesday, September 20, 2016 2:25 PM
  • @backtothestart

    WOW !!! great dynamics music effect

    let me see what i can add to that, stay tune !!

    Tuesday, September 20, 2016 2:48 PM
    Answerer
  • spiral flowers: KKJ869

    Wednesday, September 21, 2016 9:48 AM
  • snails: TMV374

    Wednesday, September 21, 2016 11:32 AM
  • rotating snails: QSW829
    Wednesday, September 21, 2016 11:55 AM
  • dominos: XWL745

    Thursday, September 22, 2016 4:39 PM
  • dominos v2: LFJ338
    Thursday, September 22, 2016 4:43 PM
  • physic game: Fill the void TNM483

    rules: use just mousewheel to adjust ball size in order to slide the cap into black void

    Friday, September 23, 2016 11:10 AM
  • @tryhest

    great game !!!  cool LDphysic examples.

    here is my score:

    Friday, September 23, 2016 3:00 PM
    Answerer
  • cool yled))

    now added levels 2 & 3: TNM483-0

    level 3 requires great skill n patience to solve))

     
    Friday, September 23, 2016 5:09 PM
  • 3d hen (nonki's design) GCZ059


    u can change display angle by clicking n dragging mouse around

    if displays correctly only leftview angle for now

    use mswheel to zoom in/out

    • Edited by Tryhest Sunday, September 25, 2016 8:05 PM
    Sunday, September 25, 2016 8:03 PM
  • Sunday, September 25, 2016 8:13 PM
  • Tryhest, nice rotation / zoom modification.

    I rewrote your program a little: GCZ059-0.

    Screen shot of a program 3-D Hen Tryhest version + alpha


    Nonki Takahashi

    Monday, September 26, 2016 12:53 AM
    Moderator
  • now in real 3d: WWP083

    Monday, September 26, 2016 1:48 AM
  • now with texture: KXH666

    used texture

    result:

    • Edited by Tryhest Monday, September 26, 2016 2:12 AM
    Monday, September 26, 2016 1:50 AM
  • hens meeting: CRZ156

     
    Monday, September 26, 2016 3:47 AM
  • Very cool !! Tryhest
    Monday, September 26, 2016 4:29 PM
    Answerer
  • rotating stones: XNH049

    pattern:


    u can adjust rotation direction by mouse dragging and zoom by mswheel
    • Edited by Tryhest Tuesday, September 27, 2016 7:12 AM
    Tuesday, September 27, 2016 7:11 AM
  • grinding machine: THK440
    Wednesday, September 28, 2016 3:39 AM