; CYBER CONTROL Stand-alone demonstration
; by Tom Hudson
;
; Run this program WITHOUT CAD-3D in memory!
; Set up CYBER CONTROL with watch buffer and overlay buffer ON
; Make sure ALONEBAK.PC1 and BANNER.BL1 are on drive A!

mono

; Load background and overlay image

loadbak L,"a:\alonebak.pc1",Y
getimage "a:\banner.bl1",w,h

; Set initial banner position

bannerx=-w

; Start watching the demo!

watch on

for angle=0 to 359 step 5

; Set background
; Comment out the BACKSET command and watch what happens!

backset L

; Plot banner

offset=sin(angle)*50
overlay L,bannerx,100-(offset+h/2)
bannerx=bannerx+6

next angle

watch off:end