Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Messages - John Spikowski

Pages: 1 ... 9 10 [11] 12 13 ... 16

151

Nim / Re: Nim SDL2 gfx

« on: December 09, 2019, 04:44:06 AM »

An example using Nim SDL2 gfx primitives.

Code: Text

# ex205_sdl_gfx_primitives.nim
# ============================
# VIDEO / Drawing geometric primitives provided by sdl_gfx_primitives
# -------------------------------------------------------------------
 
 
import
    random,
    sdl2/sdl, sdl2/sdl_image as img,
    sdl2/sdl_gfx_primitives as gfx, sdl2/sdl_gfx_primitives_font as font
 
 
const
  Title = "SDL2 App"
  ScreenW = 640 # Window width
  ScreenH = 480 # Window height
  WindowFlags = 0
  RendererFlags = sdl.RendererAccelerated or sdl.RendererPresentVsync
 
 
type
  App = ref AppObj
  AppObj = object
    window*: sdl.Window # Window pointer
    renderer*: sdl.Renderer # Rendering state pointer
 
 
  Image = ref ImageObj
  ImageObj = object of RootObj
    texture: sdl.Texture # Image texture
    w, h: int # Image dimensions
 
 
#########
# IMAGE #
#########
 
proc newImage(): Image = Image(texture: nil, w: 0, h: 0)
proc free(obj: Image) = sdl.destroyTexture(obj.texture)
proc w(obj: Image): int {.inline.} = return obj.w
proc h(obj: Image): int {.inline.} = return obj.h
 
# blend
proc blend(obj: Image): sdl.BlendMode =
  var blend: sdl.BlendMode
  if obj.texture.getTextureBlendMode(addr(blend)) == 0:
    return blend
  else:
    return sdl.BlendModeBlend
 
proc `blend=`(obj: Image, mode: sdl.BlendMode) {.inline.} =
  discard obj.texture.setTextureBlendMode(mode)
 
# alpha
proc alpha(obj: Image): int =
  var alpha: uint8
  if obj.texture.getTextureAlphaMod(addr(alpha)) == 0:
    return alpha
  else:
    return 255
 
proc `alpha=`(obj: Image, alpha: int) =
  discard obj.texture.setTextureAlphaMod(alpha.uint8)
 
 
# Load image from file
# Return true on success or false, if image can't be loaded
proc load(obj: Image, renderer: sdl.Renderer, file: string): bool =
  result = true
  # Load image to texture
  obj.texture = renderer.loadTexture(file)
  if obj.texture == nil:
    sdl.logCritical(sdl.LogCategoryError,
                    "Can't load image %s: %s",
                    file, img.getError())
    return false
  # Get image dimensions
  var w, h: cint
  if obj.texture.queryTexture(nil, nil, addr(w), addr(h)) != 0:
    sdl.logCritical(sdl.LogCategoryError,
                    "Can't get texture attributes: %s",
                    sdl.getError())
    sdl.destroyTexture(obj.texture)
    return false
  obj.w = w
  obj.h = h
 
 
# Render texture to screen
proc render(obj: Image, renderer: sdl.Renderer, x, y: int): bool =
  var rect = sdl.Rect(x: x, y: y, w: obj.w, h: obj.h)
  if renderer.renderCopy(obj.texture, nil, addr(rect)) == 0:
    return true
  else:
    return false
 
 
# Render transformed texture to screen
proc renderEx(obj: Image, renderer: sdl.Renderer, x, y: int,
              w = 0, h = 0, angle = 0.0, centerX = -1, centerY = -1,
              flip = sdl.FlipNone): bool =
  var
    rect = sdl.Rect(x: x, y: y, w: obj.w, h: obj.h)
    centerObj = sdl.Point(x: centerX, y: centerY)
    center: ptr sdl.Point = nil
  if w != 0: rect.w = w
  if h != 0: rect.h = h
  if not (centerX == -1 and centerY == -1): center = addr(centerObj)
  if renderer.renderCopyEx(obj.texture, nil, addr(rect),
                           angle, center, flip) == 0:
    return true
  else:
    return false
 
 
##########
# COMMON #
##########
 
