Beizer curves
by sonone, Apr 18, 2023, 2:20 PM
Beizer curves
Using complex numbers to represent coordinates, I made a simple program to draw a beizer curve:
I coded this on my CASIO fx-9860G Slim, but it should work on all other CASIO fx with CASIO-BASIC.
Using complex numbers to represent coordinates, I made a simple program to draw a beizer curve:
Cls
ViewWindow -6.3,6.3,1,-3.1,3.1,1
{0,2-2i,3+3i}->List 1 'curve coordinates
0.05->A 'step size
Plot ReP List 1[1],ImP List 1[1]
For A->I To 1 Step A
List 1->List 2
Dim List 1->N
While N>1
Dsz N
For 1->J To N
List 2[J]+I*(List 2[J+1]-List 2[J])->List 2[J]
Next
WhileEnd
Plot ReP List 2[1],ImP List 2[1]
Line
Next
I coded this on my CASIO fx-9860G Slim, but it should work on all other CASIO fx with CASIO-BASIC.