MODE 21 GCOL 4 RECTANGLE 100,100,400,100 GCOL 1 CIRCLE FILL 300,200,100 VDU 5 GCOL 15 MOVE 120,140 PRINT"Hello world!" VDU 4 COLOUR 2,0,40,0:REM A rather faint green as a highlighter GCOL 1,2 RECTANGLE FILL 150,80,500,200
INSTALL @lib$+"WINLIB5A" INSTALL @lib$+"MULTIWIN" INSTALL @lib$+"GDIPLIB" MODE 21 GCOL 2 RECTANGLE FILL 100,100,600,400 GCOL 1 CIRCLE FILL 400,400,200 PROC_gdipinit brush%=FN_gdipcreatebrush(&50F00020) DIM x(10),y(10) x()=50.0,160.0,280.0,300.0,170.0 y()=50.0,200.0,200.0,50.0,30.0 PROC_gdippolygon(brush%, 5, x(), y(),1) PROC_gdipdeletebrush(brush%) PROC_multiwin(2) w1h%=FN_createwin(1,"Extra 1",600,400,200,200,0,&96C00000,0) PROC_selectwin(1) GCOL 4 RECTANGLE FILL 50,50,40,40 t%=FN_gdipsetdc(@memhdc%) brush%=FN_gdipcreatebrush(&5000F020) PROC_gdippolygon(brush%, 5, x(), y(),1) PROC_gdipdeletebrush(brush%) PROC_gdipexit WAIT 200 PROC_selectwin(0) PROC_closewin(1)