Basics of Lobster

Conversion de old BASIC-programas a Lobster por aprender lu elementari de ti-ci lingue.

Etiquettes:

3D Plot

/*
3D Plot

Original version in BASIC:
    Creative Computing (Morristown, New Jersey, USA), ca. 1980.

This version in Lobster:
    Copyright (c) 2023, Marcos Cruz (programandala.net)
    SPDX-License-Identifier: Fair

Written on 2023-09-16.

Last modified 20250318T1528+0100.
*/

def clear():
    print("\x1B[0;0H\x1B[2J")

def showCredits():
    print("3D Plot\n")
    print("Original version in BASIC:")
    print("    Creative computing (Morristown, New Jersey, USA), ca. 1980.\n")
    print("This version in Lobster:")
    print("    Copyright (c) 2023, Marcos Cruz (programandala.net)")
    print("    SPDX-License-Identifier: Fair\n")
    get_line("Press Enter to start the program.")

def exp(n: float) -> float:
    let E = 2.71828
    return pow(E, n)

def a(z: float) -> float:
    return 30.0 * exp(-z * z / 100.0)

def draw():

    let WIDTH = 56
    let SPACE = " "
    let DOT   = "*"

    var l = 0
    var y1 = 0
    var z = 0

    var x = -30.0
    while x <= 30.0:
        let line = []
        var pos = 0
        while pos < WIDTH:
            push(line, SPACE)
            pos += 1
        l = 0
        y1 = 5 * int(sqrt(900.0 - x * x) / 5.0)
        var y = y1
        while y >= -y1:
            z = int(25.0 + a(sqrt(x * x + float(y * y))) - 0.7 * float(y))
            if z > l:
                l = z
                line[z] = DOT
            y -= 5
        print(concat_string(line, ""))
        x += 1.5

clear()
showCredits()
clear()
draw()

Omni versiones de 3D Plot

Diamond

/*
Diamond

Original version in BASIC:
    Example included in Vintage BASIC 1.0.3.
    http://www.vintage-basic.net

This version in Lobster:
    Copyright (c) 2023, Marcos Cruz (programandala.net)
    SPDX-License-Identifier: Fair

Written on 2023-09-16.

Last modified 20250318T1528+0100.
*/

let LINES = 17

var i = 1
while i <= int(LINES / 2 + 1):
    let indent = repeat_string(" ", int((LINES + 1) / 2) - i + 1)
    let stars = repeat_string("*", i * 2 - 1)
    print(concat_string([ indent, stars ], ""))
    i += 1

i = 1
while i <= int(LINES / 2):
    let indent = repeat_string(" ", i + 1)
    let stars = repeat_string("*", (int((LINES + 1) / 2) - i) * 2 - 1)
    print(concat_string([ indent, stars ], ""))
    i += 1

Omni versiones de Diamond

Págines relatet

