deleted file mode 100644

@@ -1,146 +0,0 @@

-( GUI Picture )

-

-%RTN { JMP2r }

-%LOAD-IMAGE { .File/length DEO2 .File/name DEO2 ;image .File/read DEO2 }

-

-( devices )

-

-|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]

-|20 @Screen [ &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]

-|a0 @File [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]

-

-( variables )

-

-|0000

-

-@position

-	&x $2 &y $2

-@size

-	&width $2 &height $2

-

-( program )

-

-|0100

-

-	( theme ) 

-	#072f .System/r DEO2 

-	#072f .System/g DEO2 

-	#072f .System/b DEO2

-

-	( background ) ;checker-icn #02 ;cover-pattern JSR2

-

-	( load ) ;icn1-path #1800 LOAD-IMAGE

-	( draw ) #0008 #0008 #0100 #00c0 ;image #01 ;draw-icn JSR2

-	( load ) ;icn2-path #0800 LOAD-IMAGE

-	( draw ) #0010 #00a8 #0080 #0080 ;image #03 ;draw-icn JSR2

-	( load ) ;chr1-path #4000 LOAD-IMAGE

-	( draw ) #00e8 #0080 #0100 #0080 ;image #81 ;draw-chr JSR2

-	( load ) ;chr2-path #0900 LOAD-IMAGE

-	( draw ) #0068 #0098 #0060 #0060 ;image #85 ;draw-chr JSR2

-

-

-	( auto-x )

-	#01 .Screen/auto DEO

-	#0070 .Screen/x DEO2

-	#0070 .Screen/y DEO2

-	;checker-icn .Screen/addr DEO2

-	#03 .Screen/sprite DEO

-	#03 .Screen/sprite DEO

-	#03 .Screen/sprite DEO

-	#03 .Screen/sprite DEO

-	#03 .Screen/sprite DEO

-	#00 .Screen/auto DEO

-

-BRK

-

-@draw-icn ( x* y* width* height* addr* color -- )

-	

-	( load ) STH .Screen/addr DEO2 .size/height STZ2 .size/width STZ2 .position/y STZ2 .position/x STZ2

-	.size/height LDZ2 #0000 

-	&ver

-		( save ) DUP2 .position/y LDZ2 ADD2 .Screen/y DEO2

-		.size/width LDZ2 #0000

-		&hor

-			( save ) DUP2 .position/x LDZ2 ADD2 .Screen/x DEO2

-			( draw ) STHkr .Screen/sprite DEO

-			( incr ) .Screen/addr DEI2 #0008 ADD2 .Screen/addr DEO2

-			#0008 ADD2 GTH2k ,&hor JCN

-		POP2 POP2

-		#0008 ADD2 GTH2k ,&ver JCN

-	POP2 POP2

-	POPr

-

-RTN

-

-@draw-icn-pixels ( x* y* width* height* addr* color -- )

-

-	( load ) STH .Screen/addr DEO2 .size/height STZ2 .size/width STZ2 .position/y STZ2 .position/x STZ2

-	.size/height LDZ2 #0000

-	&ver

-		( save ) DUP2 .position/y LDZ2 ++ .Screen/y DEO2

-		.size/width LDZ2 #0000

-		&hor

-			( get x,y ) STH2 OVR2 STH2r SWP2 OVR2 SWP2 

-			( save ) OVR2 .position/x LDZ2 ++ .Screen/x DEO2

-			( draw ) ,get-icn-pixel JSR STHkr * .Screen/pixel DEO

-			INC2 GTH2k ,&hor JCN

-		POP2 POP2

-		INC2 GTH2k ,&ver JCN

-	POP2 POP2

-	POPr

-

-RTN

-

-@get-icn-pixel ( x* y* -- color )

-

-	( get row ) OVR2 SWP2 DUP2 8MOD2

-	( get tile ) SWP2 8// 80** ++ SWP2 STEP8 ++ ;source ++ LDA

-	( get mask ) ROT ROT NIP 8MOD 

-	( get pixel ) #07 SWP - SFT #01 AND

-

-RTN

-

-@draw-chr ( x* y* width* height* addr* color -- )

-	

-	( load ) STH .Screen/addr DEO2 .size/height STZ2 .size/width STZ2 .position/y STZ2 .position/x STZ2

-	.size/height LDZ2 #0000

-	&ver

-		( save ) DUP2 .position/y LDZ2 ADD2 .Screen/y DEO2

-		.size/width LDZ2 #0000

-		&hor

-			( save ) DUP2 .position/x LDZ2 ADD2 .Screen/x DEO2

-			( draw ) STHkr .Screen/sprite DEO

-			( incr ) .Screen/addr DEI2 #0010 ADD2 .Screen/addr DEO2

-			#0008 ADD2 GTH2k ,&hor JCN

-		POP2 POP2

-		#0008 ADD2 GTH2k ,&ver JCN

-	POP2 POP2

-	POPr

-

-RTN

-

-@cover-pattern ( addr* color -- )

-	

-	( load ) STH .Screen/addr DEO2

-	.Screen/height DEI2 #0000

-	&ver

-		( save ) DUP2 .Screen/y DEO2

-		.Screen/width DEI2 #0000

-		&hor

-			( save ) DUP2 .Screen/x DEO2

-			( draw ) STHkr .Screen/sprite DEO

-			#0008 ADD2 GTH2k ,&hor JCN

-		POP2 POP2

-		#0008 ADD2 GTH2k ,&ver JCN

-	POP2 POP2

-	POPr

-

-RTN

-

-@checker-icn f0f0 f0f0 0f0f 0f0f

-@icn1-path   "projects/pictures/ergo100x0c0.bit 00

-@icn2-path   "projects/pictures/dafu80x80.bit 00

-@chr1-path   "projects/pictures/pc98.chr 00

-@chr2-path   "projects/pictures/felix0cx0c.chr 00

-

-@image [ ]

\ No newline at end of file