MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues. 2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)

House drawing with lines: Difference between revisions

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
mNo edit summary
(Category)
 
Line 141: Line 141:
  670 LINE(0,1l5)-(50,115),PSET:LINE(240,115)-(255,115),PSET
  670 LINE(0,1l5)-(50,115),PSET:LINE(240,115)-(255,115),PSET
  680 GOTO 680
  680 GOTO 680
[[Category:BASIC]]

Latest revision as of 12:08, 11 September 2015

Just as a curiosity

Famous house drawing with lines in the radio shack catalogs

FOR COLOR BASIC

5 CLS
10 PCLEAR 4
15 PMODE 3,1
17 PCLS
20 SCREEN 1,1
30 LINE(0,185)-(255,185),PSET
40 LINE(50,135)-(200,135),PSET
50 LINE(50,135)-(50,85),PSET
60 LINE(150,135)-(150,85),PSET
70 LINE(200,135)-(200,105),PSET
80 LINE(50,85)-(150,85),PSET
90 LINE(150,105)-(200,105),PSET
100 LINE(70,S5)-(170,65),PSET
110 LINE(170,85)-(220,85),PSET
120 LINE(50,85)-(70,65),PSET
130 LINE(150,85)-(170,65),PSET
140 LINE(150,105)-(170,85),PSET
150 LINE(200,105)-(220,85),PSET
160 LINE(170,65)-(190,82),PSET
170 LINE(220,85)-(240,102),PSET
175 LINE(190,82)-(90,85),PSET
180 LINE(240,102)-(240,127),PSET
190 LINE(200,135)-(240,127),PSET
200 FOR X=62 TO 77:LINE(140,X)-(145,X),PSET:NEXT X
210 FOR X=62 TO 77:LINE(145,X)-(148,X-3),PSET:NEXT X
220 LINE(140,62)-(145,59),PSET
230 LINE-(148,59),PSET
240 LINE(155,135)-(155,115),PSET
250 LINE(195,135)-(195,115),PSET
260 LINE(155,115)-(195,115),PSET
270 FOR X=115 TO 135 STEP 5:LINE (155,X)-(195,X),PSET:NEXT X
280 FOR X=122 TO 123:LINE(160,X)-(170,X),PSET:LINE(180,X)-(190,X),PSET:NEXT X
290 LINE(174,127)-(176,127),PSET
300 Y=85:FOR X=50 TO 70 STEP 4:LINE(X,Y)-(X+100,Y),PSET:Y=Y-4:NEXT X
310 Y=105:FOR X=150 TO 170 STEP 4: LINE(X,Y)-(X+50,Y),PSET: Y=Y-4:NEXT X
320 LINE(95,135)-(95,118),PSET
330 LINE(105,135)-(105,118),PSET
340 LINE(95,118)-(105,118),PSET
350 PSET(103,126,8)
360 LINE(55,130)-(90,130),PSET
370 LINE(55,130)-(55,118),PSET
380 LINE(90,130)-(90,118),PSET
390 LINE(55,118)-(90,118),PSET
400 LINE(110,130)-(145,130),PSET
410 LINE(110,130)-(110,118),PSET
420 LINE(145,130)-(145,118),PSET
430 LINE(110,118)-(145,118),PSET
440 LINE(63,100)-(67,100),PSET
450 LINE(63,100)-(63,105),PSET
460 LINE(67,100)-(67,105),PSET
470 LINE(63,105)-(67,105),PSET
480 LINE(80,100)-(85,100),PSET
490 LINE(80,100)-(80,105),PSET
500 LINE(85,100)-(85,105),PSET
510 LINE(80,105)-(85,105),PSET
520 LINE(108,100)-(113,100),PSET
530 LINE(108,100)-(108,105),PSET
540 LINE(113,100)-(113,105),PSET
550 LINE(108,105)-(113,105),PSET
560 LINE(126,100)-(131,100),PSET
570 LINE(126,100)-(126,105),PSET
580 LINE(131,100)-(131,105),PSET
590 LINE(126,105)-(131,105),PSET
600 LINE(155,135)-(105,145),PSET
605 LINE(82,150)-(20,165),PSET
610 LINE(195,135)-(60,165),PSET
620 LINE(0,165)-(20,165),PSET
630 LINE(60,165)-(255,165),PSET
640 LINE(95,135)-(30,150),PSET
645 LINE(105,135)-(95,145),PSET
650 LINE(65,145)-(105,145),PSET
660 LINE(30,150)-(82,150),PSET
670 LINE(0,115)-(50,115),PSET:LINE(240,115)-(255,115),PSET
680 GOTO 680 