# Initialization sequence
proc init(app: App): bool =
  # Init SDL
  if sdl.init(sdl.InitVideo) != 0:
    sdl.logCritical(sdl.LogCategoryError,
                    "Can't initialize SDL: %s",
                    sdl.getError())
    return false
 
  # Init SDL_Image
  if img.init(img.InitPng) == 0:
    sdl.logCritical(sdl.LogCategoryError,
                    "Can't initialize SDL_Image: %s",
                    img.getError())
 
  # Create window
  app.window = sdl.createWindow(
    Title,
    sdl.WindowPosUndefined,
    sdl.WindowPosUndefined,
    ScreenW,
    ScreenH,
    WindowFlags)
  if app.window == nil:
    sdl.logCritical(sdl.LogCategoryError,
                    "Can't create window: %s",
                    sdl.getError())
    return false
 
  # Create renderer
  app.renderer = sdl.createRenderer(app.window, -1, RendererFlags)
  if app.renderer == nil:
    sdl.logCritical(sdl.LogCategoryError,
                    "Can't create renderer: %s",
                    sdl.getError())
    return false
 
  # Set draw color
  if app.renderer.setRenderDrawColor(0x00, 0x00, 0x00, 0xFF) != 0:
    sdl.logWarn(sdl.LogCategoryVideo,
                "Can't set draw color: %s",
                sdl.getError())
    return false
 
  sdl.logInfo(sdl.LogCategoryApplication, "SDL initialized successfully")
  randomize()
  return true
 
 
# Shutdown sequence
proc exit(app: App) =
  app.renderer.destroyRenderer()
  app.window.destroyWindow()
  img.quit()
  sdl.logInfo(sdl.LogCategoryApplication, "SDL shutdown completed")
  sdl.quit()
 
 
# Event handling
# Return true on app shutdown request, otherwise return false
proc events(pressed: var seq[sdl.Keycode]): bool =
  result = false
  var e: sdl.Event
  if pressed.len > 0:
    pressed = @[]
 
  while sdl.pollEvent(addr(e)) != 0:
 
    # Quit requested
    if e.kind == sdl.Quit:
      return true
 
    # Key pressed
    elif e.kind == sdl.KeyDown:
      # Add pressed key to sequence
      pressed.add(e.key.keysym.sym)
 
      # Exit on Escape key press
      if e.key.keysym.sym == sdl.K_Escape:
        return true
 
 
########
# MAIN #
########
 
var
  app = App(window: nil, renderer: nil)
  done = false # Main loop exit condition
  pressed: seq[sdl.Keycode] = @[] # Pressed keys
 
