Shop OBEX P1 Docs P2 Docs Learn Events
Happy Holidays — Parallax Forums

Happy Holidays

ercoerco Posts: 20,256
edited 2020-12-17 04:55 in General Discussion
Kiddies, it may look like your iphone's "Music Tiles" game, but this is how they programmed machines back in 19 and 10: punched paper rolls on my 1910 player piano. Happy Holidays all, take a Sleigh Ride on the house!

«1

Comments

  • DigitalBobDigitalBob Posts: 1,513
    Festivus for the rest of us, I just call it Merry Christmas
  • DigitalBobDigitalBob Posts: 1,513
    I almost forgot Happy Hanukkah, Happy Kwanzaa, chime in if I forgot anyone. Want to include everyone
  • K2K2 Posts: 692
    edited 2020-12-17 21:01
    erco wrote: »
    Kiddies, it may look like your iphone's "Music Tiles" game, but this is how they programmed machines back in 19 and 10
    Also not too different from how they programmed mainframe computers 60 years later. :blush:

  • ercoerco Posts: 20,256
    Reprogrammed in a snap.

  • doggiedocdoggiedoc Posts: 2,241
    I’d so love to have a player piano!
  • ercoerco Posts: 20,256
    Good time to grab one, I hear piano prices are way down now. I paid $1000 for mine about 30 years ago and it still works great.

    Then begins the hunt for good player rolls.

    Just like the hunt for 78 RPM records began when I got my Victrolas...
  • PublisonPublison Posts: 12,366
    erco wrote: »
    Good time to grab one, I hear piano prices are way down now. I paid $1000 for mine about 30 years ago and it still works great.

    Then begins the hunt for good player rolls.

    Just like the hunt for 78 RPM records began when I got my Victrolas...

    My Niece got my Victrola, but I have 100-150 78's still in storage.
  • doggiedocdoggiedoc Posts: 2,241
    I found one on the local craigslist for free! Needs work.
  • ercoerco Posts: 20,256
    Excellent? Will you nab it?
  • ercoerco Posts: 20,256
    Some people have too much time on their hands. WOW!

  • Cluso99Cluso99 Posts: 18,069
    Merry Christmas from downunder 🎅🏻
  • WhitWhit Posts: 4,191
    edited 2020-12-24 22:48
    Merry Christmas, All!

    https://www.youtube.com/embed/LIODr_RWwEc
  • YanomaniYanomani Posts: 1,524
    Merry Christmas! Stay safe, and happy, All!
  • cgraceycgracey Posts: 14,151
    Merry Christmas, Everyone!
  • VonSzarvasVonSzarvas Posts: 3,450
    Merry Christmas from the east of UpOver !

    Hope everyone can enjoy some rest, fun and mayhem !
  • LA6WNALA6WNA Posts: 138
    God Jul. Greetings from Norway.
    16088957659485542827008437568979.jpg
    3096 x 5504 - 6M
  • RS_JimRS_Jim Posts: 1,764
    Merry Christmas from Arizona.
  • banjobanjo Posts: 447
    God Jul from Finland
    IMG_0928.jpg
    4032 x 3024 - 3M
  • doggiedocdoggiedoc Posts: 2,241
    Merry Christmas all! Happy Holidays!

    Paul
  • DigitalBobDigitalBob Posts: 1,513
    Nice snow scene from Finland. Looks perfect
  • ercoerco Posts: 20,256
    My daughter LOVES the Christmas gift I made her. Stranger Things is a sci-fi series set in the 80's which has sparked interest in several of dad's quirky interests. Nike leather Cortez, ham radio, and BASIC programming among them.
  • banjobanjo Posts: 447
    DigitalBob wrote: »
    Nice snow scene from Finland. Looks perfect
    Well, yes, especially compared to one day earlier :smile:
    56F49E6D-4CF0-452E-9F51-DE0B65D4E4C1.jpeg
    1280 x 958 - 663K
  • Francis BauerFrancis Bauer Posts: 364
    I couldn't resist on getting this Robbie the Robot for Christmas:
    Robbie_n_Box.jpg

    Here he/it is in action in this Video
  • Phil Pilgrim (PhiPi)Phil Pilgrim (PhiPi) Posts: 23,514
    edited 2020-12-27 14:33
    Happy Holidays, All!

    Here's my holiday light display:



    It's an Alitove 150-LED RGB strand driven by a Propeller FLiP board. Here's the code:
    CON

  _clkmode      = xtal1 + pll16x
  _xinfreq      = 5_000_000

  GRN           = 146           
  BLU           = 93
  GRN2          = 7            
  BLU2          = 11

  DIM           = 4
  CENTER        = 74
  ENDL          = 7
  ENDR          = 145

VAR

