none
small basic graphic and animations and more (12) RRS feed

All replies

  • sb chess beta: HQQ405

    figures:

    usage:

    • select fig. by cursor keys
    • press enter and type pos like c5
    • to zoom in/out use mswheel

    Wednesday, May 22, 2019 7:24 AM
  • sb chess update: HQQ405-0

    • added rotation and shadows
    Wednesday, May 22, 2019 9:47 AM
  • alternative skin 4 sb chess:

    Wednesday, May 22, 2019 10:01 AM
  • upd.0.31 infoboard+multilng. support added: HQQ405-2



    • Edited by Tryhest Thursday, May 23, 2019 5:21 AM
    Thursday, May 23, 2019 5:00 AM
  • new ui mode:HQQ405-3

    • to select piece press Space
    • to select destination press Enter
    • move yellow marker by cursor keys


    • Edited by Tryhest Thursday, May 23, 2019 5:46 AM
    Thursday, May 23, 2019 5:45 AM
  • standard skinset figures v0.42: MQR842

    • pawn,knight and rook movement completed test (still  missing en passan and pwn2queen at end)

    • Edited by Tryhest Thursday, May 23, 2019 8:43 PM
    Thursday, May 23, 2019 6:40 AM
  • added turn check, corrrected bugs, added esperanto:CXV562

    Friday, May 24, 2019 4:07 AM
  • real 3d chess: WVD200-0


    • Edited by Tryhest Friday, May 24, 2019 7:48 PM
    Friday, May 24, 2019 6:26 PM
  • specular bottle: LCP287

    Friday, May 24, 2019 8:17 PM
  • added anim and skin: LCP287-1

    skinpic:


    • Edited by Tryhest Friday, May 24, 2019 9:07 PM
    Friday, May 24, 2019 8:58 PM
  • draws el. schemes: MSG425-0

    sample scheme file:

    Image1:215.6:356.7::
    Image2:-41.2:267.1:-90:
    Image3:41.2:353.5::
    Image4:39.6:181.5:0:ImageList9
    Line1:287.5:230:287.5:57.5:#000000:231.2:312
    Image5:208.5:118.7:-45:ImageList4
    Line2:402.5:230:402.5:230:#000000::
    Line3:402.5:230:460:402.5:#000000:377.6:319.2
    Image6:333.2:67.9:0:ImageList6
    Image7:422.8:156.7:-90:ImageList8
    Line4:575:287.5:460:402.5:#000000:465.6:347.2

    el.parts to be saved as following filenames:

    lm1.png

    lm12.png

    lm11.png:

    usage:

    • to draw lines: turn grid on and click on 2 grid dots
    • to adjust pars angle use mswheel
    • to move rightclick and choose move


    • Edited by Tryhest Monday, May 27, 2019 10:12 AM
    Monday, May 27, 2019 5:02 AM
  • optional parts:

    pnp.png and npn.png

    cpp.png

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

    rsst.png

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

    didd.png

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

    swwc.png


    • Edited by Tryhest Monday, May 27, 2019 5:11 AM
    Monday, May 27, 2019 5:07 AM
  • random sine flowers:

    args=0
    GraphicsWindow.BackgroundColor="teal"
    Sub sff
      f7=(Math.GetRandomNumber(5)+6)/10
      f11=1.8-f7
      For r=0 To 360 Step .05
        d= math.abs(LDMath.Sin(r*2))*args[3]*f7
        k=LDMath.Convert2Cartesian(args[1] args[2] d r)
        GraphicsWindow.SetPixel(k[1] k[2] "darkblue")
        d= math.abs(LDMath.Sin(r*2+90))*args[3]*f11 
        k=LDMath.Convert2Cartesian(args[1] args[2] d r)
        GraphicsWindow.SetPixel(k[1] k[2] "darkblue")
      EndFor
      
      For r=0 To 360 Step 45
        d= math.abs(LDMath.Sin(r*2+45))*(args[3]-5)*.65
        k=LDMath.Convert2Cartesian(args[1] args[2] d r)
        LDGraphicsWindow.FloodFill(k[1] k[2] LDColours.HSLtoRGB(r*.9+Math.GetRandomNumber(90) 1 .5))
      EndFor
    EndSub
    
    For x=0 To 8
      LDCall.Function3("sff" (Math.Remainder(x 3)*120)+100 Math.Floor(x/3)*120+100 Math.GetRandomNumber(40)+20)
    EndFor

    Monday, May 27, 2019 6:31 AM
  • sb random generated village: XKV670

    Friday, May 31, 2019 8:23 PM
  • added anim and nonki's tree&monkey:XKV670-1


    • Edited by Tryhest Saturday, June 1, 2019 3:43 AM
    Saturday, June 1, 2019 3:12 AM
  • balcony: DRF920

    Sunday, June 2, 2019 2:35 AM
  • balcony w stairs: JJK555

    Monday, June 3, 2019 9:47 AM
  • real 3d stairway:RGR475

    Wednesday, June 5, 2019 5:24 AM
  • 3-floor stairs: VJT997

    Wednesday, June 5, 2019 8:15 PM
  • update with balcony VJT997-1

    Thursday, June 6, 2019 3:53 AM
  • update for better graphic cards: MSF996

    • requires 300 mb of free ram, 4096 3d objects drawn
    • corrected cam position to watch buildup process

    Thursday, June 6, 2019 5:25 PM
  • 3d maps from 2d ortofoto: WNN437

    use mouse & cursors to move around 3D view

    image to be used:

    Saturday, June 8, 2019 3:07 AM
  • lorenz attractor:

    x = 0.01
    y = 0
    z = 0
    
    a = 10
    b = 28
    c = 8.0/3.0
    For m=1 To 900'<---change to get more 3d pts'
      dt = 0.01
      dx = (a * (y - x))*dt
      dy = (x * (b - z) - y)*dt
      dz = (x * y - c * z)*dt
      x = x + dx
      y = y + dy
      z = z + dz
      dd=":"
      pp=pp+x+dd+y+dd+z+dd
    EndFor
    GraphicsWindow.BackgroundColor="tan"
    GraphicsWindow.Width=900
    GraphicsWindow.Height=700
    GraphicsWindow.Title="3D Lorenz Strange Attractor"
    view3D = LD3DView.AddView(900,900,"True")
    LD3DView.AddAmbientLight(view3D "#77777777")
    LD3DView.AddSpotLight (view3D,"white",1 1 1, -1,-1,1 30, 10)
    LD3DView.AddDirectionalLight (view3D,"#bbaaaaaa" ,-1,-7,-1)
    LD3DView.AutoControl2 ( 1 1)
    LD3DView.AddTube(view3D pp .1 6 "red" "D")
    cpp="1=-49.0714605624182;2=-37.3829862650659;3=19.2394138435167;4=0.886959487895967;5=0.460278183740605;6=0.0380376182715753;7=-0.447533751063529;8=0.836205885253392;9=0.31697517115162"
    LD3DView.ResetCamera(view3D cpp[1] cpp[2] cpp[3] cpp[4] cpp[5] cpp[6] cpp[7] cpp[8] cpp[9])

    Monday, June 10, 2019 4:13 AM
  • updated per.table w wiki images bg: LTF622-0


    • Edited by Tryhest Tuesday, June 11, 2019 4:24 AM
    Monday, June 10, 2019 10:04 PM
  • elements v2 update: LTF622-1

    pics downloader: JFM158

    • 1st run the downloader(takes some time to download pics from net, prior to run modify folder to store pics locally
    •  then u can run the elements app, modify folder to match the downloaded pics


    • Edited by Tryhest Thursday, June 13, 2019 9:20 AM
    Thursday, June 13, 2019 9:19 AM
  • per.table v2: JSL873

    placeholder image:

    image downloader update: GWM195-0

    after dl of images use above image to fill elements 61,85,86,87,89 (rename it accordingly to el61.jpg and so on)



    also element pics 21,22,23, 27,38,39,45,47, 71 can be downsized below 4mb to speedup loading
    • Edited by Tryhest Saturday, June 15, 2019 7:01 AM
    Saturday, June 15, 2019 6:49 AM
  • also update for table v1: JWM011

    Saturday, June 15, 2019 8:25 AM
  • per.table updt.: MJH241

    new:

    • electron orbit disribution
    • use cursorkeys <- & -> to move to next/prev. element and display other infos ands el.config

    Monday, June 17, 2019 6:43 PM
  • the sun: SWN094

    Thursday, June 27, 2019 1:57 AM
  • 3d Earth w clouds layer spinning:

    GraphicsWindow.BackgroundColor="darkblue"
    GraphicsWindow.Width=900
    GraphicsWindow.Height=900
    GraphicsWindow.Title="3D Earth"
    view3D = LD3DView.AddView(900,900,"True")
    LD3DView.AddAmbientLight(view3D "#77777777")
    LD3DView.AddSpotLight (view3D,"white",1 1 1, -1,-1,1 30, 10)
    LD3DView.AddDirectionalLight (view3D,"#bbaaaaaa" ,30,-7,-1)
    LD3DView.AutoControl2 ( 1 1)
    s1=LD3DView.AddSphere(view3D 3 20 "blue" "D")
    s11=LD3DView.AddSphere(view3D 3.01 20 "transparent" "D")
    i1=ImageList.LoadImage("e:\earth\earth.jpg")
    i2=ImageList.LoadImage("e:\earth\clouds.png")
    LD3DView.AddImage(view3D s1 "" i1 "D")
    LD3DView.AddImage(view3D s11 "" i2 "D")
    LD3DView.AnimateRotation(view3D s1 0 0 1  0 360 120,-1)


    • Edited by Tryhest Friday, June 28, 2019 3:51 AM
    Friday, June 28, 2019 3:50 AM
  • calculates the exact duration of 1/12 of year by months:

    yl=365
    For yy=2019 To 2020
      For x=0 To 11
        dd=LDDateTime.Add(LDDateTime.FromOADate( LDDateTime.OADate(yy 1 1 0 0 0)) yl*x/12)
        if text.GetLength(dd)=19 Then
          dd=LDText.Replace(dd yy+". " yy+".  ")
        EndIf
        textwindow.WriteLine(text.GetSubTextToEnd(x+101 2)+": "+ dd)
      EndFor
      TextWindow.WriteLine("")
      yl=yl+1
    EndFor

    Monday, July 1, 2019 3:02 AM
  • updated Nonki's Village: MBW819

    • added scroll
    • added traffic signs
    • added polygons instead of triangles

    Tuesday, July 2, 2019 4:56 AM
  • updated with zebra crossings and speedlimit:MBW819-1

    zebra:


    • Edited by Tryhest Thursday, July 4, 2019 4:16 AM
    Thursday, July 4, 2019 4:14 AM
  • iso-draw: VFX640

    for easy drawing of isometric 3d -objects

    usage is simple:

    • click triangle  to switch its color gray
    •  ctrl+click gives lightgray
    • rightclick deletes (turns to green)
    • 1 saves drawing incrementally
    • 2 loads saved file no#
    • further options will include animations and translating

    file to load for upper drawing:

    #########################################################################################################################################+++###+++############++..#.++..############+..#..+..#############.###.#..#############+..##################+#.+......#.############++..+++++#############+#++#####################+++++++##############++......#############++..++..#############+#......####################################.+......#.############++..++..+#############+#.+#...################++...#################+#++######################################################################################################################################################################


    needs ld and fc xtension (fc can be eliminated by use of textwindow readnumber instead of fc askfortextline)

    • Edited by Tryhest Wednesday, July 10, 2019 7:20 AM
    Wednesday, July 10, 2019 7:10 AM
  • simple 3d modeller v0.1: BWZ204

    just click to remove surface

    Monday, July 15, 2019 7:34 AM
  • rainbow-color progressbar:

    GraphicsWindow.BackgroundColor="teal
    GraphicsWindow.Title="Progressbar
    GraphicsWindow.Height=150
    GraphicsWindow.Width=500
    r=Shapes.AddRectangle(305 55)
    Shapes.Move(r 100 50)
    LDShapes.PenColour(r "black")
    LDShapes.PenWidth(r 3)
    LDShapes.BrushColour(r "transparent")
    GraphicsWindow.BrushColor="tan"
    GraphicsWindow.FillRectangle(100 50 305 55)
    GraphicsWindow.BrushColor="white"
    GraphicsWindow.FontSize=25
    GraphicsWindow.FontName="LUCIDA console"
    GraphicsWindow.FontItalic="true"
    t=Shapes.AddText("L O A D I N G ...")
    ldShapes.Centre(t 250 75)
    LDEffect.DropShadow(t "")
    For x=1 To 300 Step 6
      For y=1 To 50 Step 3
        GraphicsWindow.BrushColor=LDColours.HSLtoRGB(240-n 1 .5)
        n=n+.14
        GraphicsWindow.FillEllipse(100+x 50+y, 4 4)
        Program.Delay(5)
        GraphicsWindow.Title="Progressbar "+LDMath.FixDecimal(n/2.38 2)+"%"
      EndFor
      
      For y=50 To 1 Step -3
        GraphicsWindow.BrushColor=LDColours.HSLtoRGB(240-n 1 .5)
        n=n+.14
        GraphicsWindow.FillEllipse(103+x 50+y, 4 4)
        Program.Delay(5)
        GraphicsWindow.Title="Progressbar "+LDMath.FixDecimal(n/2.38 2)+"%"
      EndFor
    EndFor
    GraphicsWindow.Title="Progressbar 100%"
    Shapes.SetText(t "LOAD 100% done.")

    Wednesday, July 24, 2019 5:45 AM
  • roman amphitheatre 3d wireframe model:

    GraphicsWindow.BackgroundColor="darkblue"
    GraphicsWindow.Width=900
    GraphicsWindow.Height=900
    GraphicsWindow.Title="3D Amphitheatre"
    view3D = LD3DView.AddView(900,900,"True")
    LD3DView.AddAmbientLight(view3D "#77777777")
    LD3DView.AddSpotLight (view3D,"white",1 1 1, -1,-1,1 30, 10)
    LD3DView.AddDirectionalLight (view3D,"#bbaaaaaa" ,30,-7,-1)
    LD3DView.AutoControl2 ( 1 1)
    s10=20
    
    For z=0 To s10*2 Step s10
      pp="0:"+z+":0 0:"+(z+5)+":0 "
      d=":"
      a=-180
      For f=0 To 18
        cc=LDMath.Convert2Cartesian(5 10 5 a)
        pp=pp+cc[1]+d+(cc[2]+z)+":0 "
        a=a-10
      EndFor
      pp=pp+"10:"+z+":0 "
      pp=pp+"0:"+z+":0 0:"+(z+5)+":0"
      
      For m=1 To 50
        tt=LD3DView.AddTube(view3D pp .5 8 "gray" "E")
        LD3DView.RotateGeometry(view3D tt 0 1 0, 45)
        LD3DView.SetCentre(view3D tt 120 0 120 "R2")
        LD3DView.RotateGeometry2(view3D tt 0 1 0 m*7.2)
      EndFor
    EndFor
    
    
    cpp="1=406.411408335762;2=130.475387970525;3=288.847493848643;4=-0.818364281974375;5=-0.335088603662964;6=-0.466899913989893;7=-0.301515650782616;8=0.941973878485728;9=-0.147558546291591"
    LD3DView.ResetCamera(view3D cpp[1] cpp[2] cpp[3] cpp[4] cpp[5] cpp[6] cpp[7] cpp[8] cpp[9])

    Thursday, July 25, 2019 3:11 AM
  • Rule30 output generator: GCZ975

    More about Rule30: en.wikipedia.org/wiki/Rule_30

    Wednesday, July 31, 2019 2:35 AM
  • generates interesting patterns form rules: XCT881

    Friday, August 2, 2019 4:58 AM
  • binero game: RDH377

    • use cursors to select location
    • press 1, 0, or space=clear cell
    • aim is to fill table that every row&col has 5x 1 and 5x 0 and no more than 2 adjanced 1 or 0


    • Edited by Tryhest Wednesday, August 7, 2019 7:12 AM
    Wednesday, August 7, 2019 7:11 AM
  • graphic solution binero:

    Wednesday, August 7, 2019 8:20 PM
  • saturn V launch in textwindow:

    ss[ 1]="         /\
    ss[ 2]="        /..\
    ss[ 3]="        |==|
    ss[ 4]="        |  |
    ss[ 5]="        |  |
    ss[ 6]="        |  |
    ss[ 7]="       /____\
    ss[ 8]="       |    |
    ss[ 9]="       |SATU|
    ss[10]="       |    |
    ss[11]="       |    |
    ss[12]="      /| |  |\
    ss[13]="     / | |  | \
    ss[14]="    /__|_|__|__\
    ss[15]="       /_\/_\
    pp=1
    For t=30 To 1 Step -1
      TextWindow.Clear()
      For x=1 To t
        TextWindow.WriteLine("")
      EndFor
      
      For x=1 To 15
        TextWindow.WriteLine(ss[x])
      EndFor
      Program.Delay(90-pp)
      pp=pp*1.15
    EndFor
    For m=1 To 16
      TextWindow.Clear()
      For x=m To 15
        TextWindow.WriteLine(ss[x])
      EndFor
      Program.Delay(30)
    EndFor
    

    Thursday, August 8, 2019 8:50 AM
  • graphic solution binero:

    Interesting!  I wrote a Binero Generator: FKW997.

    Nonki Takahashi

    Saturday, August 10, 2019 5:42 AM
    Moderator
  • There are lots of Console-/GW spinners on

    update the current line in a C# Windows Console App

    Showing Progress in a Console Windows

    Progress bar in console application

    Console animations

    Cooler ASCII Spinners

    etc.

    but your Saturn5 is realy great, i like this.

    Used your LDGeography program as an example for next german LitDev.De.xml as ID WQF761


    Monday, August 12, 2019 9:33 PM
    Answerer
  • strange function:

    GraphicsWindow.Width=1600
    GraphicsWindow.Height=900
    GraphicsWindow.Left=1
    GraphicsWindow.Top=5
    GraphicsWindow.BackgroundColor="teal"
    GraphicsWindow.BrushColor="black"
    GraphicsWindow.Title="Harmony2Chaos"
    x=400
    ox=x
    dx=0.5
    dd=1
    nd=3
    aa=2
    GraphicsWindow.PenWidth=.7
    for y =1 to 1600 Step 2
      ddx=(Math.cos(aa))*(10)
      if math.Abs(x-400)>400  Then
        if aa>0 then
          aa=aa-5
          else 
          aa=aa+5
        EndIf
        Else
        aa=aa*1.02
      EndIf
      
      GraphicsWindow.DrawLine(y-2 ox y x)
      ox=x
      x=x+ddx
    EndFor

    Wednesday, August 21, 2019 6:18 AM
  • music-like or mountains fractal: HJN080

    added  scrollbar from ld xtension

    Wednesday, August 21, 2019 6:37 AM