Basics off: Metaprojecte pri li projectes «Basics of…».
Basics of 8th: Conversion de old BASIC-programas a 8th por aprender lu elementari de ti-ci lingue.
Basics of Ada: Conversion de old BASIC-programas a Ada por aprender lu elementari de ti-ci lingue.
Basics of Arturo: Conversion de old BASIC-programas a Arturo por aprender lu elementari de ti-ci lingue.
Basics of C#: Conversion de old BASIC-programas a C# por aprender lu elementari de ti-ci lingue.
Basics of C3: Conversion de old BASIC-programas a C3 por aprender lu elementari de ti-ci lingue.
Basics of Chapel: Conversion de old BASIC-programas a Chapel por aprender lu elementari de ti-ci lingue.
Basics of Clojure: Conversion de old BASIC-programas a Clojure por aprender lu elementari de ti-ci lingue.
Basics of Crystal: Conversion de old BASIC-programas a Crystal por aprender lu elementari de ti-ci lingue.
Basics of D: Conversion de old BASIC-programas a D por aprender lu elementari de ti-ci lingue.
Basics of Elixir: Conversion de old BASIC-programas a Elixir por aprender lu elementari de ti-ci lingue.
Basics of F#: Conversion de old BASIC-programas a F# por aprender lu elementari de ti-ci lingue.
Basics of Factor: Conversion de old BASIC-programas a Factor por aprender lu elementari de ti-ci lingue.
Basics of FreeBASIC: Conversion de old BASIC-programas a FreeBASIC por aprender lu elementari de ti-ci lingue.
Basics of Gleam: Conversion de old BASIC-programas a Gleam por aprender lu elementari de ti-ci lingue.
Basics of Go: Conversion de old BASIC-programas a Go por aprender lu elementari de ti-ci lingue.
Basics of Hare: Conversion de old BASIC-programas a Hare por aprender lu elementari de ti-ci lingue.
Basics of Haxe: Conversion de old BASIC-programas a Haxe por aprender lu elementari de ti-ci lingue.
Basics of Icon: Conversion de old BASIC-programas a Icon por aprender lu elementari de ti-ci lingue.
Basics of Io: Conversion de old BASIC-programas a Io por aprender lu elementari de ti-ci lingue.
Basics of Janet: Conversion de old BASIC-programas a Janet por aprender lu elementari de ti-ci lingue.
Basics of Julia: Conversion de old BASIC-programas a Julia por aprender lu elementari de ti-ci lingue.
Basics of Kotlin: Conversion de old BASIC-programas a Kotlin por aprender lu elementari de ti-ci lingue.
Basics of Lua: Conversion de old BASIC-programas a Lua por aprender lu elementari de ti-ci lingue.
Basics of Nature: Conversion de old BASIC-programas a Nature por aprender lu elementari de ti-ci lingue.
Basics of Neat: Conversion de old BASIC-programas a Neat por aprender lu elementari de ti-ci lingue.
Basics of Neko: Conversion de old BASIC-programas a Neko por aprender lu elementari de ti-ci lingue.
Basics of Nelua: Conversion de old BASIC-programas a Nelua por aprender lu elementari de ti-ci lingue.
Basics of Nim: Conversion de old BASIC-programas a Nim por aprender lu elementari de ti-ci lingue.
Basics of Nit: Conversion de old BASIC-programas a Nit por aprender lu elementari de ti-ci lingue.
Basics of Oberon-07: Conversion de old BASIC-programas a Oberon-07 por aprender lu elementari de ti-ci lingue.
Basics of OCaml: Conversion de old BASIC-programas a OCaml por aprender lu elementari de ti-ci lingue.
Basics of Odin: Conversion de old BASIC-programas a Odin por aprender lu elementari de ti-ci lingue.
Basics of Pike: Conversion de old BASIC-programas a Pike por aprender lu elementari de ti-ci lingue.
Basics of Pony: Conversion de old BASIC-programas a Pony por aprender lu elementari de ti-ci lingue.
Basics of Python: Conversion de old BASIC-programas a Python por aprender lu elementari de ti-ci lingue.
Basics of Racket: Conversion de old BASIC-programas a Racket por aprender lu elementari de ti-ci lingue.
Basics of Raku: Conversion de old BASIC-programas a Raku por aprender lu elementari de ti-ci lingue.
Basics of Retro: Conversion de old BASIC-programas a Retro por aprender lu elementari de ti-ci lingue.
Basics of Rexx: Conversion de old BASIC-programas a Rexx por aprender lu elementari de ti-ci lingue.
Basics of Ring: Conversion de old BASIC-programas a Ring por aprender lu elementari de ti-ci lingue.
Basics of Rust: Conversion de old BASIC-programas a Rust por aprender lu elementari de ti-ci lingue.
Basics of Scala: Conversion de old BASIC-programas a Scala por aprender lu elementari de ti-ci lingue.
Basics of Scheme: Conversion de old BASIC-programas a Scheme por aprender lu elementari de ti-ci lingue.
Basics of Styx: Conversion de old BASIC-programas a Styx por aprender lu elementari de ti-ci lingue.
Basics of Swift: Conversion de old BASIC-programas a Swift por aprender lu elementari de ti-ci lingue.
Basics of V: Conversion de old BASIC-programas a V por aprender lu elementari de ti-ci lingue.
Basics of Vala: Conversion de old BASIC-programas a Vala por aprender lu elementari de ti-ci lingue.
Basics of Zig: Conversion de old BASIC-programas a Zig por aprender lu elementari de ti-ci lingue.

Extern ligamentes relatet

Lobster

Basics of Lobster

Descrition del contenete del págine

3D Plot

Diamond

Págines relatet

Extern ligamentes relatet