page@swan.ulowell.edu (Bob Page) (11/29/88)
Submitted-by: bjornk@bula.se (Bjorn Knutsson)
Posting-number: Volume 2, Issue 41
Archive-name: workbench/wbdepth.uu
WBDepth changes the number of planes of the WB screen on the fly.
No need to reboot or edit the kickstart disk.
[Sources not supplied/available. This is *not* the same as 'oneplane'
posted to comp.sources.amiga. ..Bob]
# This is a shell archive.
# Remove everything above and including the cut line.
# Then run the rest of the file through sh.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# shar: Shell Archiver
# Run the following text with /bin/sh to create:
# WBDepth.doc
# WBDepth.uu
# This archive created: Mon Nov 28 21:44:12 1988
cat << \SHAR_EOF > WBDepth.doc
Have you read the info on how to modify KickStart disk so that
you can have 8 colors on the Workbench? Interesting, isn't it?
The unfortunate things are you, 500 & 2000 & kickstart on the rom
owners, are left in the cold, and it is a hassle if you want to change
the depth back and forward (i.e. you need to reboot with different
kickstart disk everytime).
Well, here comes 'WBDepth' to the rescue....
What WBDepth does is simply changes the number of planes of the WB screen
on the fly. No need to reboot, no need to bother with kickstart disk.
Usage:
WBDepth [number]
Example:
WBDepth -> will show the current WB screen parameters
WBDepth ? -> will show the usage
WBDepth 1 -> change to 1 planes (2 colors)
WBDepth 2 -> change to 2 planes (4 colors), standard
WBDepth 3 -> change to 3 planes (8 colors)
WBDepth 4 -> don't try it, unless you are ready to reboot
This is CLI only program, [number] is a single digit number 1-5.
However, don't use number greater than 3. The ability to use the number
greater than 3 is just there to show that the system will screw up,
and will hang, and perhaps will guru (CATS: what is wrong here ?).
If you want speed use 1, and if you want fanciness use 3 (8 colors).
To see the speed variation, here some timing for 'Type'ing a
4000 bytes text file on CLI (Blitzfonts installed).
3 planes: 15 seconds
2 planes: 9 seconds
1 plane : 5.5 seconds
(note: no wonder if 'Blitz' can go that fast, being written is assembly
plus only using 1 plane for sure will help the speedup).
8 colors will be suitable for self-bootable graphics demo disk.
In that case you might need to grab 'SetColor' on the 'WBench8.arc'
(this arc file contains the infomation on how to modify the kickstart
disk to get 8 colors, and some utility programs). Setcolor will allow
you the change the extra 4 colors (color 4-7) automatically. For
manual changes you can use 'PopColor' or 'ColorDemo'.
All programs mention here are PD or Shareware, and so does this
program. It is a Public Domain, dedicated to ALL PD and SHAREWARE authors.
Thanks for writing GREAT programs for this GREAT machine that we all LOVE.
Also thanks to Sysops across the nation for keeping PD programs
distributed. I know it is a dirty job, but somebody got to do it.
Finally to you all, AMIGA users, Merry Christmas!!!
- Give a big favor will you, spread this program around. Danke!
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
WBDepth (c) Copyright 1987 by Andry Rachmat
Plink: A*Rachmat
Other BBSes: I might be there.
SHAR_EOF
cat << \SHAR_EOF > WBDepth.uu
begin 644 WBDepth
M```#\P`````````#``````````(```(`````+@````$```/I```"`$[Z!;Q.Q
M50``+RT`"$ZZ!R983TC`+P`O+0`(+RR`DDZZ!U!/[P`,3EU.=4Y5``!*K0`(6
M9P@O+0`(8<I83TJL@`)G"B\L@`).N@<Z6$].N@;X3EU.=4Y5``!"@"YL@'I.6
M=4Y=3G5.5?^X2.<,,"!M``S1[0`(0BC__TZZ!NHI0("2(&T`#`P0`#]F"$ALX
M@#=AFEA/0J=(>@0V3KH'*E!/)$!*@&8*/SP`%$ZZ!IQ43RE*@`(I:@!D@(XJT
M*@`X/SP`$$AL@%`@12\H`!I.N@5R3^\`"DI`9Q1(>@0&3KK_*%A/2&R`4$ZZ!
M_T183R`%T+P````L*T#_\"!M__`K:``D_^@@;?_H)F@`!"!M__`P*``82,`K@
M0/_B(&W_\#`H`!I(P"M`_]YP`!`K``4[0/_<(`K0O````"(K0/_\(&W__"M0F
M_^Q*K?_L9Q0@;?_LL>W_\&<*(&W_["M0_^Q@YDJM_^QF"DAZ`Y-.NO["6$\@;
M;?_\*V@`!/_X(&W__"MH``C_]"!M``Q*$&8``)@@12)H`!9*$6<.($4O*``6D
M3KK^:%A/8`I(>@-D3KK^7%A/2'H#8TZZ_E)83TAL@&8O+?_B3KH#O%!/2&R`)
M9DZZ_CI83TAZ`T1.NOXP6$](;(!F+RW_WDZZ`YI03TAL@&9.NOX86$](>@,D2
M3KK^#EA/2&R`9C`M_]Q(P"\`3KH#=%!/2&R`9DZZ_?)83TAZ`P!.NOX.6$\@Z
M;0`,$!!(@)!\`#`[0/_:#&T``?_:;0@,;0`%_]IO'DAZ`MI.NOV^6$\O+0`,-
M3KK]M%A/2'H"R$ZZ_=!83S`M_]JP;?_<9@I(>@+13KK]O%A/2&R`9C`M_]I(;
MP"\`3KH"_%!/2'H"STZZ_7I83TAL@&9.NOUP6$](>@+'3KK]9EA/<``P$RM`^
M_^(P+?_:D&W_W#M`_]AX`#`$2,#E@$'M_[A"L`@`4D2X?``(;>I*;?_8;P`!@
M%CM\``'_YG@`8#9(>0`!``(B+?_>("W_XDZZ`W@O`$ZZ!)Q03S(M_]S21$C!Q
MY8%![?^X(8`8`&8&0FW_YF`(4D2X;?_8;<1*;?_F9D9X`#`$2,#E@$'M_[A*_
ML`@`9R(B+?_>("W_XDZZ`RHO`#0$2,+E@D'M_[@O,"@`3KH$7E!/4D2X?``(O
M;<9(>@(#3KK\QEA/3KH$.B!M__Q"J``((FW__$*I``07;?_;``5X`#`$2,#E@
M@$'M_[A*L`@`9QHP!$C`Y8!![?^X,@1(P>6!(D'3RR-P"```"%)$N'P`"&W.$
M3KH$("\%3KH$+EA/3KH$-$JM__AG"B\M__A.N@0.6$]*K?_T9PHO+?_T3KH#I
M_EA/8```U'@`8"*X;?_:;1HP!$C`Y8`@0-'+,`1(P.6`0^W_N".H``@(`%)$N
MN&W_W&W83KH#C"!M__Q"J``((FW__$*I``07;?_;``5X`&`6N&W_VFT.,`1(5
MP.6`($#1RT*H``A21+AM_]QMY$ZZ`X8O!4ZZ`Y183TZZ`YIX`#`$2,#E@$'MQ
M_[A*L`@`9R(B+?_>("W_XDZZ`>PO`#0$2,+E@D'M_[@O,"@`3KH#(%!/4D2XM
M?``(;<9*K?_X9PHO+?_X3KH#.%A/2JW_]&<*+RW_]$ZZ`RA83T*G3KK[:EA/4
M3-\,,$Y=3G5I;G1U:71I;VXN;&EB<F%R>0!!8W1I=F4@4V-R965N(&ES;B=T\
M('1H92``0V%N)W0@9FEN9"!6:65W"@!.;R!T:71L90`@*`!X`'@`*2X*`"<`S
M)R!I<R!I;G9A;&ED+"`Q+34@97AP96-T960N"@!$97!T:"!I<R!S=&EL;"!T`
M:&4@<V%M92X*`$YE=R!$97!T:#H@``H`3F\@;65M;W)Y(&9O<B!N97<@<&QA2
M;F4*`"0O``0@;P`((DA@&'(*(`).N@$F!D``,!#`<@H@`DZZ`/`D`$J"9N00@
MO```(`B0B>*(8`@2$1+@$(%3@$J`9O1.=6%P0^R`9D7L@&:UR68.,CP`%&L(3
M=``BPE')__PI3X!Z+'@`!"E.@(9(YX"`""X`!`$I9Q!+^@`(3J[_XF`&0J?SZ
M7TYS0_H`($ZN_F@I0("*9@PN/``#@`=.KO^48`1.NOI&4$].=61O<RYL:6)RR
M87)Y`$GY``!__DYU,#Q__V`$,"\`#%-`:Q0@;P`$(F\`"+$)9@Q32$H85\C_,
M]G``3G5C!'`!3G5P_TYU2.=P`#0!Q,`F`4A#QL!(0T)#U(-(0,#!2$!"0-""2
M3-\`#DYU2.=(`$*$2H!J!$2`4D1*@6H&1($*1``!83Y*1&<"1(!,WP`22H!.)
M=4CG2`!"A$J`:@1$@%)$2H%J`D2!81H@`6#8+P%A$B`!(A]*@$YU+P%A!B(?^
M2H!.=4CG,`!(04I!9B!(038!-`!"0$A`@,,B`$A`,@*"PS`!0D%(04S?``Q.L
M=4A!)@$B`$)!2$%(0$)`=`_0@-.!MH%B!)*#4D!1RO_R3-\`#$YU(&\`!"`()
M2AAF_)'`(`A3@$YU3E4``$JL@)9G!B!L@)9.D#\M``A.NOCX5$].74YU3OH`T
M`BQL@(I.[O_$3OH``DSO``X`!"QL@(I.[O_03OH``B)O``0L;("&3N[^8D[Z(
M``),[P`#``0L;("&3N[_.D[Z``(L;("&3N[_?$[Z``(B;P`$("\`""QL@(9.8
M[O\N3OH``BQL@(8B;P`$("\`"$[N_=@L;("&3N[_=B!O``0L;(".3N[]S"!O<
M``0L;(`"3N[^ABQL@`).[OYZ```#[`````$````!```&,@````````/R```#-
MZ@```!D`````5T)$97!T:"!V97(Q+C`*($-O<'ER:6=H="`Q.3@W(&)Y($%NS
M9')Y(%)A8VAM870N`%5S86=E.B!70D1E<'1H(%MN=6UB97)="@!7;W)K8F5N]
?8V@@4V-R965N"@``%``````#\@```^L````!```#\FUB1
``
end
size 2236
SHAR_EOF
# End of shell archive
exit 0
--
Bob Page, U of Lowell CS Dept. page@swan.ulowell.edu ulowell!page
Have five nice days.