if init(app):
 
  # Generate random colors palette
  var rnd: array[256, sdl.Color]
  for i in 0..255:
    rnd[i].r = rand(255).uint8
    rnd[i].g = rand(255).uint8
    rnd[i].b = rand(255).uint8
    rnd[i].a = 255
    if rnd[i].r < 32 and rnd[i].g < 32 and rnd[i].b < 32:
      rnd[i].r = uint8(255 - rnd[i].r)
      rnd[i].g = uint8(255 - rnd[i].g)
      rnd[i].b = uint8(255 - rnd[i].b)
 
  # Load font
  gfx.gfxPrimitivesSetFont(addr(font.gfxPrimitivesFontData), 8, 8)
 
  # Main loop
  while not done:
    # Clear screen with draw color
    discard app.renderer.setRenderDrawColor(0x00, 0x00, 0x00, 0xFF)
    if app.renderer.renderClear() != 0:
      sdl.logWarn(sdl.LogCategoryVideo,
                  "Can't clear screen: %s",
                  sdl.getError())
 
    # Drawing
 
    # Point
    discard app.renderer.pixelRGBA(
      x = 10, y = 10,
      rnd[0].r, rnd[0].g, rnd[0].b, rnd[0].a)
 
    # Horizontal line
    discard app.renderer.hlineRGBA(
      x1 = 10, x2 = 110, y = 20,
      rnd[1].r, rnd[1].g, rnd[1].b, rnd[1].a)
 
    # Vertical line
    discard app.renderer.vlineRGBA(
      x = 120, y1 = 10, y2 = 470,
      rnd[2].r, rnd[2].g, rnd[2].b, rnd[2].a)
 
    # Rectangle
    discard app.renderer.rectangleRGBA(
      x1 = 10, y1 = 30, x2 = 110, y2 = 60,
      rnd[3].r, rnd[3].g, rnd[3].b, rnd[3].a)
 
    # Rounded rectangle
    discard app.renderer.roundedRectangleRGBA(
      x1 = 10, y1 = 70,  x2 = 110, y2 = 100, rad = 10,
      rnd[4].r, rnd[4].g, rnd[4].b, rnd[4].a)
 
    # Box
    discard app.renderer.boxRGBA(
      x1 = 10, y1 = 110, x2 = 110, y2 = 140,
      rnd[5].r, rnd[5].g, rnd[5].b, rnd[5].a)
 
    # RoundedBox
    discard app.renderer.roundedBoxRGBA(
      x1 = 10, y1 = 150, x2 = 110, y2 = 180, rad = 10,
      rnd[6].r, rnd[6].g, rnd[6].b, rnd[6].a)
 
    # Line
    discard app.renderer.lineRGBA(
      x1 = 10, y1 = 190, x2 = 110, y2 = 210,
      rnd[7].r, rnd[7].g, rnd[7].b, rnd[7].a)
 
    # Anti-aliased line
    discard app.renderer.aalineRGBA(
      x1 = 10, y1 = 200, x2 = 110, y2 = 220,
      rnd[8].r, rnd[8].g, rnd[8].b, rnd[8].a)
 
    # Thick line
    discard app.renderer.thickLineRGBA(
      x1 = 10, y1 = 210, x2 = 110, y2 = 230, width = 5,
      rnd[9].r, rnd[9].g, rnd[9].b, rnd[9].a)
 
    # Circle
    discard app.renderer.circleRGBA(
      x = 60, y = 280, rad = 50,
      rnd[10].r, rnd[10].g, rnd[10].b, rnd[10].a)
 
    # Arc
    discard app.renderer.arcRGBA(
      x = 60, y = 300, rad = 50, start = 30, finish = 150,
      rnd[11].r, rnd[11].g, rnd[11].b, rnd[11].a)
 
    # Anti-aliased circle
    discard app.renderer.aacircleRGBA(
      x = 60, y = 420, rad = 50,
      rnd[12].r, rnd[12].g, rnd[12].b, rnd[12].a)
 
    # Filled circle
    discard app.renderer.filledCircleRGBA(
      x = 180, y = 60, rad = 50,
      rnd[13].r, rnd[13].g, rnd[13].b, rnd[13].a)
 
    # Ellipse
    discard app.renderer.ellipseRGBA(
      x = 180, y = 135, rx = 50, ry = 15,
      rnd[14].r, rnd[14].g, rnd[14].b, rnd[14].a)
 
    # Anti-aliased ellipse
    discard app.renderer.aaellipseRGBA(
      x = 180, y = 180, rx = 50, ry = 15,
      rnd[15].r, rnd[15].g, rnd[15].b, rnd[15].a)
 
    # Filled ellipse
    discard app.renderer.filledEllipseRGBA(
      x = 180, y = 225, rx = 50, ry = 15,
      rnd[16].r, rnd[16].g, rnd[16].b, rnd[16].a)
 
    # Pie
    discard app.renderer.pieRGBA(
      x = 180, y = 260, rad = 50, start = 30, finish = 150,
      rnd[17].r, rnd[17].g, rnd[17].b, rnd[17].a)
 
    # Filled pie
    discard app.renderer.filledPieRGBA(
      x = 180, y = 320, rad = 50, start = 30, finish = 150,
      rnd[18].r, rnd[18].g, rnd[18].b, rnd[18].a)
 
    # Trigon
    discard app.renderer.trigonRGBA(
      x1 = 130, y1 = 380, x2 = 230, y2 = 390, x3 = 130, y3 = 410,
      rnd[19].r, rnd[19].g, rnd[19].b, rnd[19].a)
 
    # Anti-aliased trigon
    discard app.renderer.aatrigonRGBA(
      x1 = 130, y1 = 420, x2 = 230, y2 = 400, x3 = 230, y3 = 430,
      rnd[20].r, rnd[20].g, rnd[20].b, rnd[20].a)
 
    # Filled trigon
    discard app.renderer.filledTrigonRGBA(
      x1 = 130, y1 = 430, x2 = 230, y2 = 440, x3 = 130, y3 = 460,
      rnd[21].r, rnd[21].g, rnd[21].b, rnd[21].a)
 
    # Polygon
    const polyN = 4
    var polyX, polyY: array[polyN, int16]
    polyX[0] = 260
    polyY[0] = 10
    polyX[1] = 350
    polyY[1] = 20
    polyX[2] = 340
    polyY[2] = 40
    polyX[3] = 250
    polyY[3] = 30
    discard app.renderer.polygonRGBA(
      vx = addr(polyX[0]), vy = addr(polyY[0]), n = polyN,
      rnd[22].r, rnd[22].g, rnd[22].b, rnd[22].a)
 
    # Anti-aliased polygon
    polyY[0] = 50
    polyY[1] = 60
    polyY[2] = 80
    polyY[3] = 70
    discard app.renderer.aapolygonRGBA(
      vx = addr(polyX[0]), vy = addr(polyY[0]), n = polyN,
      rnd[23].r, rnd[23].g, rnd[23].b, rnd[23].a)
 
    # Filled polygon
    polyY[0] = 90
    polyY[1] = 100
    polyY[2] = 120
    polyY[3] = 110
    discard app.renderer.filledPolygonRGBA(
      vx = addr(polyX[0]), vy = addr(polyY[0]), n = polyN,
      rnd[24].r, rnd[24].g, rnd[24].b, rnd[24].a)
 
    # Textured polygon
    polyY[0] = 130
    polyY[1] = 140
    polyY[2] = 160
    polyY[3] = 150
    var polyTexture = img.load("img/img2.png")
    discard app.renderer.texturedPolygon(
      vx = addr(polyX[0]), vy = addr(polyY[0]), n = polyN,
      polyTexture, 0, 0)
 
    # Bezier curve
    const bezN = 4
    var bezX, bezY: array[bezN, int16]
    bezX[0] = 260
    bezY[0] = 170
    bezX[1] = 350
    bezY[1] = 180
    bezX[2] = 260
    bezY[2] = 190
    bezX[3] = 350
    bezY[3] = 200
    discard app.renderer.bezierRGBA(
      vx = addr(bezX[0]), vy = addr(bezY[0]), n = bezN, s = 100,
      rnd[25].r, rnd[25].g, rnd[25].b, rnd[25].a)
 
    # Character
    discard app.renderer.characterRGBA(
      x = 370, y = 10, 'A',
      rnd[26].r, rnd[26].g, rnd[26].b, rnd[26].a)
 
    # String
    discard app.renderer.stringRGBA(
      x = 370, y = 30, "String",
      rnd[27].r, rnd[27].g, rnd[27].b, rnd[27].a)
 
    # Update renderer
    app.renderer.renderPresent()
 
    # Event handling
    done = events(pressed)
 
