diff --git a/Bin/PicoCalc SD/PicoCalc SD/Chessnovice_johnybot.nes b/Bin/PicoCalc SD/PicoCalc SD/Chessnovice_johnybot.nes new file mode 100644 index 0000000..e262af3 Binary files /dev/null and b/Bin/PicoCalc SD/PicoCalc SD/Chessnovice_johnybot.nes differ diff --git a/Bin/PicoCalc SD/PicoCalc SD/bifdiag.bas b/Bin/PicoCalc SD/PicoCalc SD/bifdiag.bas new file mode 100644 index 0000000..7479113 --- /dev/null +++ b/Bin/PicoCalc SD/PicoCalc SD/bifdiag.bas @@ -0,0 +1,24 @@ +'Bifurcation diagram of the logistic map +Const W = 320 +Const H = 320 + +Const R_MIN = 2.5 +Const R_MAX = 4.0 +Const ITER = 200 +Const LAST_ITER = 50 + +Dim x As FLOAT +Dim r As FLOAT + +Color RGB(128, 128, 128) + +For i = 0 To W + r = R_MIN + (R_MAX - R_MIN) * i / W + x = 0.5 + For j = 1 To ITER + x = r * x * (1 - x) + If j > (ITER - LAST_ITER) Then + Pixel H - Int(x * H), i + End If + Next j +Next i \ No newline at end of file diff --git a/Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_Fuzix_v1.0.img b/Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_Fuzix_v1.0.img new file mode 100644 index 0000000..aae133e Binary files /dev/null and b/Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_Fuzix_v1.0.img differ diff --git a/Bin/PicoCalc_Fuzix_v1.0.uf2 b/Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_Fuzix_v1.0.uf2 similarity index 100% rename from Bin/PicoCalc_Fuzix_v1.0.uf2 rename to Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_Fuzix_v1.0.uf2 diff --git a/Bin/PicoCalc_MP3Player_v0.5.uf2 b/Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_MP3Player_v0.5.uf2 similarity index 100% rename from Bin/PicoCalc_MP3Player_v0.5.uf2 rename to Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_MP3Player_v0.5.uf2 diff --git a/Bin/PicoCalc_NES_v1.0.uf2 b/Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_NES_v1.0.uf2 similarity index 100% rename from Bin/PicoCalc_NES_v1.0.uf2 rename to Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_NES_v1.0.uf2 diff --git a/Bin/PicoCalc_PicoMite_v1.0.uf2 b/Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_PicoMite_v1.0.uf2 similarity index 100% rename from Bin/PicoCalc_PicoMite_v1.0.uf2 rename to Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_PicoMite_v1.0.uf2 diff --git a/Bin/PicoCalc_kbd_firmware/PicoCalc_firmware_v1.0.bin b/Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_stm32/PicoCalc_firmware_v1.0.bin similarity index 100% rename from Bin/PicoCalc_kbd_firmware/PicoCalc_firmware_v1.0.bin rename to Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_stm32/PicoCalc_firmware_v1.0.bin diff --git a/Bin/PicoCalc_kbd_firmware/PicoCalc_firmware_v1.0.hex b/Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_stm32/PicoCalc_firmware_v1.0.hex similarity index 100% rename from Bin/PicoCalc_kbd_firmware/PicoCalc_firmware_v1.0.hex rename to Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_stm32/PicoCalc_firmware_v1.0.hex diff --git a/Bin/PicoCalc_uLisp_v1.0.uf2 b/Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_uLisp_v1.0.uf2 similarity index 100% rename from Bin/PicoCalc_uLisp_v1.0.uf2 rename to Bin/PicoCalc SD/PicoCalc SD/firmware/PicoCalc_uLisp_v1.0.uf2 diff --git a/Bin/PicoCalc SD/PicoCalc SD/lorenz.bas b/Bin/PicoCalc SD/PicoCalc SD/lorenz.bas new file mode 100644 index 0000000..3831b4d --- /dev/null +++ b/Bin/PicoCalc SD/PicoCalc SD/lorenz.bas @@ -0,0 +1,32 @@ +'Lorenz attractor + +Const S=10,R=28,B=8/3 +Const DT=0.01,W=320,H=320 +Const XMIN=-30,XMAX=30 +Const YMIN=-30,YMAX=30 +Const ZMIN=0,ZMAX=60 + +Dim x As FLOAT=1,y As FLOAT=1 +Dim z As FLOAT=1,px,py,nx,ny,i + +Function M(c,mi,ma,sm) + M=Int((c-mi)/(ma-mi)*sm) +End Function + +CLS :Color RGB(255,127,0) + +For i=1 To 10000 + nx=M(x,XMIN,XMAX,W) + ny=M(y,YMIN,YMAX,H) + nz=M(z,ZMAN,ZMAX,H) + + If i>1 Then Line px,H-py,nx,H-ny +'If i>1 Then Line px,H-pz,nx,H-nz + + px=nx:py=ny:pz=nz + x=x+DT*S*(y-x) + y=y+DT*(x*(R-z)-y) + z=z+DT*(x*y-B*z) +Next + +End \ No newline at end of file diff --git a/Bin/PicoCalc SD/PicoCalc SD/mand.bas b/Bin/PicoCalc SD/PicoCalc SD/mand.bas new file mode 100644 index 0000000..9564cd4 --- /dev/null +++ b/Bin/PicoCalc SD/PicoCalc SD/mand.bas @@ -0,0 +1,48 @@ +'Mandelbrot set + +Option EXPLICIT + +Const W = 320 +Const H = 320 +Const X_MIN = -2.0 +Const X_MAX = 1.0 +Const Y_MIN = -1.5 +Const Y_MAX = 1.5 + +Const MAX_ITER = 16 + +Dim zx As FLOAT, zy As FLOAT +Dim cx As FLOAT, cy As FLOAT +Dim zx_next As FLOAT +Dim iter As INTEGER +Dim t As INTEGER +Dim x As INTEGER, y As INTEGER +Dim g As INTEGER + +For y = 0 To H - 1 + cy = Y_MIN + (Y_MAX - Y_MIN) * y / H + For x = 0 To W - 1 + cx = X_MIN + (X_MAX - X_MIN) * x / W + zx = 0 + zy = 0 + iter = 0 + t = zx * zx + zy * zy + + Do While t <= 4 And iter < MAX_ITER + zx_next = zx * zx - zy * zy + cx + zy = 2 * zx * zy + cy + zx = zx_next + iter = iter + 1 + + If zx*zx>4 Or zy*zy>4 Then Exit Do + Loop + + g = Int(255 * iter / MAX_ITER) + Color RGB(g, g, g) + Pixel x, y + + Next x +Next y + +Save Image "out.bmp", 0, 0, 319, 319 +End diff --git a/Bin/PicoCalc SD/PicoCalc SD/picocalc.bmp b/Bin/PicoCalc SD/PicoCalc SD/picocalc.bmp new file mode 100644 index 0000000..0c558c8 Binary files /dev/null and b/Bin/PicoCalc SD/PicoCalc SD/picocalc.bmp differ