Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
msx:basic_dialogue_programming_language:005 [2023-04-08 19:41] GreyWolf [V.5. Графический макроязык GML] |
msx:basic_dialogue_programming_language:005 [2023-04-08 20:30] (текущий) GreyWolf |
||
---|---|---|---|
Строка 1866: | Строка 1866: | ||
{{anchor:e055-02}} {{.examples:055-02.bas|}} \\ [[+tab|wmsxbpge>055-02.bas]]<code> | {{anchor:e055-02}} {{.examples:055-02.bas|}} \\ [[+tab|wmsxbpge>055-02.bas]]<code> | ||
5 COLOR 1,15,4:SCREEN2:LINE(105,65)-(225,146),1,BF | 5 COLOR 1,15,4:SCREEN2:LINE(105,65)-(225,146),1,BF | ||
- | 10 DRAW "c8bm190,82m178,91m178,73m163,91m148,65m148,85m133,79m139,94m112,94m133,109m106,118m133,118m127,124m139,121m139,130m145,124m151,133m160,124m166,139m172,124m196,145m184,121m223,133m193,115m217,109m196,106m205,97m187,97m190,82" | + | 10 DRAW "c8bm190,82m178,91m178,73m163,91m148,65m148,85m133,79m139,94m112,94m133,109m106, |
+ | 118m133,118m127,124m139,121m139,130m145,124m151,133m160,124m166,139m172,124m196, | ||
+ | 145m184,121m223,133m193,115m217,109m196,106m205,97m187,97m190,82" | ||
20 PAINT(130,100),8:A$=INPUT$(1) | 20 PAINT(130,100),8:A$=INPUT$(1) | ||
</code> | </code> | ||
Строка 1882: | Строка 1884: | ||
Ok | Ok | ||
10 COLOR 1,15,8:SCREEN 2:PSET(100,85) | 10 COLOR 1,15,8:SCREEN 2:PSET(100,85) | ||
- | 20 DRAW"a1 s12 c13 nu10 ne10 nr10 nf10 nd10 ng10 nl10 h10 m+0,30 a2": PSET (190,95):DRAW"s8 c13 nu10 ne10 nr10 nf10 nd10 ng10 nl10 h10 m+0,30" | + | 20 DRAW"a1 s12 c13 nu10 ne10 nr10 nf10 nd10 ng10 nl10 h10 m+0,30 a2": |
+ | PSET (190,95):DRAW"s8 c13 nu10 ne10 nr10 nf10 nd10 ng10 nl10 h10 m+0,30" | ||
30 GOTO 30 | 30 GOTO 30 | ||
</code> | </code> | ||
Строка 1934: | Строка 1937: | ||
50 IF T=2 THEN X=50:O=180 ELSE IF T=3 THEN X=10:O=150 | 50 IF T=2 THEN X=50:O=180 ELSE IF T=3 THEN X=10:O=150 | ||
60 COLOR 1,15,8:SCREEN 2 | 60 COLOR 1,15,8:SCREEN 2 | ||
- | 80 PSET(X,100):DRAW"c1s4a=t;r8u20e10r15f10d20r8u2l3u18h15u25f15u30l5d18h8l3g8e1f1h8f7e7l2u3h2l6h3u10e3r8f3d5c15l2c1l3c15l4c1l3r3c15r3d1c1d3c15d1c1r2l5c15e3r6u2c1d5g3l8g2d3l5g8u18l5d30e15d25r15l15g15d18l3d2" | + | 80 PSET(X,100):DRAW"c1s4a=t;r8u20e10r15f10d20r8u2l3u18h15u25f15u30l5d18h8l3g8 |
+ | e1f1h8f7e7l2u3h2l6h3u10e3r8f3d5c15l2c1l3c15l4c1l3r3c15r3d1c1d3c15 | ||
+ | d1c1r2l5c15e3r6u2c1d5g3l8g2d3l5g8u18l5d30e15d25r15l15g15d18l3d2" | ||
90 IF X<O THEN X=X+73:GOTO 80 ELSE W$=INPUT$(1):GOTO 20 | 90 IF X<O THEN X=X+73:GOTO 80 ELSE W$=INPUT$(1):GOTO 20 | ||
</code> | </code> | ||
Строка 1957: | Строка 1962: | ||
40 DRAW"r1f1g1f1g1l1be4":DRAW"br2d2r2nr1nu2d2be4" | 40 DRAW"r1f1g1f1g1l1be4":DRAW"br2d2r2nr1nu2d2be4" | ||
60 DRAW"nr2d2r2d2l2be4":DRAW"br2nr2d4r2u2l2be4" | 60 DRAW"nr2d2r2d2l2be4":DRAW"br2nr2d4r2u2l2be4" | ||
- | 80 DRAW"bf2r2d1g1d2be4":DRAW"bf1e1r1f1g1l1h1f1g1f1r1e1h1be4":DRAW"bd2nr2d2r2nu2d2l2":B$=INPUT$(1) | + | 80 DRAW"bf2r2d1g1d2be4":DRAW"bf1e1r1f1g1l1h1f1g1f1r1e1h1be4": |
+ | DRAW"bd2nr2d2r2nu2d2l2":B$=INPUT$(1) | ||
</code> | </code> | ||
* {{anchor:e055-16}} 6) Рисунок чёрного и белого домов [[bibliography#b1|[1]]]. \\ {{.examples:055-16.bas|}} \\ [[+tab|wmsxbpge>055-16.bas]]<code> | * {{anchor:e055-16}} 6) Рисунок чёрного и белого домов [[bibliography#b1|[1]]]. \\ {{.examples:055-16.bas|}} \\ [[+tab|wmsxbpge>055-16.bas]]<code> | ||
Ok | Ok | ||
- | 10 COLOR,5:SCREEN2:BOX$="R20 U20 L20 D20":HAT$="E14 F14 BL20":DO$="R5 U10 L5 D10":WINDOW$="R4 U4 L4 D4":HOUSE$="XBOX$; BR4 XDO$; BM+10,-5 XWINDOW$;BM-18,-12 XHAT$;" | + | 10 COLOR,5:SCREEN2:BOX$="R20 U20 L20 D20":HAT$="E14 F14 BL20":DO$="R5 U10 L5 D10": |
+ | WINDOW$="R4 U4 L4 D4":HOUSE$="XBOX$; BR4 XDO$; BM+10,-5 XWINDOW$;BM-18,-12 XHAT$;" | ||
20 DRAW"BM20,20 C1 S2 XHOUSE$;BM100,100 S6 C15 XHOUSE$;" | 20 DRAW"BM20,20 C1 S2 XHOUSE$;BM100,100 S6 C15 XHOUSE$;" | ||
30 GOTO 30 | 30 GOTO 30 | ||
</code> | </code> | ||
- | * <WRAP>{{anchor:e055-17}} 7) \\ {{.examples:055-17.bas|}} [[bibliography#b6|[6]]] \\ [[+tab|wmsxbpge>055-17.bas]]<code> | + | * <WRAP>{{anchor:e055-17}} 7) Данный пример приведен в [[bibliography#b6|[6]]] \\ {{.examples:055-17.bas|}} \\ [[+tab|wmsxbpge>055-17.bas]]<code> |
Ok | Ok | ||
10 CLS:KEYOFF:COLOR 1,15,8:SCREEN2:PSET(125,95) | 10 CLS:KEYOFF:COLOR 1,15,8:SCREEN2:PSET(125,95) | ||
Строка 4183: | Строка 4190: | ||
<WRAP half column> \\ </WRAP> | <WRAP half column> \\ </WRAP> | ||
<WRAP half column><WRAP right> | <WRAP half column><WRAP right> | ||
- | Давайте все–таки обсуждать вкус ананаса с теми, кто его не ел! | + | Давайте все–таки обсуждать вкус ананаса |
+ | \\ с теми, кто его не ел! | ||
<WRAP rightalign> | <WRAP rightalign> | ||
—//Почти по М.Жванецкому// | —//Почти по М.Жванецкому// |