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

All replies

  • added condensed font: GSF791-0

    Sunday, November 3, 2019 3:45 AM
  • TDG882

    z80 emulator

    emulates a vitual zx style computer with vram at $4000

    the given code emulates print at cmd

    result:

    Thursday, November 7, 2019 11:49 PM
  • update: TDG882-0

    displays counter 0-60 secs

    Saturday, November 9, 2019 5:28 AM
  • Jupiter ACE rom charset: TBD020-0


    • Edited by Tryhest Sunday, November 10, 2019 7:38 AM
    Sunday, November 10, 2019 7:36 AM
  • divisions ported from qbasic: XPS355

    Friday, November 15, 2019 7:53 PM
  • Nonki's ICS flags updated: CRM335

    • added as shapes, added shadows
    • can me moved and rotated by mswheel
    • code reduced a bit
    • popup letters tooltip 
    • ld xtension required

    Guesswork: decode these 2 cities:

    Sunday, November 17, 2019 7:03 AM
  • QBasic menues: TQH367

    Wednesday, November 20, 2019 5:19 AM
  • qb edit v0.1: LFR240

    works: open save and replace

    edits only itt files, other just views

    Thursday, November 21, 2019 5:39 AM
  • txtwin shaddy capitals: XSR510

    Friday, November 22, 2019 5:49 AM
  • added doublesized chars: HWB800


    • Edited by Tryhest Saturday, November 23, 2019 4:14 AM
    Saturday, November 23, 2019 4:14 AM
  • 3 stories with initials:  HWB800-1




    • Edited by Tryhest Saturday, November 23, 2019 5:23 AM
    Saturday, November 23, 2019 4:46 AM
  • qbasic interpreter v0.1: MPW734-0

    • support input, print and maths
    • vars must be quoted with # when used (press ~ key to quote)
    • instead of print cmd u may use ? char
    • use column for multiple cmds in one line
    • use \n for print newline and \t for tab


    • Edited by Tryhest Sunday, November 24, 2019 3:01 AM
    Sunday, November 24, 2019 2:52 AM
  • qbasic v0.2 MPH248

    • added if goto gosub ret plot
    • 'if' behaves differently from usual basic usage: if {cond} tt|goto true  ff|goto false, u must specify always both lines and can't adress sublines e.g if a>b 30 40 equals to if a>b then goto 30 else goto 40
    • ret returns to next line being called from
    • beware of keylogging problem, thus uncheck unmute option if u want not to receive typings from different windows and apps

    Monday, November 25, 2019 5:11 AM
  • QBasic menues: TQH367


    updated to unicode borders: FWZ819

    Tuesday, November 26, 2019 4:41 AM
  • doublelined borders: FWZ819-0

    Tuesday, November 26, 2019 4:54 AM
  • qbasic 0.3: WTX542-0

    • added macro headers: simulate c #define directives
    • prior to run use opendfs cmd
    • use # to quote directive

    Tuesday, November 26, 2019 7:32 PM
  • qbasic ported nibbles: CNV460

    (a bit buggy but playable, use keys 8 4 5 6 on numpad)


    • Edited by Tryhest Thursday, November 28, 2019 3:21 AM
    Thursday, November 28, 2019 3:18 AM
  • Nonki's salt updt: LFD261

    • added anim, color changes
    • latin name
    • removed obsolete lines


    • Edited by Tryhest Thursday, November 28, 2019 3:54 AM
    Thursday, November 28, 2019 3:53 AM
  • qbasic v0.35: LPT820

    • added pause, inc, dec, djnz, printat
    • countdown demo code:

    Thursday, November 28, 2019 2:25 PM
  • added pointer operations: RRQ564-1

    this code shows a counter


    sptr de a equals to asm  ld (de), a

    schr $de equals to asm ld vramaddr, (de)

    sample code for lines intersection:

    10:ld XA 4:ld YA 0
    11:ld XB 6:ld YB 10
    12:ld XC 0:ld YC 3
    13:ld XD 10:ld YD 7
    20:PRINT THE.TWO.LINES.ARE;\n\n
    21:PRINT YAB[
    22:ld v1  #YA-#XA*((#YB-#YA)/(#XB-#XA)):Print #v1
    23:Print   +X*
    24:ld v2  (#YB-#YA)/(#XB-#XA):Print #v2\n
    25:Print  YCD[
    26:ld v2  #YC-#XC*((#YD-#YC)/(#XD-#XC)):Print #v2
    27:Print +X*
    28:ld v3  (#YD-#YC)/(#XD-#XC):Print  #v3\n\n
    30:ld X ((#YC-#XC*((#YD-#YC)/(#XD-#XC)))-(#YA-#XA*((#YB-#YA)/(#XB-#XA))))/(((#YB-#YA)/(#XB-#XA))-((#YD-#YC)/(#XD-#XC)))
    40:Print  X[#X\n
    45:ld Y #YA-#XA*((#YB-#YA)/(#XB-#XA))+#X*((#YB-#YA)/(#XB-#XA))
    50:Print  YAB[#Y\n
    55:y2=#YC-#XC*((#YD-#YC)/(#XD-#XC))+#X*((#YD-#YC)/(#XD-#XC))
    60:Print  YCD[#y2\n
    70:Print  INTERSECT[:Print #X:Print \s\s\s:Print #Y


    • Edited by Tryhest Friday, November 29, 2019 9:52 PM
    Thursday, November 28, 2019 6:41 PM
  • update to v0.5: RRQ564-2

    • added ins/over/del/bs operations
    • added editing of txt files
    • bug corrections 

    prior to run remove autorems on lines 397, 405, 408, 424, 427

    due to a server error u must import twice the same program id!

    • Edited by Tryhest Saturday, November 30, 2019 7:57 AM
    Saturday, November 30, 2019 5:55 AM
  • added color editing codes: LKW593-0

    Tuesday, December 3, 2019 4:49 AM
  • txtwin color palette example: CTN254-0

    result is almost sb-prime editor-like


    • Edited by Tryhest Tuesday, December 3, 2019 5:38 AM
    Tuesday, December 3, 2019 5:37 AM
  • textwin periodic table: KVC735

    Wednesday, December 4, 2019 5:20 PM
  • manic-miner animations: NCV581-0

    image to use as animset:


    • Edited by Tryhest Thursday, December 5, 2019 1:37 AM
    Thursday, December 5, 2019 1:34 AM
  • starfield anim ported from qbasic: CQD853

    Thursday, December 5, 2019 5:41 PM
  • qbsc ported fireworks: TPJ123

    Thursday, December 5, 2019 11:17 PM
  • collision detection added: SNW270-2

    press space to jump over the guardian

    Friday, December 6, 2019 11:36 PM
  • qb ported dots: XFP896

    Saturday, December 7, 2019 6:59 PM
  • ported qb starwars beta  JZS564
    Monday, December 9, 2019 5:13 AM
  • falling skylabs demo: LSJ620

    Monday, December 9, 2019 11:07 AM
  • added other skyfalling objects: LSJ620-0

    Monday, December 9, 2019 11:53 AM
  • added animated tails: MCR189

    Monday, December 9, 2019 7:14 PM
  • sine madelbrot fractal:

    size = 500
    half = 250
    GraphicsWindow.Width = size * 1.5
    GraphicsWindow.Height = size*1.5
    GraphicsWindow.Title = "Mandelbrot"
    GraphicsWindow.BackgroundColor="midnightblue"
    For px = 1 To size * 1.5 step 1.5
      x0 = px/half - 2
      For py = -90 To size*1.4 step 2
        y0 = py/half - 1
        x = x0
        y = y0
        i = 0
        While(c <= 2 AND i<100)
          x1 = Math.Power(x, 2) - Math.Power(y, 2) + x0
          y1 = 2 * x * y + y0
          c = Math.Power(Math.Power(x1, 2) + Math.Power(y1, 2), 0.5)
          x = x1
          y = y1
          i = i + 1
        EndWhile
        If i < 99 Then
          GraphicsWindow.BrushColor=LDColours.HSLtoRGB(LDMath.Sin(i)*360+180, 1 .6)
          GraphicsWindow.FillRectangle(px, py+90, 2 2)
        EndIf
        c=0
     EndFor
    EndFor

    Monday, December 9, 2019 7:36 PM
  • txtwin fractal: KRQ485

    Monday, December 9, 2019 8:39 PM
  • 4-layer txtwin fractal: KRQ485-0

    Monday, December 9, 2019 9:23 PM
  • zooming bug: SXL370

    Tuesday, December 10, 2019 5:26 AM
  • mminer levels v0.5 RLK168-0


    • Edited by Tryhest Thursday, December 12, 2019 11:01 PM
    Wednesday, December 11, 2019 6:05 AM
  • level viewer: ZNX290

    added ldphysics movement

    repeat keypress to increase force

    leftarrow moves to left, oher keys move miner to right

    Thursday, December 12, 2019 7:59 AM
  • willy v0.6:RLK168-1

    bmps to include:

       and keys    

    Friday, December 13, 2019 5:46 AM
  • willy v0.7 LWZ214

    • added guardian movement
    • added willy's left+right+jump movement
    • still missing: collision detect, sine-jump movement
    • levels completion (80% done)

    Friday, December 13, 2019 11:58 AM
  • willy 0.75 ZSM975

    new maps:

    • Edited by Tryhest Saturday, December 14, 2019 5:30 AM
    Saturday, December 14, 2019 5:29 AM
  • miner willy v0.8: KXP690

    resources:

    Tuesday, December 17, 2019 4:52 AM
  • fast life emulator: HQG018

    uses ldfastarray to speedup calcs

    Friday, December 20, 2019 4:59 AM
  • tamagochi simbols: LDR972

    Friday, December 27, 2019 5:05 PM
  • the same in sb-online issue

    Friday, December 27, 2019 5:13 PM
  • pictil hexboard microlettering: TBN588


    pictil link
    • Edited by Tryhest Saturday, December 28, 2019 3:22 AM
    Saturday, December 28, 2019 3:20 AM
  • brainf*** expander: NZK862

    makes brainfck more human-readable form 

    Sunday, December 29, 2019 6:52 AM
  • draws The Big Blue IBM '72 logo: NXD244

    Tuesday, December 31, 2019 5:49 AM
  • fibbonacci's pattern: QKQ924

    Friday, January 3, 2020 7:22 PM
  • rotating magic 8: HPB469

    Tuesday, January 7, 2020 5:42 AM
  • solves pascal's triangle puzzle: LCW456

    inital values are red

    Wednesday, January 8, 2020 8:28 AM
  • magic yorkshire cat smiling: XWK049

    Thursday, January 9, 2020 9:27 PM
  • mahreen made a nice bird with blinking eyes.

    so updated it a bit more: TLG781-1

    • reduced code to 1/3
    • added some effects

    Monday, January 13, 2020 7:42 AM
  • update w walking: TLG781-2

    Monday, January 13, 2020 11:16 AM
  • compact deco font: HRR401

    Friday, January 17, 2020 6:44 PM
  • the openbox pattern: CLK677

    Saturday, January 18, 2020 4:42 AM
  • bell's triangle: XMF112

    n is indicated by 1st column

    the red values counts the number of partitions of n elements into subsets, where one of the subsets is distinguished from the others; for instance, there are 10 ways of partitioning n=3 items into subsets and then choosing one of the subsets

    Sunday, January 19, 2020 10:30 PM
  • 3d blackhole webcobb:

    coding is quite simple:

    GraphicsWindow.BackgroundColor="darkblue"
    GraphicsWindow.Width=900
    GraphicsWindow.Height=900
    GraphicsWindow.Title="3D WireSphere"
    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)
    
    For ww=0 To 359 Step 10
      p=""
      For v=1 To 20
        rx=v*LDMath.Cos(ww)
        ry=v*LDMath.sin(ww)
        e=ldmath.FixDecimal( 5/v 3)
        p=p+rx+":"+e+":"+ry+":"
        if ww=0  then 
          ee[v]=rx+":"+e+":"+ry+":"
        EndIf
        qp[v]=qp[v]+rx+":"+e+":"+ry+":"
      EndFor
      
      LD3DView.AddTube(view3D p .06 8 "gold" "E")
    EndFor
    For f=1 To 20
      LD3DView.AddTube(view3D qp[f]+ee[f] .05 8 "green" "D")
    EndFor

    Monday, January 20, 2020 7:35 PM
  • sand-pile relax drawing: XWZ942

    press rmb to change color, lmb+mousemove to drop sand

    Tuesday, January 21, 2020 8:01 AM
  • infinite image viewer: NGX726

    use mswheel to rotate around

    image to be used:


    • Edited by Tryhest Wednesday, January 22, 2020 6:18 PM
    Wednesday, January 22, 2020 6:12 PM
  • upc A decoder: DDZ943

    • ecc implementation
    • max 11 nums+chksum

    Thursday, January 23, 2020 7:25 AM
  • ean8 decoder: HXJ846

    Thursday, January 23, 2020 9:22 PM
  • ean13 half-decoder: KQD527-0

    • cannot decode rotated ean13 codes
    • incluydes ean8/13/issn and upc-a codes
    • click to change code type


    • Edited by Tryhest 15 hours 26 minutes ago
    Thursday, January 23, 2020 10:31 PM
  • Old Queen Poem: KSH414

    USED IMAGE:

    10 hours 55 minutes ago