Area-Commands (graphicslib) OLD!

[hackball]

Hier ist noch ein simples Beispiel für diese Lib:

Code:

; please be sure `overflow errors` ore disabled !! thenkks !
;
; linepattern demo for the RayAreaLibrary (C) by Frank Brandis
;

;FindScreen0    ;getting first screen (ted)
Screen0,3

Window1,0,0,320,250,$140e,"RayAreaLib , PatternDemo",1,0

*rp=RastPort(1)
WJam0

; first,test some linepatterns

;the binary values are better than Hex or Decimal
;note: 1 is a point,0 not .

pt.w=%1111111100000000:LinePattern *rp,pt:Wline 20,30,200,30,1
pt.w=%1100110011001100:LinePattern *rp,pt:Wline 20,40,200,40,1
pt.w=%1111000011110000:LinePattern *rp,pt:Wline 20,50,200,50,1
pt.w=%1010101010101010:LinePattern *rp,pt:Wline 20,60,200,60,1
pt.w=%1100000011000000:LinePattern *rp,pt:Wline 20,70,200,70,1
pt.w=%0011110000110000:LinePattern *rp,pt:Wline 20,80,200,80,1
pt.w=%1111111111111111:LinePattern *rp,pt:Wline 20,90,200,90,1

;setting up a fillpattern
;usefull for Wbox,WCls  etc. ( NOT for SetRast_*rp,pen !!)

Pattern *rp,$5555,$AAAA,$AAAA,$5555  ;rasters
WBox 20,100,300,130,1

Pattern *rp,$FFFF,$0000,$FFFF,$0000   ;Stripes
WBox 20,140,300,170,2

Pattern *rp,$FFFF,$FFFF,$FFFF,$FFFF  ; full colour !!
WBox 20,180,300,210,3

Repeat:Until WaitEvent=$200

End    ;end of line     :)

NoCli
WBStartup

Maybe usefull, to anyone?