OkmPaint: Initial commit
This commit is contained in:
Ry
parent
d5e9404413
commit
c101b58dea
8
Makefile
8
Makefile
|
|
@ -1,5 +1,6 @@
|
||||||
RYFS := $(CURDIR)/meta/ryfs/ryfs.py
|
RYFS := $(CURDIR)/meta/ryfs/ryfs.py
|
||||||
FOX32ASM := ../fox32asm/target/release/fox32asm
|
FOX32ASM := ../fox32asm/target/release/fox32asm
|
||||||
|
OKAMERON := $(CURDIR)/meta/okameron/okameron.lua
|
||||||
GFX2INC := ../tools/gfx2inc/target/release/gfx2inc
|
GFX2INC := ../tools/gfx2inc/target/release/gfx2inc
|
||||||
|
|
||||||
IMAGE_SIZE := 16777216
|
IMAGE_SIZE := 16777216
|
||||||
|
|
@ -15,7 +16,6 @@ base_image/kernel.fxf: kernel/main.asm $(wildcard kernel/*.asm kernel/*/*.asm)
|
||||||
$(FOX32ASM) $< $@
|
$(FOX32ASM) $< $@
|
||||||
|
|
||||||
base_image/sh.fxf: applications/sh/main.asm $(wildcard applications/sh/*.asm applications/sh/*/*.asm)
|
base_image/sh.fxf: applications/sh/main.asm $(wildcard applications/sh/*.asm applications/sh/*/*.asm)
|
||||||
echo $(wildcard applications/sh/**/*.asm)
|
|
||||||
$(FOX32ASM) $< $@
|
$(FOX32ASM) $< $@
|
||||||
|
|
||||||
base_image/barclock.fxf: applications/barclock/main.asm
|
base_image/barclock.fxf: applications/barclock/main.asm
|
||||||
|
|
@ -30,6 +30,11 @@ base_image/serial.fxf: applications/serial/main.asm $(wildcard applications/term
|
||||||
base_image/foxpaint.fxf: applications/foxpaint/main.asm
|
base_image/foxpaint.fxf: applications/foxpaint/main.asm
|
||||||
$(FOX32ASM) $< $@
|
$(FOX32ASM) $< $@
|
||||||
|
|
||||||
|
base_image/okmpaint.fxf: applications/okmpaint/OkmPaint.okm $(wildcard applications/okmpaint/*.okm)
|
||||||
|
lua $(OKAMERON) -arch=fox32 -startup=applications/okmpaint/start.asm $< > applications/okmpaint/okmpaint.asm
|
||||||
|
$(FOX32ASM) applications/okmpaint/okmpaint.asm $@
|
||||||
|
rm applications/okmpaint/okmpaint.asm
|
||||||
|
|
||||||
base_image/bg.fxf: applications/bg/main.asm
|
base_image/bg.fxf: applications/bg/main.asm
|
||||||
$(FOX32ASM) $< $@
|
$(FOX32ASM) $< $@
|
||||||
|
|
||||||
|
|
@ -59,6 +64,7 @@ FILES = \
|
||||||
base_image/terminal.fxf \
|
base_image/terminal.fxf \
|
||||||
base_image/serial.fxf \
|
base_image/serial.fxf \
|
||||||
base_image/foxpaint.fxf \
|
base_image/foxpaint.fxf \
|
||||||
|
base_image/okmpaint.fxf \
|
||||||
base_image/bg.fxf \
|
base_image/bg.fxf \
|
||||||
base_image/bg.raw \
|
base_image/bg.raw \
|
||||||
base_image/launcher.fxf
|
base_image/launcher.fxf
|
||||||
|
|
|
||||||
128
applications/okmpaint/OkmPaint.okm
Normal file
128
applications/okmpaint/OkmPaint.okm
Normal file
|
|
@ -0,0 +1,128 @@
|
||||||
|
MODULE OkmPaint;
|
||||||
|
EXTERN PROCEDURE new_window, destroy_window, draw_str_to_overlay, get_window_overlay_number,
|
||||||
|
draw_widgets_to_window, draw_filled_rectangle_to_overlay, GetNextWindowEvent, DrawPixel,
|
||||||
|
save_state_and_yield_task, start_dragging_window, handle_widget_click, fill_window,
|
||||||
|
menu_update_event, menu_bar_click_event, close_menu: INT;
|
||||||
|
EXTERN eventArgs: ARRAY 8 OF INT;
|
||||||
|
EXTERN menuItemsRoot: POINTER TO CHAR;
|
||||||
|
EXTERN EVENT_TYPE_MOUSE_CLICK,
|
||||||
|
EVENT_TYPE_MOUSE_RELEASE,
|
||||||
|
EVENT_TYPE_BUTTON_CLICK,
|
||||||
|
EVENT_TYPE_MENU_BAR_CLICK,
|
||||||
|
EVENT_TYPE_MENU_UPDATE,
|
||||||
|
EVENT_TYPE_MENU_CLICK,
|
||||||
|
EVENT_TYPE_MENU_ACK,
|
||||||
|
WIDGET_TYPE_BUTTON: INT;
|
||||||
|
|
||||||
|
TYPE Fox32OSButtonWidget = RECORD
|
||||||
|
next, id, type, text, fgColor, bgColor, width: INT;
|
||||||
|
x, y: SHORT;
|
||||||
|
END;
|
||||||
|
|
||||||
|
VAR running: CHAR;
|
||||||
|
drawing: CHAR;
|
||||||
|
size: CHAR;
|
||||||
|
color: INT;
|
||||||
|
canvasWindow: ARRAY 36 OF CHAR;
|
||||||
|
|
||||||
|
PROCEDURE Main();
|
||||||
|
BEGIN
|
||||||
|
running := 1;
|
||||||
|
drawing := 0;
|
||||||
|
size := 2;
|
||||||
|
color := 0FFFFFFFFH;
|
||||||
|
|
||||||
|
new_window(PTROF(canvasWindow), "OkmPaint canvas", 256, 256, 128, 128, PTROF(menuItemsRoot), 0);
|
||||||
|
|
||||||
|
WHILE running DO
|
||||||
|
GetNextWindowEvent(PTROF(canvasWindow));
|
||||||
|
|
||||||
|
(* mouse click event *)
|
||||||
|
IF eventArgs[0] = PTROF(EVENT_TYPE_MOUSE_CLICK) THEN
|
||||||
|
IF (eventArgs[1] <| 8) & (eventArgs[2] <| 16) THEN
|
||||||
|
(* clicked the window's close box *)
|
||||||
|
destroy_window(PTROF(canvasWindow));
|
||||||
|
running := 0;
|
||||||
|
ELSIF eventArgs[2] <| 16 THEN
|
||||||
|
(* clicked the window's title bar *)
|
||||||
|
start_dragging_window(PTROF(canvasWindow));
|
||||||
|
ELSE
|
||||||
|
drawing := 1;
|
||||||
|
END;
|
||||||
|
|
||||||
|
(* mouse release event *)
|
||||||
|
ELSIF eventArgs[0] = PTROF(EVENT_TYPE_MOUSE_RELEASE) THEN
|
||||||
|
drawing := 0;
|
||||||
|
|
||||||
|
(* menu bar click event *)
|
||||||
|
ELSIF eventArgs[0] = PTROF(EVENT_TYPE_MENU_BAR_CLICK) THEN
|
||||||
|
menu_bar_click_event(PTROF(menuItemsRoot));
|
||||||
|
|
||||||
|
(* menu update event *)
|
||||||
|
ELSIF eventArgs[0] = PTROF(EVENT_TYPE_MENU_UPDATE) THEN
|
||||||
|
menu_update_event();
|
||||||
|
|
||||||
|
(* menu click event *)
|
||||||
|
ELSIF eventArgs[0] = PTROF(EVENT_TYPE_MENU_CLICK) THEN
|
||||||
|
MenuClickEvent(eventArgs[2], eventArgs[3]);
|
||||||
|
|
||||||
|
(* menu ack event *)
|
||||||
|
ELSIF eventArgs[0] = PTROF(EVENT_TYPE_MENU_ACK) THEN
|
||||||
|
close_menu(PTROF(menuItemsRoot));
|
||||||
|
END;
|
||||||
|
|
||||||
|
IF drawing THEN
|
||||||
|
DrawPixel();
|
||||||
|
END;
|
||||||
|
|
||||||
|
save_state_and_yield_task();
|
||||||
|
END;
|
||||||
|
END;
|
||||||
|
|
||||||
|
PROCEDURE MenuClickEvent(rootIndex, itemIndex: INT;);
|
||||||
|
BEGIN
|
||||||
|
IF rootIndex = 0 THEN
|
||||||
|
(* Canvas menu *)
|
||||||
|
IF itemIndex = 0 THEN
|
||||||
|
(* Clear to Black *)
|
||||||
|
fill_window(0FF000000H, PTROF(canvasWindow));
|
||||||
|
ELSIF itemIndex = 1 THEN
|
||||||
|
(* Clear to White *)
|
||||||
|
fill_window(0FFFFFFFFH, PTROF(canvasWindow));
|
||||||
|
END;
|
||||||
|
ELSIF rootIndex = 1 THEN
|
||||||
|
(* Brush menu *)
|
||||||
|
IF itemIndex = 0 THEN
|
||||||
|
(* 2x2 *)
|
||||||
|
size := 2;
|
||||||
|
ELSIF itemIndex = 1 THEN
|
||||||
|
(* 4x4 *)
|
||||||
|
size := 4;
|
||||||
|
ELSIF itemIndex = 2 THEN
|
||||||
|
(* 8x8 *)
|
||||||
|
size := 8;
|
||||||
|
ELSIF itemIndex = 3 THEN
|
||||||
|
(* 16x16 *)
|
||||||
|
size := 16;
|
||||||
|
END;
|
||||||
|
ELSIF rootIndex = 2 THEN
|
||||||
|
(* Color menu *)
|
||||||
|
IF itemIndex = 0 THEN
|
||||||
|
(* Black *)
|
||||||
|
color := 0FF000000H;
|
||||||
|
ELSIF itemIndex = 1 THEN
|
||||||
|
(* White *)
|
||||||
|
color := 0FFFFFFFFH;
|
||||||
|
ELSIF itemIndex = 2 THEN
|
||||||
|
(* Red *)
|
||||||
|
color := 0FF0000FFH;
|
||||||
|
ELSIF itemIndex = 3 THEN
|
||||||
|
(* Green *)
|
||||||
|
color := 0FF00FF00H;
|
||||||
|
ELSIF itemIndex = 3 THEN
|
||||||
|
(* Blue *)
|
||||||
|
color := 0FFFF0000H;
|
||||||
|
END;
|
||||||
|
END;
|
||||||
|
END;
|
||||||
|
END.
|
||||||
74
applications/okmpaint/start.asm
Normal file
74
applications/okmpaint/start.asm
Normal file
|
|
@ -0,0 +1,74 @@
|
||||||
|
call Main
|
||||||
|
call end_current_task
|
||||||
|
|
||||||
|
DrawPixel:
|
||||||
|
mov r0, canvasWindow
|
||||||
|
call get_window_overlay_number
|
||||||
|
mov r2, r0
|
||||||
|
mov r5, r0
|
||||||
|
call get_mouse_position
|
||||||
|
call make_coordinates_relative_to_overlay
|
||||||
|
movz.8 r2, [size]
|
||||||
|
movz.8 r3, [size]
|
||||||
|
mov r4, [color]
|
||||||
|
call draw_filled_rectangle_to_overlay
|
||||||
|
ret
|
||||||
|
|
||||||
|
GetNextWindowEvent:
|
||||||
|
push r8
|
||||||
|
call get_next_window_event
|
||||||
|
mov r8, eventArgs
|
||||||
|
mov [r8], r0
|
||||||
|
add r8, 4
|
||||||
|
mov [r8], r1
|
||||||
|
add r8, 4
|
||||||
|
mov [r8], r2
|
||||||
|
add r8, 4
|
||||||
|
mov [r8], r3
|
||||||
|
add r8, 4
|
||||||
|
mov [r8], r4
|
||||||
|
add r8, 4
|
||||||
|
mov [r8], r5
|
||||||
|
add r8, 4
|
||||||
|
mov [r8], r6
|
||||||
|
add r8, 4
|
||||||
|
mov [r8], r7
|
||||||
|
pop r8
|
||||||
|
ret
|
||||||
|
|
||||||
|
eventArgs: data.fill 0, 32
|
||||||
|
|
||||||
|
menuItemsRoot:
|
||||||
|
data.8 3 ; number of menus
|
||||||
|
data.32 menu_items_canvas_list data.32 menu_items_canvas_name ; pointer to menu list, pointer to menu name
|
||||||
|
data.32 menu_items_brush_list data.32 menu_items_brush_name ; pointer to menu list, pointer to menu name
|
||||||
|
data.32 menu_items_color_list data.32 menu_items_color_name ; pointer to menu list, pointer to menu name
|
||||||
|
menu_items_canvas_name:
|
||||||
|
data.8 6 data.strz "Canvas" ; text length, text, null-terminator
|
||||||
|
menu_items_brush_name:
|
||||||
|
data.8 5 data.strz "Brush" ; text length, text, null-terminator
|
||||||
|
menu_items_color_name:
|
||||||
|
data.8 5 data.strz "Color" ; text length, text, null-terminator
|
||||||
|
menu_items_canvas_list:
|
||||||
|
data.8 2 ; number of items
|
||||||
|
data.8 16 ; menu width (usually longest item + 2)
|
||||||
|
data.8 14 data.strz "Clear to Black" ; text length, text, null-terminator
|
||||||
|
data.8 14 data.strz "Clear to White" ; text length, text, null-terminator
|
||||||
|
menu_items_brush_list:
|
||||||
|
data.8 4 ; number of items
|
||||||
|
data.8 7 ; menu width (usually longest item + 2)
|
||||||
|
data.8 3 data.strz "2x2" ; text length, text, null-terminator
|
||||||
|
data.8 3 data.strz "4x4" ; text length, text, null-terminator
|
||||||
|
data.8 3 data.strz "8x8" ; text length, text, null-terminator
|
||||||
|
data.8 5 data.strz "16x16" ; text length, text, null-terminator
|
||||||
|
menu_items_color_list:
|
||||||
|
data.8 5 ; number of items
|
||||||
|
data.8 7 ; menu width (usually longest item + 2)
|
||||||
|
data.8 5 data.strz "Black" ; text length, text, null-terminator
|
||||||
|
data.8 5 data.strz "White" ; text length, text, null-terminator
|
||||||
|
data.8 3 data.strz "Red" ; text length, text, null-terminator
|
||||||
|
data.8 5 data.strz "Green" ; text length, text, null-terminator
|
||||||
|
data.8 4 data.strz "Blue" ; text length, text, null-terminator
|
||||||
|
|
||||||
|
#include "../../../fox32rom/fox32rom.def"
|
||||||
|
#include "../../fox32os.def"
|
||||||
Loading…
Reference in New Issue
Block a user