Commit 51c9ade5 authored by Olimaticer's avatar Olimaticer

2018-03-31

parent b4ebc74a
...@@ -89,7 +89,7 @@ I’m so sorry for this inconvenience!** ...@@ -89,7 +89,7 @@ I’m so sorry for this inconvenience!**
65. BYTE.COPY break switch added, making an abort by an interrupt possible. 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. 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). 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. 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. 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. 71. BACKGROUND checks if the display screen is off and if the device is locked now.
......
Rem Basic! program. PunchingTransparency.bas Rem Basic! program. PunchingTransparency.bas
! Modified Brochi's Punching Code with PortDuff blending
FN.DEF maskBmp(bmp, stepSize, mr,mg,mb) FN.DEF maskBmp(bmp, stepSize, mr,mg,mb)
GR.BITMAP.SIZE bmp,x,y GR.BITMAP.SIZE bmp,x,y
GR.COLOR 0,0,0,0 GR.COLOR 0,0,0,0
...@@ -34,27 +34,30 @@ mg = 246 ...@@ -34,27 +34,30 @@ mg = 246
mb = 10 mb = 10
GR.BITMAP.DRAWINTO.START mask 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.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.SIZE 160
GR.TEXT.BOLD 1 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, 10,150 ,"BASIC!"
GR.TEXT.DRAW nn, 200,310, "For" GR.TEXT.DRAW nn, 200,310, "For"
GR.TEXT.DRAW nn, 30,490 ,"Ever" GR.TEXT.DRAW nn, 30,490 ,"Ever"
!GR.SET.ANTIALIAS 1 !GR.SET.ANTIALIAS 1 % Not more needed
GR.BITMAP.DRAWINTO.END GR.BITMAP.DRAWINTO.END
GR.RENDER GR.RENDER
! CALL maskBmp(mask,20,mr,mg,mb) ! CALL maskBmp(mask,20,mr,mg,mb) % Not more needed
speed = 0.66 speed = 0.66
DO DO
phi = TORADIANS(speed*t++) phi = TORADIANS(speed*t++)
GR.MODIFY tmp,"y" , SIN(phi)*400+400 GR.MODIFY tmp,"y" , SIN(phi)*400+400
GR.MODIFY tmp,"x" , COS(phi)*1 GR.MODIFY tmp,"x" , COS(phi)*100+100
\ No newline at end of file GR.RENDER
PAUSE 5
UNTIL 0
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