# Shutdown
exit(app)
 

152

Programming Challenges / Re: SALC Rasbian 32

« on: December 08, 2019, 10:46:40 PM »

Python3 Update (AIR submission)

Code: Python

# Python 3 - 1mil3-2.py - AIR
 
def main():
    t = []
    r =""
    a = [None] * 1000001
    b = bytearray(26)
    decode = bytearray.decode
    blah = range(1000001)
    append = list.append
 
    for x in blah:
        alpha = x % 26
        b[alpha] = alpha + 65
        a[x] = x
        if alpha == 25:
            append(t, decode(b[::-1]))
 
    r = ''.join(t)
 
    print("r LEN: {}".format(len(r)))
    print("Front: {}".format(r[:26]))
    print("Back:  {}".format(r[-26:]))
    print("UBVal: {}".format(a[1000000]))
 
if __name__ == "__main__":
    main()
 

pi@RPi4B:~/python-dev/examples $ timex python3 1mil3-2,py r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.68user 0.08system 0:00.78elapsed 99%CPU (0avgtext+0avgdata 29952maxresident)k 0inputs+0outputs (0major+6541minor)pagefaults 0swaps pi@RPi4B:~/python-dev/examples $

153

General Discussion / Re: RPI Forum

« on: December 08, 2019, 09:25:27 PM »

Dart Fibo

It seems like Dart and Swift both use names that are oxymoronic to their performance.

Nim does fibo(78) in .008 seconds on the RPi 4B.

154

Programming Challenges / Re: SALC Rasbian 32

« on: December 08, 2019, 06:02:34 AM »

ScriptBasic Update

Code: Script BASIC

' ScriptBasic - 1milsf.sb
 
OPEN  "t_file" FOR OUTPUT AS #1
 
s = ""
SPLITA STRING(1000001,"0") BY "" TO a
 
FOR x = 1 TO 1000000
  s &= CHR(((x - 1) % 26) + 65)
  a[x] = x
  IF LEN(s) = 26 THEN
    PRINT #1, s
    s = ""
  END IF
NEXT
CLOSE(1)
 
flen = FILELEN("t_file")
OPEN "t_file" FOR INPUT AS #1
t = INPUT(flen, 1)
CLOSE(1)
t = STRREVERSE(t)
 
PRINT "t LEN: ",LEN(t),"\n"
PRINT "Front: ",LEFT(t, 26),"\n"
PRINT "Back:  ",RIGHT(t, 26),"\n"
PRINT "UBVal: ",a[1000000],"\n"
 