long buffer[150], buffer1[150], buffer2[150], background[150], seed
byte stars[10]


OBJ

  led   : "jm_rgbx_pixel"   'Jon Williams' WS2812 LED driver
 
PUB  start | i

  led.start_2812b(@buffer, 150, 3, 4)
  led.use(@buffer, 150, 3, 24)
  repeat
    fireworks(5)
    starburst(5000)

PUB starburst(n) | i, j, t0

  longfill(@buffer, $4000, 150)
  repeat n
    j := ?i // 150
    buffer[(stars[0] + 2) <# 149] := $4000
    buffer[(stars[0] - 2) #> 0] := $4000
    buffer[stars[5]] := $4000
    buffer[(stars[5] + 1) <# 149] := $80808000
    buffer[(stars[5] - 1) #> 0] := $80808000
    buffer[(stars[2] + 1) <# 149] := $4000
    buffer[(stars[2] - 1) #> 0] := $4000
    buffer[(stars[2] + 2) <# 149] := $40404000
    buffer[(stars[2] - 2) #> 0] := $40404000
    buffer[149] := $4000
    bytemove (@stars, @stars[1], 9)
    buffer[j] := $ffffff00
    stars[9] := j
    waitcnt (cnt + clkfreq / 50)
   
PUB fireworks(n) | i, j, t0

  longfill(@buffer, 0, 150)
  repeat n
    repeat i from ENDL to CENTER
      buffer[i - 1] := background[i - 1]
      buffer[i] := $ffa50000
      waitcnt(cnt + clkfreq / 20)
    buffer[CENTER] := background[CENTER]
    waitcnt(cnt + clkfreq / 20)
    explode
    repeat i from ENDR to CENTER
      buffer[i + 1] := background[i + 1]
      buffer[i] := $ffa50000
      waitcnt(cnt + clkfreq / 20)
    buffer[CENTER] := background[CENTER]
    explode
   
PUB explode | i, j

  repeat i from 0 to 2
    buffer[CENTER + i] := buffer[CENTER - i] := $ffffff00
    waitcnt(cnt + clkfreq/ 50)
  longmove(@buffer[CENTER - 2], @background[CENTER - 2], 5)
  repeat i from 0 to 64 step 2
    buffer[CENTER - i] := buffer[CENTER + i] := $ff000000
    buffer[CENTER - i - 1] := buffer[CENTER + i + 1] := $00ff0000
    waitcnt(cnt + clkfreq / 50)
  repeat j from 1 to 255 step 10
    repeat i from ENDL to ENDR
      if (buffer[i] & $ff000000)
        buffer[i] := (buffer[i] - $05000000) & $ffff0000 '| ((background[i] * (j + 1)) >> 8) & $0000ff00
      if (buffer[i] & $00ff0000)
        buffer[i] := (buffer[i] - $00050000) & $ffff0000 '| ((background[i] * (j + 1)) >> 8) & $0000ff00
    waitcnt(cnt + clkfreq / 50)
  repeat 100
    repeat 10
      i := ?seed // 150
      buffer[i] := background[i]
    waitcnt(cnt + clkfreq / 50)
  longmove(@buffer[ENDL - 1], @background[ENDL - 1], ENDR - ENDL + 3)

    -Phil
  • WhitWhit Posts: 4,191
    Phil Pilgrim (PhiPi) wrote: »
    Happy Holidays, All!

    Here's my holiday light display:

    https://vimeo.com/manage/494874285/general

    -Phil

    Can't wait to see your video Phil! Can you make the link shareable? Curious fans await!
  • Phil Pilgrim (PhiPi)Phil Pilgrim (PhiPi) Posts: 23,514
    Whit wrote:
    Can't wait to see your video Phil! Can you make the link shareable? Curious fans await!
    I fixed the link in the post above. Thanks for the heads-up, Whit!

    -Phil
  • ercoerco Posts: 20,256
    Awesome light show, PhiPi! Happy Holidays and here's to a far better 2021!
  • WhitWhit Posts: 4,191
    edited 2020-12-28 01:30
    @PhiPi - Thanks! Cool video - gonna study the code now!

    I like the "fireworks!"
  • WhitWhit Posts: 4,191
    edited 2020-12-28 01:35
    Francis Bauer wrote: »
    I couldn't resist on getting this Robbie the Robot for Christmas:

    @"Francis Bauer" - See https://roboticsunderthestole.blogspot.com/2020/10/from-forbidden-planet-aisle-at-walmart.html

    That Robbie is a lot of fun for money and way cool for a toy!
  • Tracy AllenTracy Allen Posts: 6,664
    Thanks, Parallax, happy holidays!
    64B7A6D2-5481-4A9F-85F3-9BCB874CB431.jpeg
    4032 x 3024 - 1M
Sign In or Register to comment.