FOR Extended COLOR BASIC more efficient, Now, for the creative and fancy readers. Since lines 360-590 are drawing squares and rectangles, each using four program lines, let's let Extended BASIC do some of the work for us. Delete those lines (360-590) and add these instead:

5 CLS
10 PCLEAR 4
15 PMODE 3,1
17 PCLS
20 SCREEN 1,1
30 LINE(0,185)-(255,185),PSET
40 LINE(50,135)-(200,135),PSET
50 LINE(50,135)-(50,85),PSET
60 LINE(150,135)-(150,85),PSET
70 LINE(200,135)-(200,105),PSET
80 LINE(50,85)-(150,85),PSET
90 LINE(150,105)-(200,105),PSET
100 LINE(70,S5)-(170,65),PSET
110 LINE(170,85)-(220,85),PSET
120 LINE(50,85)-(70,65),PSET
130 LINE(150,85)-(170,65),PSET
140 LINE(150,105)-(170,85),PSET
150 LINE(200,105)-(220,85),PSET
160 LINE(170,65)-(190,82),PSET
170 LINE(220,85)-(240,102),PSET
175 LINE(190,82)-(90,85),PSET
160 LINE(240,102)-(240,127),PSET
190 LINE(200,135)-(240,127),PSET
200 FOR X=G2 TO 77:LINE(140,X)-(145,X),PSET:NEXT X
210 FOR X=62 TO 77:LINE(145,X)-(148,X-3),PSET:NEXT X
220 LINE(140,62)-(145,59),PSET
230 LINE-(148,59),PSET
240 LINE(155,135)-(155,115),PSET
250 LINE(195,135)-(195,115),PSET
260 LINE(155,115)-(195,115),PSET
270 FOR X=115 TO 135 STEP 5:LINE (155,X)-(195,X),PSET:NEXT X
280 FOR X=122 TO 123:LINE(160,X)-(170,X),PSET:LINE(180,X)-(190,X),PSET:NEXT X
290 LINE(174,127)-(17B,127),PSET
300 Y=85:F0R X=50 TO 70 STEP 4:LINE(X,Y)-(X+100,Y),PSET:Y=Y-4:NEXT X
310 Y=105:FOR X=150 TO 170 STEP 4: LINE(X,Y)-(X+50,Y),PSET: Y=Y-4:NEXT X
320 LINE(95,135)-(95,118),PSET
330 LINE(105,135)-(105,118),PSET
340 LINE(95,118)-(105,118),PSET
350 PSET(103,126,8)
355 REM -------- New lines  ------
360 LINE(55,l18)-(90,130),PSET,B
400 LINE(110,130)-(145,118),PSET,B
440 LINE(63,100)-(67,105)*PSET,B
480 LINE(80,100)-(85,105)*PSET,B
520 LINE(108,100)-(113,105)*PSET,B
560 LINE(126,100)-(131,105),PSET,B
570 REM ----- End New lines -------
600 LINE(155,135)-(105*145),PSET
605 LINE(82,150)-(20,165),PSET
610 LINE(195,135)-(60,165),PSET
620 LINE(0,165)-(20,165),PSET
630 LINE(60,165)-(255,165),PSET
640 LINE(5,135)-(30,150),PSET
645 LINE(105,135)-(,5,145),PSET
650 LINE(65,145)-(105,145),PSET
660 LINE(30,150)-(82,150),PSET
670 LINE(0,1l5)-(50,115),PSET:LINE(240,115)-(255,115),PSET
680 GOTO 680