pi@RPi4B:~/sbrt/examples $ timex scriba 1milsf.sb t LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 7.03user 0.84system 0:07.89elapsed 99%CPU (0avgtext+0avgdata 171504maxresident)k 0inputs+1976outputs (0major+43080minor)pagefaults 0swaps pi@RPi4B:~/sbrt/examples $

155

Nim / Re: Nim SQLite

« on: December 08, 2019, 02:42:34 AM »

This is an example of the SQLite Nim extension.

Code: Text

# Nim SQLite
 
import tiny_sqlite
import options
 
let db = openDatabase("./test.db")
 
db.exec("DROP TABLE IF EXISTS Person")
 
db.execScript("""
  CREATE TABLE Person(
    name TEXT,
    age INTEGER
  );
""")
 
db.exec("""
    INSERT INTO Person(name, age)
    VALUES(?, ?)
""", "John Doe", 55)
 
let rows = db.rows("SELECT name, age FROM Person")
let (name, age) = rows[0].unpack((Option[string], Option[int]))
 
echo "Name: ", name.get
echo " Age: ", age.get
 
db.close
 

pi@RPi4B:~/nim-dev/examples $ nim c -d:release tsql.nim Hint: used config file '/etc/nim/nim.cfg' [Conf] Hint: system [Processing] Hint: tsql [Processing] Hint: tiny_sqlite [Processing] Hint: strutils [Processing] Hint: parseutils [Processing] Hint: math [Processing] Hint: bitops [Processing] Hint: algorithm [Processing] Hint: unicode [Processing] Hint: options [Processing] Hint: typetraits [Processing] Hint: macros [Processing] Hint: sqlite_wrapper [Processing] Hint: [Link] Hint: operation successful (22575 lines compiled; 1.740 sec total; 25.605MiB peakmem; Release Build) [SuccessX] pi@RPi4B:~/nim-dev/examples $ ls -l tsql -rwxr-xr-x 1 pi pi 88084 Dec 7 20:07 tsql pi@RPi4B:~/nim-dev/examples $ timex ./tsql Name: John Doe Age: 55 0.00user 0.00system 0:00.05elapsed 32%CPU (0avgtext+0avgdata 2368maxresident)k 0inputs+144outputs (0major+159minor)pagefaults 0swaps pi@RPi4B:~/nim-dev/examples $

156

Programming Challenges / Re: SALC Rasbian 32

« on: December 07, 2019, 08:44:32 PM »

BaCon Update (AIR submission)

Code: Text

' BaCon - 1mil3-2.bac - AIR
 
OPTION PARSE FALSE
 
s$ = ""
t$ = ""
 
DECLARE a[1000001] TYPE NUMBER
DECLARE len TYPE uint
DECLARE *stream TYPE FILE
 
stream = open_memstream(&t$,&len)
 
FOR x = 1 TO 1000000
  s$ = s$ & CHR$(MOD((x - 1), 26) + 65)
  a[x] = x
  IF LEN(s$) = 26 THEN
    fprintf(stream,s$)
    s$ = ""
  END IF
NEXT
CLOSE FILE stream
 
r$ = REVERSE$(t$)
FREE t$
PRINT "r LEN: ",len
PRINT "Front: ",LEFT$(r$, 26)
PRINT "Back:  ",RIGHT$(r$, 26)
PRINT "UBVal: ",a[1000000]
 

pi@RPi4B:~/bacon-dev/examples $ bacon 1mil3-2.bac Converting '1mil3-2.bac'... done, 30 lines were processed in 0.064 seconds. Compiling '1mil3-2.bac'... cc -c 1mil3-2.bac.c cc -o 1mil3-2 1mil3-2.bac.o -lbacon -L. -lm Done, program '1mil3-2' ready. pi@RPi4B:~/bacon-dev/examples $ ls -l 1mil3-2 -rwxr-xr-x 1 pi pi 114748 Dec 7 12:40 1mil3-2 pi@RPi4B:~/bacon-dev/examples $ timex ./1mil3-2 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.48user 0.03system 0:00.51elapsed 99%CPU (0avgtext+0avgdata 8012maxresident)k 0inputs+0outputs (0major+2068minor)pagefaults 0swaps pi@RPi4B:~/bacon-dev/examples $

157

Nim / Re: Nim Fibo

« on: December 07, 2019, 05:34:13 AM »

A Fibo Nim example for our RPI forum friends.

Code: Text

import math
 
