befebd5950/image/rx-core/core.retro
Download diff| 84e43d30e60064df7ababd72f5cfee5776af4841 | befebd59509fdd8b6b58cb28c3f0d5bfa898123b | ||
|---|---|---|---|
824 | : hline ( xyw- ) 6 6 out wait ; | 824 | : hline ( xyw- ) 6 6 out wait ; |
825 | : circle ( xyw- ) 7 6 out wait ; | 825 | : circle ( xyw- ) 7 6 out wait ; |
826 | : solidCircle ( xyw- ) 8 6 out wait ; | 826 | : solidCircle ( xyw- ) 8 6 out wait ; |
827 | {{ | ||
828 | : fast ( - ) ; | ||
829 | ---reveal--- | ||
830 | : fastRender ( - ) | ||
831 | &fast &redraw :is later &redraw :devector redraw ; | ||
832 | }} | ||
833 | 827 | ||
834 | ( Colors ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ) | 828 | ( Colors ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ) |
835 | : black 0 setColor ; | 829 | : black 0 setColor ; : blue 1 setColor ; |
836 | : blue 1 setColor ; | 830 | : green 2 setColor ; : cyan 3 setColor ; |
837 | : green 2 setColor ; | 831 | : red 4 setColor ; : purple 5 setColor ; |
838 | : cyan 3 setColor ; | 832 | : brown 6 setColor ; : gray 7 setColor ; |
839 | : red 4 setColor ; | 833 | : darkgray 8 setColor ; : brightblue 9 setColor ; |
840 | : purple 5 setColor ; | 834 | : brightgreen 10 setColor ; : brightcyan 11 setColor ; |
841 | : brown 6 setColor ; | 835 | : brightred 12 setColor ; : magenta 13 setColor ; |
842 | : gray 7 setColor ; | 836 | : yellow 14 setColor ; : white 15 setColor ; |
843 | : darkgray 8 setColor ; | ||
844 | : brightblue 9 setColor ; | ||
845 | : brightgreen 10 setColor ; | ||
846 | : brightcyan 11 setColor ; | ||
847 | : brightred 12 setColor ; | ||
848 | : magenta 13 setColor ; | ||
849 | : yellow 14 setColor ; | ||
850 | : white 15 setColor ; | ||
851 | )) | 837 | )) |
852 | ' canvas shut | 838 | ' canvas shut |
853 | 839 |