Colour pinstripe/Display: Difference between revisions
Content deleted Content added
No edit summary |
|||
Line 629: | Line 629: | ||
} |
} |
||
}</lang> |
}</lang> |
||
=={{header|M2000 Interpreter}}== |
|||
Module names and variables with same name may exist |
|||
Above and inside M2000 console layer there are 32 layers. These layers used for text/graphics and as sprites. We can make window forms above console window, any number of them and for forms 100 we can use background as layer too. Behind console layer is the background layer (the console window) and also there we can use it for printing. Also there is one more layer, the printer layer which hold a page. |
|||
For eedilayers as background, console and sprites we can use Input too. This command can't be used in user windows, we have to use controls and events. |
|||
Sprite layers have a priority number, so 32 is the top one. We can change priorities sending back any sprite |
|||
edit |
|||
<lang M2000 Interpreter> |
|||
Module Pinstripe { |
|||
Smooth off ' use of GDI32 |
|||
Dim colors(0 to 7) |
|||
Colors(0)=#000000,#FF0000, #00FF00, #0000FF, #FF00FF, #00FFFF, #FFFF00, #FFFFFF |
|||
pixelsX=scale.x/twipsX |
|||
pixelsY=scale.y/twipsY |
|||
zoneheight=scale.y/4 |
|||
n=0 |
|||
Refresh 5000 |
|||
For i=1 to 4 { |
|||
move 0, (i-1)*zoneheight |
|||
pinw=i*twipsx |
|||
For j=1 to pixelsX/i { |
|||
Fill pinw, zoneheight, color(n) |
|||
Step 0, -zoneheight |
|||
n++:if n=8 then n=0 |
|||
} |
|||
} |
|||
\\ now we make the refersh |
|||
Refresh 100 |
|||
} |
|||
\\ draw to console window |
|||
\\ now we make a window and draw there |
|||
Pinstripe |
|||
Layer 32 { |
|||
Window 12, 10000,10000 |
|||
Pinstripe |
|||
Motion 2000,2000 |
|||
Show |
|||
} |
|||
Declare Pinstripe Form |
|||
Layer Pinstripe { |
|||
Window 12, 10000,10000 |
|||
Pinstripe |
|||
} |
|||
Method Pinstripe, "Show", 1 |
|||
Layer 32 {Hide} |
|||
</lang> |
|||
=={{header|Maple}}== |
=={{header|Maple}}== |