proc Fibonacci(n: int): int64 =
  var fn = float64(n)
  var p: float64 = (1.0 + sqrt(5.0)) / 2.0
  var q: float64 = 1.0 / p
  return int64((pow(p, fn) + pow(q, fn)) / sqrt(5.0))
 
echo Fibonacci(78)
 

pi@RPi4B:~/nim-dev/examples $ nim c -d:release fibo78.nim Hint: used config file '/etc/nim/nim.cfg' [Conf] Hint: system [Processing] Hint: fibo78 [Processing] Hint: math [Processing] Hint: bitops [Processing] CC: fibo78 CC: stdlib_system CC: stdlib_math CC: stdlib_bitops Hint: [Link] Hint: operation successful (13698 lines compiled; 4.051 sec total; 10.754MiB peakmem; Release Build) [SuccessX] pi@RPi4B:~/nim-dev/examples $ timex ./fibo78 8944394323791488 0.00user 0.00system 0:00.00elapsed 83%CPU (0avgtext+0avgdata 1292maxresident)k 0inputs+0outputs (0major+98minor)pagefaults 0swaps pi@RPi4B:~/nim-dev/examples $ time ./fibo78 8944394323791488 real 0m0.008s user 0m0.008s sys 0m0.001s pi@RPi4B:~/nim-dev/examples $

There is a GMP extension for Nim that I might give the 1mil fibo a shot with.

Nim GMP

Code: Text

import gmp
 
var
  a,b: mpz_t
 
discard mpz_init_set_str(a.addr,"9999999999999999999999999999999999999999999999999999999999999999999",10)
discard mpz_init_set_str(b.addr,"10000000000000000000000000000000000000000000000000000000000000000000",10)
mpz_add(a.addr,a.addr,b.addr)
echo mpz_get_str(nil,10,a.addr)
 

pi@RPi4B:~/nim-dev/examples $ nim c -d:release bigintadd.nim Hint: used config file '/etc/nim/nim.cfg' [Conf] Hint: system [Processing] Hint: bigintadd [Processing] Hint: gmp [Processing] CC: bigintadd CC: stdlib_system CC: stdlib_gmp Hint: [Link] Hint: operation successful (13250 lines compiled; 3.834 sec total; 10.766MiB peakmem; Release Build) [SuccessX] pi@RPi4B:~/nim-dev/examples $ ls -l bigintadd -rwxr-xr-x 1 pi pi 52240 Dec 6 23:35 bigintadd pi@RPi4B:~/nim-dev/examples $ ./bigintadd 19999999999999999999999999999999999999999999999999999999999999999999 pi@RPi4B:~/nim-dev/examples $

158

Nim / Nim Introduction

« on: December 07, 2019, 04:25:35 AM »

I was able to get the IUP distribution I built for the RPi and Nim to work together. A "Hello Nim" of sorts.

Code: Text

import iup
 
proc btn_click(ih:PIhandle):cint {.cdecl.}=
    iup.message("Popup", "You clicked the button!")
 
discard iup.open(nil, nil)
 
var btn = iup.button("Click me!", nil)
discard iup.setCallback(btn, "ACTION", cast[ICallback](btn_click))
 
var dlg = iup.dialog(iup.vbox(btn, nil))
iup.setAttribute(dlg, "TITLE", "iupTabs")
 
discard iup.showXY(dlg, IUP_CENTER, IUP_CENTER)
discard iup.mainLoop()
 
iup.close()
 

pi@RPi4B:~/pui/iup-master/examples $ nim c -d:release callbacks.nim Hint: used config file '/etc/nim/nim.cfg' [Conf] Hint: system [Processing] Hint: callbacks [Processing] Hint: iup [Processing] CC: iup_callbacks CC: stdlib_system CC: stdlib_iup Hint: [Link] Hint: operation successful (13356 lines compiled; 4.586 sec total; 10.758MiB peakmem; Release Build) [SuccessX] pi@RPi4B:~/pui/iup-master/examples $ ls -l total 72 -rwxr-xr-x 1 pi pi 59180 Dec 6 20:17 callbacks -rw-r--r-- 1 pi pi 413 Nov 4 02:39 callbacks.nim -rw-r--r-- 1 pi pi 576 Nov 4 02:39 menu.nim -rw-r--r-- 1 pi pi 1023 Nov 4 02:39 tabs.nim pi@RPi4B:~/pui/iup-master/examples $ ./callbacks

159

Programming Challenges / Re: SALC Rasbian 32

