Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Switch to GitLab Next
Sign in / Register
Toggle navigation
Main
Project overview
Project overview
Details
Activity
Releases
Cycle Analytics
Insights
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Locked Files
Issues
2
Issues
2
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Security & Compliance
Security & Compliance
Dependency List
Packages
Packages
Container Registry
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
OliBasic
Main
Commits
51c9ade5
Commit
51c9ade5
authored
Mar 31, 2018
by
Olimaticer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
2018-03-31
parent
b4ebc74a
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
11 additions
and
8 deletions
+11
-8
Changes.md
Changes.md
+1
-1
Examples/PorterDuff/PunchingTranparency.bas
Examples/PorterDuff/PunchingTranparency.bas
+10
-7
OliBasicXXIII/Documentation/OliBasic XXIII Appendix 2018-03-31.pdf
...XIII/Documentation/OliBasic XXIII Appendix 2018-03-31.pdf
+0
-0
OliBasicXXIII/Documentation/Source/OliBasic XXIII Appendix 2018-03-31.odt
...cumentation/Source/OliBasic XXIII Appendix 2018-03-31.odt
+0
-0
OliBasicXXIII/HappyEster2018.png
OliBasicXXIII/HappyEster2018.png
+0
-0
No files found.
Changes.md
View file @
51c9ade5
...
...
@@ -89,7 +89,7 @@ I’m so sorry for this inconvenience!**
65.
BYTE.COPY break switch added, making an abort by an interrupt possible.
66.
SHELL is new. Sends a shell command to the system and wait for a result.
67.
SENSORS.LIST is fixed and features new optional sensor infos (Android >= 5).
68.
KB.SEND.KEYEVENT is new. Send key events to the environment.
68.
KB.SEND.KEYEVENT is new. Send
s
key events to the environment.
69.
Some USB or Bluetooth keyboard function keys are supported in the Editor now.
70.
STT.LISTEN has a new bundle argument to control more options.
71.
BACKGROUND checks if the display screen is off and if the device is locked now.
...
...
Examples/PorterDuff/PunchingTranparency.bas
View file @
51c9ade5
Rem Basic! program. PunchingTransparency.bas
! Modified Brochi's Punching Code with PortDuff blending
FN.DEF maskBmp(bmp, stepSize, mr,mg,mb)
GR.BITMAP.SIZE bmp,x,y
GR.COLOR 0,0,0,0
...
...
@@ -34,27 +34,30 @@ mg = 246
mb = 10
GR.BITMAP.DRAWINTO.START mask
GR.COLOR 255, 20,30,60,1, ,-1
GR.COLOR 255, 20,30,60,1, ,-1
% ,-1 is new (default)
GR.RECT nn, 0,0,500,500
GR.COLOR 190, mr,mg,mb,1, ,0
GR.COLOR 190, mr,mg,mb,1, ,0
% ,0 is new (Clear)
GR.TEXT.SIZE 160
GR.TEXT.BOLD 1
!GR.SET.ANTIALIAS 0
!GR.SET.ANTIALIAS 0
% Not more needed
GR.TEXT.DRAW nn, 10,150 ,"BASIC!"
GR.TEXT.DRAW nn, 200,310, "For"
GR.TEXT.DRAW nn, 30,490 ,"Ever"
!GR.SET.ANTIALIAS 1
!GR.SET.ANTIALIAS 1
% Not more needed
GR.BITMAP.DRAWINTO.END
GR.RENDER
! CALL maskBmp(mask,20,mr,mg,mb)
! CALL maskBmp(mask,20,mr,mg,mb)
% Not more needed
speed = 0.66
DO
phi = TORADIANS(speed*t++)
GR.MODIFY tmp,"y" , SIN(phi)*400+400
GR.MODIFY tmp,"x" , COS(phi)*1
\ No newline at end of file
GR.MODIFY tmp,"x" , COS(phi)*100+100
GR.RENDER
PAUSE 5
UNTIL 0
OliBasicXXIII/Documentation/OliBasic XXIII Appendix 2018-03-31.pdf
View file @
51c9ade5
No preview for this file type
OliBasicXXIII/Documentation/Source/OliBasic XXIII Appendix 2018-03-31.odt
View file @
51c9ade5
No preview for this file type
OliBasicXXIII/HappyEster2018.png
0 → 100644
View file @
51c9ade5
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment