Video display modes: Difference between revisions

m
→‎{{header|Phix}}: syntax coloured, marked p2js incompatible
(add FreeBASIC)
m (→‎{{header|Phix}}: syntax coloured, marked p2js incompatible)
Line 680:
 
=={{header|Phix}}==
<!--<lang Phix>if platform(notonline)=LINUX then-->
<span style="color: #008080;">without</span> <span style="color: #008080;">js</span> <span style="color: #000080;font-style:italic;">-- (system, system_exec, sleep)</span>
{} = system_exec("xrandr -s 640x480")
<span style="color: #008080;">if</span> <span style="color: #7060A8;">platform</span><span style="color: #0000FF;">()=</span><span style="color: #004600;">LINUX</span> <span style="color: #008080;">then</span>
sleep(3)
<span style="color: #0000FF;">{}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">system_exec</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"xrandr -s 640x480"</span><span style="color: #0000FF;">)</span>
{} = system_exec("xrandr -s 1280x960")
<span style="color: #7060A8;">sleep</span><span style="color: #0000FF;">(</span><span style="color: #000000;">3</span><span style="color: #0000FF;">)</span>
else -- WINDOWS
<span style="color: #0000FF;">{}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">system_exec</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"xrandr -s 1280x960"</span><span style="color: #0000FF;">)</span>
puts(1,"") -- (ensure console exists)
<span style="color: #008080;">else</span> <span style="color: #000080;font-style:italic;">-- WINDOWS</span>
system("mode CON: COLS=40 LINES=25")
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">""</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (ensure console exists)</span>
sleep(3)
<span style="color: #7060A8;">system</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"mode CON: COLS=8040 LINES=25"</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">sleep</span><span style="color: #0000FF;">(</span><span style="color: #000000;">3</span><span style="color: #0000FF;">)</span>
end if</lang>
<span style="color: #7060A8;">system</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"mode CON: COLS=80 LINES=25"</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
end if<!--</lang>-->
Obviously running xrandr -q or mode -? will tell you more.
 
7,806

edits