« on: December 07, 2019, 03:06:32 AM »

I was curious if I expanded out the expression to concatenate strings in ScriptBasic would it help? NOT and good to know for future use.

Example

Was: t &= s

Changed To: t = t & s

&= seems to be ScriptBasic's StringBuilder function.

Code: Script BASIC

' ScriptBasic - 1mil.sb
 
s = ""
t = ""
SPLITA STRING(1000001,"0") BY "" TO a
 
FOR x = 1 TO 1000000
  s = s & CHR(((x - 1) % 26) + 65)
  a[x] = x
  IF LEN(s) = 26 THEN
    t = t & s
    s = ""
  END IF
NEXT
t = STRREVERSE(t)
PRINT "t LEN: ",LEN(t),"\n"
PRINT "Front: ",LEFT(t, 26),"\n"
PRINT "Back:  ",RIGHT(t, 26),"\n"
PRINT "UBVal: ",a[1000000],"\n"
 

pi@RPi4B:~/sbrt/examples $ timex scriba 1mil3.sb t LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 127.51user 35.17system 2:42.93elapsed 99%CPU (0avgtext+0avgdata 171488maxresident)k 0inputs+0outputs (0major+4122875minor)pagefaults 0swaps pi@RPi4B:~/sbrt/examples $

160

General Discussion / Re: RPI Forum

« on: December 06, 2019, 06:31:52 AM »

Quote from: Heater@RPI

When silly discussions have gone on long enough jamesh locks the thread. Everything goes dark.

Sooner or later the realization will set in that the RPi forum is focused towards support / Q&A topics. A bunch of old programmers shooting the shit or sharing a trick or two isn't part of the program. Any of the old farts that feel the moderator kids are being obnoxious, feel free to join us here,

161

Translators / Universal Language Translator

« on: December 06, 2019, 05:09:31 AM »

Hi Brian,

Thanks for joining us on the forum.

With your language translation skills have you thought of fostering a universal programming language translator project? Something like Google translate but for programming languages.

As you can see from the string / array language challenge the syntax isn't that different between them. I would like to hear your thoughts on the challenges that might be ahead.

162

Programming Challenges / Re: SALC Rasbian 32

« on: December 04, 2019, 06:23:02 AM »

Java

Code: Java

// Java - 1mil3.java
 
class onemil3
  {
  public static void main(String args[])
  {
  String s = "";
  String t = "";
  int c = 0;
  int[] a = new int[1000001];
 
  for (int x = 1; x <= 1000000; x++) {
    c = ((x - 1) % 26) + 65;          
    s = s + (char) c;
    a[x] = x;
    if(s.length() == 26) {
      t = t + s;
      s = "";
    }
  }
 
  StringBuilder r = new StringBuilder(); 
  r.append(t);
  r = r.reverse();
  
  System.out.println("r LEN: " + r.length());
  System.out.println("Front: " + r.substring(0, 26));
  System.out.println("Back:  " + r.substring(r.length() - 26));  
  System.out.println("UBVal: " + a[1000000]);
  }
}
 

pi@RPi4B:~/java-dev/examples $ /usr/bin/time java onemil3 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 43.79user 2.03system 0:34.78elapsed 131%CPU (0avgtext+0avgdata 144432maxresident)k 0inputs+96outputs (0major+33910minor)pagefaults 0swaps pi@RPi4B:~/java-dev/examples $

This version is using the StringBuilder class rather than adding a character or alphabet string to the result string. Night and day.

Code: Java

// Java - 1mil3.java
 
class onemil3
  {
  public static void main(String args[])
  {
  StringBuilder s = new StringBuilder(); 
  StringBuilder t = new StringBuilder(); 
  int c = 0;
  int[] a = new int[1000001];
 
  for (int x = 1; x <= 1000000; x++) {
    c = ((x - 1) % 26) + 65;          
    s.append((char) c);
    a[x] = x;
    if(s.length() == 26) {
      t.append(s);
      s.delete(0, s.length());
    }
  }
 
  StringBuilder r = new StringBuilder(); 
  r.append(t);
  r = r.reverse();
  
  System.out.println("r LEN: " + r.length());
  System.out.println("Front: " + r.substring(0, 26));
  System.out.println("Back:  " + r.substring(r.length() - 26));  
  System.out.println("UBVal: " + a[1000000]);
  }
}
 

