├── README.md
└── julia.CPP


/README.md:
--------------------------------------------------------------------------------
1 | julia-templeos
2 | ==============
3 | 
4 | Julia set generator written for TempleOS
5 | 
6 | ![Output](http://i.imgur.com/2ScBVRf.png)
7 | 


--------------------------------------------------------------------------------
/julia.CPP:
--------------------------------------------------------------------------------
 1 | #define BOTTOM -1.0
 2 | #define TOP 1.0
 3 | #define LEFT -2.0
 4 | #define RIGHT 2.0
 5 | #define COLS 320
 6 | #define ROWS 160
 7 | #define ITERS 100
 8 | 
 9 | #define WIDTH 4.0
10 | #define HEIGHT 2.0
11 | #define ROW_INC (HEIGHT/ROWS)
12 | #define COL_INC (WIDTH/COLS)
13 | 
14 | I64 getColor(F64 cr, F64 ci, F64 zr, F64 zi) {
15 |     I64 i=0;
16 |     F64 tzr=0.0, tzi=0.0;
17 |     while(i<ITERS && ((zr*zr + zi*zi) < 4.0)) {
18 |         i++;
19 |         tzr=zr*zr-zi*zi+cr;
20 |         tzi=2.0*zr*zi+ci;
21 |         zr=tzr;
22 |         zi=tzi;
23 |     }
24 |     return ToI64((ToF64(i)/ITERS)*15.0);
25 | }
26 | 
27 | U0 Main() {
28 |     "Julia Set Generator\n";
29 |     SettingsPush;
30 | 
31 |     I64 k,j;
32 |     CBGR48 bgr;
33 |     for (k=0; k<16; k++) {
34 |         j=0xFFF*k;
35 |         bgr.b=j;
36 |         bgr.g=j;
37 |         bgr.r=j;
38 |         GrPalletteColorSet(k, bgr);
39 |     }
40 | 
41 |     CDC *dc=DCAlias;
42 |     I64 row, col;
43 |     for (row=0; row<ROWS; row++) {
44 |         for (col=0; col<COLS; col++) {
45 |             F64 r=LEFT+ToF64(COL_INC*col), i=BOTTOM+ToF64(ROW_INC*row);
46 |             dc->color=getColor(-0.8, 0.156, r, i);
47 |             I64 x=col*(640/COLS), y=row*(480/ROWS);
48 |             GrRect(dc, x, y, 640/COLS, 480/ROWS);
49 |         }
50 |     }
51 |     PressAKey;
52 |     DCFill(dc);
53 |     DCDel(dc);
54 | 
55 |     SettingsPop;
56 | }
57 | Main;
58 | 


--------------------------------------------------------------------------------