eparadis

import canvas
import math

branches_drawn = 0

def along( start, direction, fraction):
	'''return a start point fraction amount in direction'''
	newstart = ( start[0] + fraction * direction[0] * math.sin(direction[1]),
	             start[1] + fraction * direction[0] * math.cos(direction[1])  )
	return newstart

eparadis

The code below is written in C++ to create a lookup table for the grains for 1V/oct tracking

based on a linear PWM frequency of 31.25KHz, 32.70 is choosen as lowest frequency (C), 65536=2^16 is max pulsewidth on 31.25KHz, pow(x,y) is x^y pow(2,f) creates the exponential value of 0V to 5V in 1024 steps pow(2,0) = 1 generates a value of 32.50Hz pow(2,1) = 2 generates 32.50 * 2 = 65 Hz etc.

eparadis

10 x1=59
11 y1=21
20 i1=-1.0
21 i2=1.0
22 r1=-2.0
23 r2=1.0
30 s1=(r2-r1)/x1
31 s2=(i2-i1)/y1
40 for y=0  to y1
50 i3=i1+s2*y

eparadis

Extensible BASIC

A modified BASIC designed to support language extensions

6/12/2019

The common BASIC dialect on home computers of the 1970s and 1980s is Microsoft BASIC 4.7 or very similar. Generally speaking, the dialect supports a single user-defined FCN() which allows for a user defined expression with a single input parameter. Occasionally it will support machine-code methods with USR().

eparadis

5 INPUT "offset (dec) "; F
10 FOR I = 0 TO 255 STEP 16
11 IF I+F<16 THEN PRINT "0";
12 IF I+F<256 THEN PRINT "0";
13 IF I+F<4096 THEN PRINT "0";
15 PRINT HEX$(I+F);" ";
20 FOR J = 0 TO 15
25 V = PEEK(I+J+F)
27 IF V < 16 THEN PRINT "0";
30 PRINT HEX$(V);

eparadis

: dup sp@ @ ;
: -1 dup dup nand dup dup nand nand ;
: 0 -1 dup nand ;
: 1 -1 dup + dup nand ;
: 2 1 1 + ;
: 4 2 2 + ;
: 6 2 4 + ;
: invert dup nand ;
: and nand invert ;
: negate invert 1 + ;

eparadis

#!/bin/bash

if [[ $# -ne 1 ]]; then
  echo "Usage: ./meeting_countdown.sh NUM_MINS"
  exit 1
fi

MINS=$1
OUTFILE=~/src/obs/timer_out.txt
MESSAGE="time remaining in this meeting: "

eparadis

#include <stdint.h>
#include <stdio.h>

typedef uint8_t FLAG;
typedef uint8_t INSTR;
typedef uint8_t REGISTER;
typedef uint16_t IP;

const FLAG FLAG_HALT = 0x80;
const INSTR INSTR_LOAD = 0x08;

eparadis

#!/bin/bash
export DISPLAY=:0
export XAUTHORITY=/home/chip/.Xauthority
C=`xrandr | grep 480x272 | grep "*"`
if [ "$C" = "" ]; then :
	echo "composite active, switch back"
	xrandr --output Composite-1 --off
	xrandr --output None-1 --mode  480x272
else :
	echo "display active, switching to composite"

eparadis