void setxy(int x, int y)
{
esccmd_cmd='s'; // set beam off
exos_write_block(DEFAULT_VIDEO, 2, esccmd);
esccmd_cmd='A'; // set beam position
esccmd_x=x*2;
esccmd_y=972-y*4;
exos_write_block(DEFAULT_VIDEO, 6, esccmd);
}
void clg()
{
// Initialize a custom video mode
set_exos_variable(EV_BORD_VID,255);
status_line_off();
// x size = 42*8 -> 336 dots
// y size = 27*9 -> 243 dots
exos_set_vmode(VM_LRG,CM_2,42,27);
esccmd_cmd='c'; // Set palette colour
esccmd_x=0xff00; // color #0, value 255
exos_write_block(DEFAULT_VIDEO, 4, esccmd);
esccmd_x=0x0001; // color #1, value 0
exos_write_block(DEFAULT_VIDEO, 4, esccmd);
}
int undrawr(int x,int y)
{
esccmd_cmd='I'; // INK colour
esccmd_x=0;
exos_write_block(DEFAULT_VIDEO, 3, esccmd);
esccmd_cmd='S'; // set beam on
exos_write_block(DEFAULT_VIDEO, 2, esccmd);
esccmd_cmd='R'; // relative beam position
esccmd_x=x*2;
esccmd_y=-y*4;
exos_write_block(DEFAULT_VIDEO, 6, esccmd);
esccmd_cmd='s'; // set beam off
exos_write_block(DEFAULT_VIDEO, 2, esccmd);
}
int plot(int x, int y)
{
esccmd_cmd='I'; // INK colour
esccmd_x=1;
exos_write_block(DEFAULT_VIDEO, 3, esccmd);
esccmd_cmd='s'; // set beam off
exos_write_block(DEFAULT_VIDEO, 2, esccmd);
esccmd_cmd='A'; // set beam position
esccmd_x=x*2;
esccmd_y=972-y*4;
exos_write_block(DEFAULT_VIDEO, 6, esccmd);
esccmd_cmd='S'; // set beam on
exos_write_block(DEFAULT_VIDEO, 2, esccmd);
esccmd_cmd='s'; // set beam off
exos_write_block(DEFAULT_VIDEO, 2, esccmd);
}
int draw(int x1,int y1,int x2,int y2)
{
esccmd_cmd='I'; // INK colour
esccmd_x=1;
exos_write_block(DEFAULT_VIDEO, 3, esccmd);
esccmd_cmd='s'; // set beam off
exos_write_block(DEFAULT_VIDEO, 2, esccmd);
esccmd_cmd='A'; // set beam position
esccmd_x=x1*4;
esccmd_y=972-y1*4;
exos_write_block(DEFAULT_VIDEO, 6, esccmd);
esccmd_cmd='S'; // set beam on
exos_write_block(DEFAULT_VIDEO, 2, esccmd);
esccmd_cmd='A'; // set beam position
esccmd_x=x2*4;
esccmd_y=972-y2*4;
exos_write_block(DEFAULT_VIDEO, 6, esccmd);
esccmd_cmd='s'; // set beam off
exos_write_block(DEFAULT_VIDEO, 2, esccmd);
}
int uncircle(int x, int y, int radius, int skip)
{
esccmd_cmd='I'; // INK colour
esccmd_x=0;
exos_write_block(DEFAULT_VIDEO, 3, esccmd);
esccmd_cmd='s'; // set beam off
exos_write_block(DEFAULT_VIDEO, 2, esccmd);
esccmd_cmd='A'; // set beam position
esccmd_x=x*4;
esccmd_y=y*4;
exos_write_block(DEFAULT_VIDEO, 6, esccmd);
esccmd_cmd='E'; // Ellipse
esccmd_x=radius*4;
esccmd_y=972-radius*4;
exos_write_block(DEFAULT_VIDEO, 6, esccmd);
esccmd_cmd='s'; // set beam off
exos_write_block(DEFAULT_VIDEO, 2, esccmd);
}
