Commit 51c9ade5 authored by Olimaticer's avatar Olimaticer

2018-03-31

parent b4ebc74a
......@@ -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. Sends 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.
......
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
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment