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

All replies

  • old eurovision logo with new themes: XVS068-0

    I know, no political themes in this forum, but I can't hold me back.

    It seems that with PenWidht=1 the interferences are nearer by the original, as far as I can remember.

    Saturday, January 13, 2018 3:45 PM
  • here's original logo:

    Sunday, January 14, 2018 7:02 PM
  • updated nonki's flickr pic info: NLM548-1


    • Edited by Tryhest Sunday, January 21, 2018 4:03 AM
    Sunday, January 21, 2018 4:03 AM
  • flowers spinning: pxl272


    • Edited by Tryhest Wednesday, January 24, 2018 5:10 AM
    Wednesday, January 24, 2018 5:07 AM
  • upgraded nonki's faces to book: tdl115-0

    Monday, January 29, 2018 3:51 AM
  • shells: DXV180

    Wednesday, January 31, 2018 2:37 PM
  • eiffel fractal: LHN438-0

    Thursday, February 1, 2018 3:47 AM
  • tower of colors: NNH913-2


    • Edited by Tryhest Thursday, February 1, 2018 4:06 AM
    Thursday, February 1, 2018 3:57 AM
  • julia set anim: HVD712-1

    Thursday, February 1, 2018 4:48 AM
  • updated nice nao's ball game: NHT711

    • colors changed, added effects
    • main loop
    • changed scoring
    • small improvements

    Saturday, February 3, 2018 3:40 AM
  • hearts

    GraphicsWindow.BackgroundColor="midnightblue"
    GraphicsWindow.Title="Hearts"
    For s100=10 To 100 Step 15
      For x=0 To 1 Step .001
        y=Math.Power(x 2/3)-Math.SquareRoot(1-x*x)
        GraphicsWindow.SetPixel (x*s100+200 300-y*s100 "red")
        y=Math.Power(x 2/3)+Math.SquareRoot(1-x*x)
        GraphicsWindow.SetPixel (x*s100+200 300-y*s100 "red")
        y=Math.Power(x 2/3)-Math.SquareRoot(1-x*x)
        GraphicsWindow.SetPixel (200-x*s100 300-y*s100 "red")
        y=Math.Power(x 2/3)+Math.SquareRoot(1-x*x)
        GraphicsWindow.SetPixel (200-x*s100 300-y*s100 "red")
      EndFor  
    EndFor 


    • Edited by Tryhest Thursday, February 8, 2018 9:18 PM
    Thursday, February 8, 2018 9:18 PM
  • random drawings: CDC296

    Wednesday, February 14, 2018 6:36 AM
  • hipersigns:

    GraphicsWindow.BackgroundColor="teal"
    GraphicsWindow.PenWidth =1
    GraphicsWindow.Height= GraphicsWindow.Width 
    For x=0 To 200 Step 25
      GraphicsWindow.PenColor="lime"
      GraphicsWindow.DrawLine (300+x,100 500 100+x)
      GraphicsWindow.DrawLine (300-x,100 100 100+x)
      GraphicsWindow.DrawLine (300+x,500 500 500-x)
      GraphicsWindow.DrawLine (300-x,500 100 500-x)
      GraphicsWindow.PenColor="darkblue"
      GraphicsWindow.DrawLine (500-x,300 300 300-x)
      GraphicsWindow.DrawLine (100+x,300 300 300-x)
      GraphicsWindow.PenColor="black"
      GraphicsWindow.DrawLine (500-x,300 300 300+x)
      GraphicsWindow.DrawLine (100+x,300 300 300+x)
    EndFor
    GraphicsWindow.Title ="HiperSIGNS

    Friday, February 16, 2018 8:08 AM
  • pattern: BVD340

    Tuesday, February 20, 2018 5:17 AM
  • polar map from mercator projection: WTF595

    bmp to use:

    Friday, February 23, 2018 12:37 AM
  • greek text demo: CCQ867


    • Edited by Tryhest Saturday, February 24, 2018 6:25 AM
    Saturday, February 24, 2018 6:16 AM
  • nonki's pictionary update: NFK172

    • added 1 picture per letter a-z
    • added some anims

    required pics:

    v-venezuela

    q-qatar

    z-zambia


    • Edited by Tryhest Wednesday, March 7, 2018 8:07 AM
    Wednesday, March 7, 2018 8:06 AM
  • speedmeter: PFK757


    lmb to inc. speed, rmb to brake
    • Edited by Tryhest Friday, March 9, 2018 11:31 AM
    Friday, March 9, 2018 11:30 AM
  • shaper: LZJ947

    makes nice patterns by clicking on shape

    lmb rotates 90 deg.

    rmb changes shape type

    shapes to include (1-7):

          



    • Edited by Tryhest Sunday, March 18, 2018 7:19 AM
    Sunday, March 18, 2018 7:15 AM
  • some other results:

    Sunday, March 18, 2018 7:25 AM
  • simple basic: RZL295

    Tuesday, March 20, 2018 8:22 PM
  • rules of smpbasic

    • lines begin with 3chr cmd (and 1 or more args)
    • vars are always ref. by % prefix, except in set cmd (only as 1st param.)
    • x=x+1 is written as set x %x+1
    • if syntax: [iff/whn] <true> skp
      skp is increment to next else cmd. must use jmp if u want to use if-else construct:
    1. iff a>5 3
    2. set a %a+2
    3. jmp 2
    4. set a %a-1

    equivalent in sb:

      if a>5 then

        a=a+2

      else

       a-a-1

      endif

    • goto cmd: 3 type abs/rel/label goto
    • jmp 5 jumps 5 lines ahead
    • jmp -3 jumps 3 lines back
    • jtl xx jumps to line xx
    • jlb jumps to label xx indicated by `xx




    • Edited by Tryhest Wednesday, March 21, 2018 8:21 AM
    Tuesday, March 20, 2018 8:41 PM
  • updated smpbasic: MXW537

    • added turtle cmds
    • added rtf open/save
    • added math operations
    • try modifing angle to obtain different interesting outptus


    • Edited by Tryhest Wednesday, March 21, 2018 10:41 AM
    Wednesday, March 21, 2018 8:14 AM
  • math operations:

    smpbas            sb equivalent

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

    inc a                a=a+1
    +++ a

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

    dec a               a=a-1
    --- a

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

    add a 5            a=a+5

    sbs a 10           a=a-10

    ---------------------------------------
    mul a 5           a=a*5
    div a 2            a=a/2

    _____________________________

    *** a            a=a*a
    /// a             a=math.squareroot(a)

    Wednesday, March 21, 2018 10:47 AM
  • fm modulation samples:

    GraphicsWindow.BackgroundColor="darkgreen"
    ff=LDText.Split("3 7 11 15 21 23 29 31 35 43 47 49" " ")
    For qq=2 To 12
      GraphicsWindow.Title=qq
      GraphicsWindow.Clear()
      For x=1 To 600 Step .01
        y=200
        For z=1 To qq
          y=y+LDMath.Sin(x*ff[z])*20
        EndFor
        y=y+LDMath.Sin(x*(3+Math.GetRandomNumber(100)/10))*20
        GraphicsWindow.SetPixel(x y "lime")
      EndFor
      Program.Delay(3333)
      
    EndFor
    
    

    Thursday, March 29, 2018 3:18 AM
  • smpbasic update: MMM471

    • added microbit led screen emulation
    • addec microbit charset
    • some minor updates

    microbit test code:

    clr  
    lps  150 50 #...#...#...#...#...#
    dly  333
    lpp  9 ═══════════════
    lp@  
    dly  333
    elp ════════════════════  
    lp#  


    • Edited by Tryhest Thursday, March 29, 2018 9:25 AM
    Thursday, March 29, 2018 7:09 AM
  • cmds for microbit screen emul:

    • lps <x> <y> <ldds>
      creates new led display at x,y with ldds led setup, led-on is marked with #
    • lp$ <ldds> toggles led to new state by ldds
    • lp@ inverts leds 
    • lp# clears leds from screen

    charset show code:

    clr  
    lps  100 50 #.
    for  1 34 1
    lp&  %1
    dly  1555
    nxt  
    lp#  
    

    • Edited by Tryhest Thursday, March 29, 2018 9:35 AM
    Thursday, March 29, 2018 7:15 AM
  • interferencing waves in 3d: MPX987

    use mouse to change viewpoint


    blue dots show interferences of waves
    • Edited by Tryhest Sunday, April 1, 2018 6:39 PM
    Sunday, April 1, 2018 6:36 PM
  • added scrolling to smpbasic: BCZ528

    lps  222 111 q
    scr  sdfgh-werty-12345678-zxcvbn
    scr  lorem-ypzoom
    lp#  

    Wednesday, April 4, 2018 4:49 AM
  • updated nonki's trafficjam simul: FHC281-0


    • Edited by Tryhest Friday, April 6, 2018 4:22 AM
    Friday, April 6, 2018 4:21 AM
  • naochan made nice and fun shape editor, updated it a bit more: DLX222

    • added rightclick menu
    • added nudging objects
    • more to come soon...

    interesting options and facts:

    • all shapes are converted to polygons and can be each node edited
    • easier shape handling than nonki's shape editor

    • Edited by Tryhest Saturday, April 7, 2018 3:49 AM
    Saturday, April 7, 2018 3:41 AM
  • naochan made nice and fun shape editor, updated it a bit more: DLX222

    • added rightclick menu
    • added nudging objects
    • more to come soon...

    interesting options and facts:

    • all shapes are converted to polygons and can be each node edited
    • easier shape handling than nonki's shape editor

      DLX222-0

      ;shadow added shapes can be saved/loaded   

      ;line is also made by polygon

      ;some bugs fixed  ' <----**** mark

    Monday, April 9, 2018 6:13 AM
    Answerer
  • flashing outline

    DSF645


    • Edited by Tryhest Tuesday, April 10, 2018 4:52 AM
    Tuesday, April 10, 2018 4:48 AM
  • color outliner:

    SFD255

    Tuesday, April 10, 2018 5:13 AM
  • dots pulsating:

    XTK950

    Tuesday, April 10, 2018 7:01 AM
  • WKZ502

    rotospinner


    spin v2:

    GJX689

    • Edited by Tryhest Tuesday, April 10, 2018 10:03 AM
    Tuesday, April 10, 2018 9:48 AM
  • metallic ribbon draw:  VJQ084

    rightclick to make new origin


    • Edited by Tryhest Thursday, April 12, 2018 5:11 AM
    Thursday, April 12, 2018 5:11 AM
  • roof plates:

    GraphicsWindow.BackgroundColor="darkblue"
    GraphicsWindow.PenWidth=2
    GraphicsWindow.Title="Color Roof Plates"
    GraphicsWindow.Width=1300
    GraphicsWindow.Height=850
    GraphicsWindow.Left=5
    GraphicsWindow.Top=5
    
    cx=400
    cy=cx
    ox=-1
    For py=400 To -200 Step -180
      hh=0
      For mx=1200 To 0 Step -1
        GraphicsWindow.PenColor=LDColours.HSLtoRGB(math.Remainder( hh/6 360) math.Abs(LDMath.Cos(hh/3)) (1+LDMath.Sin(hh))/4+.25)
        my=LDMath.Sin(math.abs(mx*2))*25
        GraphicsWindow.DrawLine(mx+px 200+my+py mx-90+px my+400+py)
        hh=hh+3
      EndFor
      px=px+90
    EndFor

    Thursday, April 12, 2018 6:41 AM
  • hypno flower w aftereffect:

    GraphicsWindow.BackgroundColor="darkblue"
    GraphicsWindow.Height=GraphicsWindow.Width
    GraphicsWindow.Title="Hypnotic Flower"
    n=10
    GraphicsWindow.Clear()
    j=1
    For y=50 To 200 Step 10 
      
      ss=0
      i=1
      For x=0 To 360 Step 2.5
        cc=LDMath.Convert2Cartesian(300 300 ldmath.sin(x*n)*10+y x)
        ss[i][1]=cc[1]
        ss[i][2]=cc[2]
        i=i+1
      EndFor
      pp[j]=LDShapes.AddPolygon(ss)
      LDShapes.PenWidth(pp[j] 0)
      LDShapes.BrushColour(pp[j] LDColours.HSLtoRGB(240 1 .3+(1-math.Remainder(j 2))/1.7))
      LDShapes.ZIndex(pp[j], -j)
      j=j+1
    EndFor
    
    ff[1]=5
    For f=2 To 16
      ff[f]=ff[f-1]/1.0618
    EndFor
    
    While 1=1
      For i=1 To j-1
        LDShapes.RotateAbout(pp[i] 300 300 aa*ff[i])
      EndFor
      Program.Delay(5)
      aa=aa+.5
    EndWhile


    • Edited by Tryhest Monday, April 16, 2018 6:29 AM
    Monday, April 16, 2018 6:29 AM
  • FGV434

    the turtle family, drawn by turtle))

    Wednesday, April 18, 2018 6:30 AM
  • update FGV434-0

    object turtle

    Wednesday, April 18, 2018 6:04 PM
  • splinner:

    MWV065

    • pick some sequence of points
    • rightclick and select drawspline
    • to continue rightclick and choose clean

    Thursday, April 19, 2018 5:49 PM
  • nonki made some nice circle draw game.

    updated it a bit: GNN443

    • colors changed
    • txt box removed
    • formated output
    • button chech/new instead of ok only

    Monday, April 23, 2018 6:02 AM
  • axel the robot: NKN969

    Wednesday, April 25, 2018 3:10 AM
  • updated axel showing binary numz by fingers: ZVC552

    Wednesday, April 25, 2018 10:12 AM
  • axel reading text: SNG903

    put the phonetic text to read like

    spk:helou tu ewrybody aim axl di tokin roubout end aim gled tu si ju ol hir nau



    • Edited by Tryhest Thursday, April 26, 2018 4:04 AM
    Thursday, April 26, 2018 4:03 AM
  • axel writting: TLJ419

    use wrt:text to write

    Thursday, April 26, 2018 5:57 PM
  • hearts:

    GraphicsWindow.BackgroundColor="tan"
    For c=1 To 15
      f100=10+Math.GetRandomNumber(100)
      sx=Math.GetRandomNumber(600)+10
      sy=Math.GetRandomNumber(500)
      For a=0 To 6.28 Step .001
        px=0.75*Math.Sin(a)-Math.Sin(3*a)/4
        py=Math.Cos(a)-Math.Cos(2*a)*5/13-Math.Cos(3*a)*2/13-Math.Cos(4*a)/13
        GraphicsWindow.SetPixel(sx+px*f100 500-py*f100-sy "red")
        'Program.Delay(2)
      EndFor
    EndFor

    Sunday, April 29, 2018 2:49 AM
  • hearts 2:


    GraphicsWindow.BackgroundColor="tan"
    GraphicsWindow.Height=GraphicsWindow.Width
    GraphicsWindow.Title="Hearts2"
    f100=80
    For c=0 To 360 step 60
      
      sx=Math.GetRandomNumber(600)+10
      sy=Math.GetRandomNumber(500)
      For a=0 To 6.28 Step .001
        px=0.75*Math.Sin(a)-Math.Sin(3*a)/4
        py=Math.Cos(a)-Math.Cos(2*a)*5/13-Math.Cos(3*a)*2/13-Math.Cos(4*a)/13
        pp=LDMath.Rotate(f100 220 f100+px*f100 f100-py*f100 c)
        GraphicsWindow.SetPixel(pp[1]+200 pp[2] "red")
      EndFor
    EndFor
    

    Sunday, April 29, 2018 3:01 AM
  • heart flowers: RXS936

    Sunday, April 29, 2018 5:20 AM
  • wheel flowers: WKM560

    use mswheel to adjust shape

    Sunday, April 29, 2018 5:56 AM
  • axel the singer:  KNP936

    sy o
    inf:hello:777
    dly 555
    inf:how are you?:888
    dly 555
    sy i
    inf:can u hear me?:999
    smile
    sy a
    inf:hello from the other side:999
    dot

    Wednesday, May 2, 2018 3:32 AM
  • black hole anim: DTK566

    Wednesday, May 2, 2018 4:50 AM
  • waves dancing:

    also suitable for 25-lines contest

    use mswheel to zoom in/out

    GraphicsWindow.BackgroundColor="tan"
    GraphicsWindow.PenWidth=2
    GraphicsWindow.PenColor="blue"
    LDEvents.MouseWheel=www
    ss=1
    For k=1 To 1000 Step .05
      GraphicsWindow.Title=k
      ox=0
      oy=0
      For x=0 To 25 Step .1
        y=0
        For n=1 To 6
          y=y+(1/n)*Math.Sin(n*x+k/n)
        EndFor
        Shapes.AddLine(ox oy+200 x*20 y*10+200 )
        ox=x*20
        oy=y*10
      EndFor
      Program.Delay(9)
      GraphicsWindow.Clear()
    EndFor
    Sub www
      ss=ss+LDEvents.LastMouseWheelDelta/22
      ldGraphicsWindow.Reposition(ss ss 0 ss*40 0)
    EndSub

    Friday, May 4, 2018 2:33 AM
  • seawaves: SPZ949

    use mswheel to adjust density

    Friday, May 4, 2018 5:31 AM
  • wave strip: XDR666

    Friday, May 4, 2018 5:44 AM
  • blackhole spacetime field: PLP452

    Saturday, May 5, 2018 6:53 AM
  • escher's star: WLB266

    find the impossible patch:))

    Sunday, May 6, 2018 5:14 AM
  • pacman eating dots around: GFT498

    Monday, May 7, 2018 2:59 AM
  • circular pacman: TTG399

    Monday, May 7, 2018 3:44 AM
  • watt's curves: JWD108

    Monday, May 7, 2018 10:00 AM
  • colorful version: KSJ487

    Monday, May 7, 2018 10:33 AM
  • soundbars: LMQ261

    Tuesday, May 8, 2018 7:26 PM
  • caliper tool: CNS503

    • for measuring objects on screen
    • overlays all windows
    • click to set measuring start
    • use wheel to adjust size
    • press alt+F4 to exit
    Wednesday, May 9, 2018 5:35 AM
  • updated caliper w vertical measuring tools: ZBZ089

    Wednesday, May 9, 2018 8:14 PM
  • qled demo: BZM916

    Friday, May 18, 2018 3:48 AM
  • signatures:

    GraphicsWindow.BackgroundColor="tan"
    GraphicsWindow.Title="Calligraphic Signatures"
    For g=0 To 10
      For f=0 To 360 Step .1
        x=LDMath.Cos(3*f)+LDMath.Sin(f)
        y=-LDMath.Sin(5*f)-LDMath.Cos(f*2)
        GraphicsWindow.SetPixel(300-x*150+g 300-y*50 LDColours.HSLtoRGB(200+Math.GetRandomNumber(50) .7 .3+ldMath.Sin(f*3)/4))
        GraphicsWindow.SetPixel(300+x*150+g 150+y*50 LDColours.HSLtoRGB(5+Math.GetRandomNumber(30) .7 .3+ldMath.Sin(f*3)/4))
       EndFor
    EndFor

    Sunday, May 20, 2018 3:42 AM
  • xstar anim: WQH356

    use mswheel to adjust view angle

    Monday, May 21, 2018 3:35 AM
  • hommage to zx spectrum font: WGP448

    Tuesday, May 22, 2018 3:55 PM
  • zx screen demo: ZXM473

    • move mouse over screen quickly in loops to see flashing trails
    • use mswheel to zoom in/out

    Tuesday, May 22, 2018 4:39 PM
  • now with 3 font boldness: QMF228

    Tuesday, May 22, 2018 5:51 PM
  • condensed zx font: QBF381

    Tuesday, May 22, 2018 6:13 PM
  • seriph version: WHH566

    Tuesday, May 22, 2018 6:23 PM
  • zx ultra compact: TZR272

    Tuesday, May 22, 2018 6:42 PM
  • zx smallcaps: XSR732

    Tuesday, May 22, 2018 7:04 PM
  • ultra small caps: GGX419

    Tuesday, May 22, 2018 7:16 PM
  • nonplusultra small caps: XZF773

    Tuesday, May 22, 2018 7:33 PM
  • 3d zx font: MDJ058

    • use keyboard arrows, mswheel and mouse pan to adjust 3d viewangle

    Tuesday, May 22, 2018 8:18 PM
  • zx flash effect: SWF465

    Wednesday, May 23, 2018 4:50 AM
  • both flash+bold effect: XSZ272

    Wednesday, May 23, 2018 6:22 AM
  • 3 fonts included: VMP249

    Wednesday, May 23, 2018 9:47 AM
  • zx demo: RRH635

    press esc to break/exit run mode

    Thursday, May 24, 2018 3:25 PM
  • zx editor: KCJ580

    • still in development, a bit buggy
    • runs simple cmds like border, paper, list, cls, new
    • modes K/L (just like zx spectrum)

     


    updated: MHQ381 - just edit mode, not finished cmds exec
    • Edited by Tryhest Friday, May 25, 2018 11:31 AM
    Friday, May 25, 2018 6:57 AM
  • added graphic chars, prg. lines... ZNS424

    to exec direct cmdline, press cancel after entering cmd line

    Saturday, May 26, 2018 8:34 PM
  • also added save & load now: DVF612

    to delete a line press enter on empy cmd line and type number line to delete and click ok



    • Edited by Tryhest Monday, May 28, 2018 4:07 AM
    Sunday, May 27, 2018 4:00 AM
  • many bugs solved and improved: VVR931

    Monday, May 28, 2018 9:46 PM
  • added periodic table: QTX388

    • a bit tricky to see it: press z multiple times until is typed PERT, then press enter
    • use arrow keys <> to select element in alphabetic order
    • press esc to exit per.table


    • Edited by Tryhest Tuesday, May 29, 2018 10:21 AM
    Tuesday, May 29, 2018 10:21 AM
  • same table with zx font installed (find font by google): JXP771

    hoover mouse over element to display element info


    • Edited by Tryhest Tuesday, May 29, 2018 10:38 AM
    Tuesday, May 29, 2018 10:26 AM
  • added flickr image and some bugs removed. also added rightclick menu : NVM025


    • Edited by Tryhest Wednesday, May 30, 2018 4:23 AM
    Wednesday, May 30, 2018 4:22 AM
  • simulates zx flash/scroll mode: QHN000

    Thursday, May 31, 2018 6:54 AM
  • real ZX scroll, uses fastarrays: XCT308

    Thursday, May 31, 2018 10:07 AM
  • scrolls demo zx prog:RMN315

    Friday, June 1, 2018 8:54 PM
  • This thread will be continued to small basic graphic and animations and more (10).

    Nonki Takahashi



    Friday, June 8, 2018 8:53 AM
    Moderator