projects
/
xscreensaver
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
http://ftp.ksu.edu.tw/FTP/FreeBSD/distfiles/xscreensaver-4.23.tar.gz
[xscreensaver]
/
hacks
/
apple2-main.c
diff --git
a/hacks/apple2-main.c
b/hacks/apple2-main.c
index 12fe95f3db0553e07b8a9d24e72da3bf26b6a93f..3beeeeea62142ea7b9db5f59b755e494540999d6 100644
(file)
--- a/
hacks/apple2-main.c
+++ b/
hacks/apple2-main.c
@@
-1507,17
+1507,17
@@
struct basic_controller_data {
*/
static char *moire_program[]={
"10 HGR2\n",
*/
static char *moire_program[]={
"10 HGR2\n",
- "20 FOR Y = 0 TO 19
1
STEP 2\n",
+ "20 FOR Y = 0 TO 19
0
STEP 2\n",
"30 HCOLOR=4 : REM BLACK\n",
"30 HCOLOR=4 : REM BLACK\n",
- "40 H
LINE
0,191-Y TO 279,Y\n",
+ "40 H
PLOT
0,191-Y TO 279,Y\n",
"60 HCOLOR=7 : REM WHITE\n",
"60 HCOLOR=7 : REM WHITE\n",
- "80 H
LINE
0,190-Y TO 279,Y+1\n",
+ "80 H
PLOT
0,190-Y TO 279,Y+1\n",
"90 NEXT Y\n",
"90 NEXT Y\n",
- "100 FOR X = 0 TO 27
9
STEP 3\n",
+ "100 FOR X = 0 TO 27
8
STEP 3\n",
"110 HCOLOR=4\n",
"110 HCOLOR=4\n",
- "120 H
LINE 279-X,0 TO X,192
\n",
+ "120 H
PLOT 279-X,0 TO X,191
\n",
"140 HCOLOR=7\n",
"140 HCOLOR=7\n",
- "150 H
LINE 278-X,0 TO X+1,192
\n",
+ "150 H
PLOT 278-X,0 TO X+1,191
\n",
"160 NEXT X\n",
NULL
};
"160 NEXT X\n",
NULL
};
@@
-1527,9
+1527,9
@@
static char *sinewave_program[] = {
"25 K=0\n",
"30 FOR X = 0 TO 279\n",
"32 HCOLOR= 0\n",
"25 K=0\n",
"30 FOR X = 0 TO 279\n",
"32 HCOLOR= 0\n",
- "35 H
LINE
X,0 TO X,159\n",
+ "35 H
PLOT
X,0 TO X,159\n",
"38 HCOLOR= 3\n",
"38 HCOLOR= 3\n",
- "40 Y = 80 + SIN(15*(X-K)/279)\n",
+ "40 Y = 80 + SIN(15*(X-K)/279)
* 40
\n",
"50 HPLOT X,Y\n",
"60 NEXT X\n",
"70 K=K+4\n",
"50 HPLOT X,Y\n",
"60 NEXT X\n",
"70 K=K+4\n",
@@
-1551,13
+1551,13
@@
static char *random_lores_program[]={
"100 COLOR= RND(1)*16\n",
"110 X=RND(1)*40\n",
"100 COLOR= RND(1)*16\n",
"110 X=RND(1)*40\n",
- "120 Y1=RND(1)*4
8
\n",
- "130 Y2=RND(1)*4
8
\n",
+ "120 Y1=RND(1)*4
0
\n",
+ "130 Y2=RND(1)*4
0
\n",
"140 FOR Y = Y1 TO Y2\n",
"150 PLOT X,Y\n",
"160 NEXT Y\n",
"140 FOR Y = Y1 TO Y2\n",
"150 PLOT X,Y\n",
"160 NEXT Y\n",
- "210 Y=RND(1)*4
8
\n",
+ "210 Y=RND(1)*4
0
\n",
"220 X1=RND(1)*40\n",
"230 X2=RND(1)*40\n",
"240 FOR X = X1 TO X2\n",
"220 X1=RND(1)*40\n",
"230 X2=RND(1)*40\n",
"240 FOR X = X1 TO X2\n",