pi@RPi4B:~/java-dev/examples $ javac 1mil3.java pi@RPi4B:~/java-dev/examples $ /usr/bin/time java onemil3 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.49user 0.14system 0:00.53elapsed 119%CPU (0avgtext+0avgdata 31948maxresident)k 0inputs+64outputs (0major+5024minor)pagefaults 0swaps pi@RPi4B:~/java-dev/examples $

163

Programming Challenges / Re: SALC Rasbian 32

« on: December 04, 2019, 01:29:49 AM »

Perl

Code: Perl

# Perl - 1mil3.pl
 
my $s = "";
my $t = "";
my $a = [1000000];
 
for (my $x = 1; $x <= 1000000; $x++) {
  $s = $s . chr((($x - 1) % 26) + 65);
  $a[$x] = $x;
  if (length($s) == 26) {
    $t = $t . $s;
    $s = "";
  }
}
 
 
my $r = scalar reverse $t;
 
printf("r LEN: %d\n", length($r));
printf("Front: %s\n", substr($r, 0, 26));
printf("Back:  %s\n", substr($r, -26));
printf("UBVal: %d\n", $a[1000000]);
 

pi@RPi4B:~/perl-dev/examples $ /usr/bin/time perl 1mil3.pl r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 1.13user 0.07system 0:01.22elapsed 99%CPU (0avgtext+0avgdata 33636maxresident)k 0inputs+0outputs (0major+7705minor)pagefaults 0swaps pi@RPi4B:~/perl-dev/examples $

164

Programming Challenges / Re: SALC Rasbian 32

« on: December 03, 2019, 07:35:46 PM »

C Update (AIR submission)

Code: C

// C Update - 1mil3.c - AIR
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
char *strrev(char *str)
{
    if (!str || ! *str)
        return str;
 
    int i = strlen(str) - 1, j = 0;
 
    char ch;
    while (i > j) {
        ch = str[i];
        str[i] = str[j];
        str[j] = ch;
        i--;
        j++;
    }
    return str;
}
 
 
int main() {
    int a[1000001] = {0};
    char *t=NULL;
    char tmp[2] = {0};
    char s[27] = {0};
    FILE *t_stream;
    size_t len;
 
    t_stream = open_memstream(&t, &len);
 
    for (int x = 0; x < 1000001; x++) {
        a[x] = x;
        tmp[0] = (char)(x%26)+65;
 
        strncat(s,tmp,2);
 
        if (strlen(s) == 26) {
            fprintf(t_stream, "%s",s);
            s[0] = '\0';
        }
 
    }
 
    fclose(t_stream);
 
    strrev(t);
 
    printf("r LEN: %lu\n",strlen(t));
    printf("Front: %.*s\n", 26, t);
    printf("Back:  %s\n", t + strlen(t) - 26);
    printf("UBVal: %d\n",a[1000000]);
 
    free(t);
 
}
 

pi@RPi4B:~/c-dev/examples $ gcc -O3 1mil3.2.c -o 1mil3.2 pi@RPi4B:~/c-dev/examples $ ls -l 1mil3.2 -rwxr-xr-x 1 pi pi 8296 Dec 3 11:31 1mil3.2 pi@RPi4B:~/c-dev/examples $ /usr/bin/time ./1mil3.2 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.14user 0.02system 0:00.18elapsed 97%CPU (0avgtext+0avgdata 5888maxresident)k 0inputs+0outputs (0major+1565minor)pagefaults 0swaps pi@RPi4B:~/c-dev/examples $

165

General Discussion / RPI Forum

« on: December 03, 2019, 04:40:04 PM »

Quote

I don't know if John is still following this thread or not, but if he is, thanks for finding that note. Those pages covered the mathematics so I could proceed directly to the software engineering needed to write an efficient program. It also helped to look at the sample code included in the post.

@ejolson,

Glad it helped! Wish you were here.

Pages: 1 ... 9 10 [11] 12 13 ... 16

News:

Show Posts

Messages - John Spikowski

Nim / Re: Nim SDL2 gfx

Programming Challenges / Re: SALC Rasbian 32

General Discussion / Re: RPI Forum

Programming Challenges / Re: SALC Rasbian 32

Nim / Re: Nim SQLite

Programming Challenges / Re: SALC Rasbian 32

Nim / Re: Nim Fibo

Nim / Nim Introduction

Programming Challenges / Re: SALC Rasbian 32

General Discussion / Re: RPI Forum

Translators / Universal Language Translator

Programming Challenges / Re: SALC Rasbian 32

Programming Challenges / Re: SALC Rasbian 32

Programming Challenges / Re: SALC Rasbian 32

General Discussion / RPI Forum