| #!/usr/bin/env python3 | |
| # esc-pos-image.py - print image files given as command line arguments | |
| # to simple ESC-POS image on stdout | |
| # scruss - 2014-07-26 - WTFPL (srsly) | |
| # - 2021-01-09 (made python3 compatible - tvm Carko!) | |
| # if you want a proper CUPS driver for a 58mm thermal printer | |
| # that uses this command set, go here: | |
| # https://github.com/klirichek/zj-58 |
| 1 REM TAIPAN - HAYDEN BOOK CO COPYRIGHT 1986 | |
| 2 REM BY ART CANFIL, KARL ALBRECHT, AND JIM MCCLENAHAN | |
| 3 REM TYPED, NOT EXHAUSTIVELY CHECKED, AND MILDLY TWEAKED BY DEAN OISBOID 2022 | |
| 4 REM REPLACED DIRECT CTRL-G CALLS WITH BP$ | |
| 5 REM INITIALIZATION (10-50) | |
| 10 HOME :A$ = " ":W$ = "ELDER BROTHER YU":LY$ = "LI YUEN":YS$ = "YAMATO & SMYTHE":TC$ = "O, S, T, A, P, OR R" | |
| 11 B$ = " " | |
| 14 REM OZZY REPLACED JUST BELOW WITH PROPER CTRL-G | |
| 15 BP$ = CHR$(7) | |
| 20 VTAB 4: INVERSE : PRINT A$: HTAB 15: PRINT "T A I P A N:": NORMAL : HTAB 13: PRINT "_________________" |
| 1 REM amazin | |
| 2 REM from https://archive.org/details/digital_edu_number_4/page/n1/mode/2up | |
| 100 RANDOMIZE | |
| 110 DIM W(25,103),V(25,103) | |
| 120 PRINT "WHAT ARE YOUR WIDTH AND LENGTH?" | |
| 121 INPUT H,V | |
| 122 PRINT | |
| 130 IF H<>1 THEN 150 | |
| 131 IF V<>1 THEN 150 | |
| 132 PRINT "MEANINGLESS DIMENSIONS, TRY AGAIN" |
| #!/usr/bin/python | |
| # esc-pos-image-star.py - print image files given as command line arguments | |
| # to simple ESC-POS image on stdout | |
| # using ESC * \x21 | |
| # scruss - 2014-07-26 - WTFPL (srsly) | |
| import sys | |
| from PIL import Image | |
| import PIL.ImageOps | |
| import struct |
| module chamfer_extrude(height = 2, angle = 10, center = false) { | |
| /* | |
| chamfer_extrude - OpenSCAD operator module to approximate | |
| chamfered/tapered extrusion of a 2D path | |
| (C) 2019-02, Stewart Russell (scruss) - CC-BY-SA | |
| NOTE: generates _lots_ of facets, as many as | |
| 6 * path_points + 4 * $fn - 4 |
| #!/bin/bash | |
| # is_z80 - guess if a binary is z80 or 8080 | |
| # from frequency of two-byte Z80 instructions | |
| # scruss, 2023-02 | |
| # this might need gnu awk. Needs bc for sure | |
| file="$1" | |
| if | |
| [ "$#" -eq 0 ] |
| #!/usr/bin/env python3 | |
| # hootnanny.py - simulate Hoot-Nanny / Magic Designer drawing toy | |
| # Currently hard-coded to output figure "25KM" in HP-GL, | |
| # a simple but somewhat obsolete plotting language. | |
| # Output figures as close to actual sizes as I could manage. | |
| # All dimensions in inches, unfortunately, but HP-GL is bilingual. | |
| # scruss, 2022-02 - code cleanup - 2022-12 | |
| # Licence: CC-BY-SA - share freely, but credit me and make your | |
| # improvements freely available for all | |
| # -*- coding: utf-8 -*- |
| 10 REM St Bees - scruss, 2022-06 - SPO256-AL2 emu on RC2040, CP/M MBasic | |
| 20 KAL$="PA1PA2PA3PA4PA5/OY/AY/EH/KK3/PP/JH/NN1/IH/TT2/RR1/AX/MM/TT1/DH1/IY/EY/DD1/UW1/AO/AA/YY2/AE/HH1/BB1/TH/UH/UW2/AW/DD2/GG3/VV/GG1/SH/ZH/RR2/FF/KK2/KK1/ZZ/NG/LL/WW/XR/WH/YY1/CH/ER1/ER2/OW/DH2/SS/NN2/HH2/OR/AR/YR/GG2/EL/BB2/" | |
| 30 ALV$="00*01*02*03*04*05*06*07*08**09*10*11**12*13**14**15*16*17**18**19*20*21**22**23*24*25**26*27**28**29*30*31**32*33**34**35*36**37*38*39**40*41**42**43*44*45*46*47*48*49**50*51**52**53*54**55*56**57**58*59*60*61**62*63***" | |
| 40 DEF FNLOOKUP$(N$)=LEFT$(RIGHT$(ALV$,LEN(KAL$)-INSTR(KAL$,N$)+1),2) | |
| 50 READ PHON$,TEXT$ | |
| 60 IF PHON$="end" THEN GOTO 175 | |
| 70 PRINT "(";TEXT$;")" | |
| 80 WHILE (LEN(PHON$)>0) | |
| 90 SPCPOS%=INSTR(PHON$," ") | |
| 100 IF SPCPOS%=0 THEN P$=PHON$:PHON$="" ELSE P$=LEFT$(PHON$,SPCPOS%-1):PHON$=RIGHT$(PHON$,LEN(PHON$)-SPCPOS%) |
| #!/usr/bin/env perl | |
| # collatz-memo.pl | |
| # run time: appx 7 s | |
| # output: max: 8400511 steps: 685 | |
| use v5.20; | |
| use strict; | |
| use warnings; | |
| my ( $maxsteps, $maxval, $n, $steps, $x ) = qw/0 0 0 0 1/; | |
| my @s; |
