Etch-a-Time Series: a RaspberryPi, a laser and Warp 10

Drawing time series with a laser on a phosphorescent plane. Funny project with a RaspberryPi, Warp 10 inside!

Etch a Time Series

(a totally useless indispensable project)

Bill of Material:

  • a GRBL controlled laser engraving machine
  • a cheap blue laser pointer
  • a phosphorescent sheet
  • two MP1584 DC-DC Adjustable Buck module
  • a Raspberry Pi 3
  • a MHS 3.5 inch screen kit.
Read more about Warp 10 Raspberry Pi 4 benchmark for industrial IoT

Replace the laser

First, remove the dangerous 2.5watt laser. Keep it away from children witty colleagues. Then, take apart the laser pointer, sold two wires to power it directly, and bypass the push button.

the laser used for the project
The hardest part is to take apart the electronic board from the case.

Then, you need to mechanically adapt the pointer to the machine, with a piece of wood or with a 3D printed part if you have more time to spend.

The laser connected to the RaspberryPi
Quick but not so dirty: a little piece of wood

The 2.5watt laser is powered with +12V and an “enable” wire: electrical adaptation is trivial because MP1584 has an enable pin. You just need to remove the pull-up resistor on this pin and sold it to the enable wire.

Oh, wait… pin #2 is interesting!

Do not forget to set the output voltage to 3V before connecting the laser pointer.

close look at the modified buck module

RaspberryPi power

The machine 12V power supply is powerful enough to power the Raspberry Pi. Again, a little MP1584 will do the job. It fits into the raspberry case, behind the screen. To simplify wiring, it is better to power the raspberry via the screen.

electronic card of the RaspberryPi
I used an old USB cable where green/red = 12V, white/black = ground.

Set it to 5.1 V to be sure to avoid power problem on the Raspberry Pi.

Drawing time series with a laser on a phosphorescent plane, a Raspberry Pi and Warp 10. Click To Tweet


Again, this project is proof of Warp 10 extensibility. There are three extensions: one to draw on the framebuffer (already used on the beer”o”meter), another one to write GRBL on the USB tty, and another one to add the SLEEP function, useful to slow down the display. processingToFramebuffer is available for everyone on WarpFleet. GRBL extension is not public yet (if you”re interested, contact us).

Under the hood, there is only one Warpscript, stored in a 50 second runner warp10/warpscripts/grbl/50000/random.mc2

The video player

Video showing the Warp 10 logo on the RaspberryPi screen
The input video

Warp 10 can handle binary values in time series since version 2.1. So, I will encode the video in several png images, then store the png as a GTS. ffmpeg is really helpful for that. The following bash script allows processing several video inputs stored in an “input” subdirectory.

#!/bin/bashmkdir -p tmpfor file in ./input/*; do    name=$(basename "$file")    basename=${name%.*}    echo "conversion of $basename"        framerate=10    h=320    w=480    ffmpeg -i "$file" -threads 8 -vf scale=$w:$h:force_original_aspect_ratio=decrease,pad=$w:$h:\(ow-iw\)/2:\(oh-ih\)/2,setsar=1 -r $framerate tmp/out_%05d.jpg        outfile=$basename.gts    echo "conversion to images done, starting a gts file $outfile"    rm -f $outfile || true #if exists    firstline=1        line=""    ts=0    for rawimage in ./tmp/*; do        ((ts++))        value=$(base64 -w0 $rawimage|tr "/+" "_-")        if [ $firstline -eq 1 ]; then            firstline=0            echo "$ts// imagesequence{title=$basename} b64:$value" >> $outfile        else            echo "=$ts// b64:$value" >> $outfile        fi    done    rm -rf ./tmpdone

The output is an optimized GTS format with binary value:


The video player is a loop on GTS values to decode each image and display them:

480 320 "2D3" PGraphics 0xff Pstroke 3.0 PstrokeWeight"background" STORE[ "readtoken" "imagesequence" { "title" "introEtchASketch" } NOW -1000 ] FETCH 0 GET SORT VALUES <%//when you fetch binary, you get some iso-8859-1 encoded strings  "iso-8859-1" ->BYTES "imagebytes" STORE    $background  $imagebytes Pdecode  //decode the image  0 0 Pimage DUP "background" STORE //paste the image on the background  "/dev/fb0" PtoFrameBuffer%> FOREACH

The random GTS generation

380 "width" STORE270 "height" STORENEWGTS0.0 "v" STORE1 380<%  NaN NaN NaN $v RAND 0.5 - 2 * + "v" STORE $v ADDVALUE%> FORNORMALIZE30 LTTB"inputGTS" STORE

It is not a simple random GTS. You start at zero, the increment is random. Then you normalize the result between 0.0 and 1.0 with the NORMALIZE function, then you only keep 30 points with LTTB function.

The GRBL generation

You need to build a string with each GTS value. One way to do this is a custom mapper that returns nothing, but build the string you want:

$inputGTS"M03 S0 F10000 "true "first" STORESWAP[ SWAP  <%    [ 3 7 ] SUBLIST FLATTEN    LIST-> [ "tick" NULL NULL NULL "val" NULL ] STORE    "G0 X" $tick  TOSTRING + " " + "Y" $val $height * "y" STORE $y TOSTRING + "%0A" + +    +    $first <% "M03 S1000%0A" + %> IFT    false "first" STORE    [ 0 NaN NaN NaN NULL ]  %>  MACROMAPPER  0 0 0] MAP DROP"S10%0A" +"G0 X0 Y0%0A" +"S10000%0A" + //turn on the laser again to make sure the tool goes to 0 0"S0%0A" +DUPGRBLSEND

The output is:

M03 S0 F10000 G0 X1 Y43.04538922681426 M03 S1000 G0 X10 Y87.46233827109988 G0 X24 Y139.1689621969481 G0 X28 Y119.72726588709227 G0 X41 Y131.69524004157586 G0 X54 Y100.6604201151945 G0 X75 Y97.24474169638347 G0 X81 Y79.54108843083182 G0 X100 Y30.48676065906525 G0 X114 Y78.43331848202173 G0 X119 Y57.384263349507364 G0 X142 Y0.0 G0 X148 Y21.245979053880475 G0 X159 Y58.79110242747617 G0 X179 Y99.52730433063698 G0 X190 Y59.882186179509816 G0 X198 Y95.91177475525515 G0 X215 Y49.77198273070387 G0 X228 Y124.55468659731648 G0 X237 Y82.22572446843881 G0 X260 Y158.88587411516895 G0 X266 Y148.36603476372318 G0 X282 Y98.97557857085135 G0 X295 Y114.99898058375837 G0 X306 Y150.23913980906022 G0 X316 Y174.79534467165988 G0 X337 Y258.2782760973157 G0 X352 Y265.14565752794346 G0 X361 Y213.20580859092698 G0 X380 Y226.71478171192967 S10 G0 X0 Y0 S10000 S0

The result:


Well, Warp 10 is a database. A GEO TIME SERIES DATABASE. But you can implement whatever function you need in a Warp 10 extension!

If you have some funny ideas, tell us on Twitter!

Discover how to create a Grafana BeerTender Dashboard connected with Warp 10