Ahoj,
Ak môžem poradiť, MZ-800 text by si asi najlepšie a celkovo
najkvalitnejšie urobil prepisom algoritmu z Opening 800.
Len mi tam chýba Z(?).
Miloš
900 LABEL"MZ-800":HH =HY /HX: IFHH < 1 THENHR =HX: GOTO 920
910 HR =HY
920 H = PAI( 1) / 180
930 REM CHR "m"
940 BOX[C]X,Y,X + 10 *HX,Y + 30 *HY
950 LINE[C]X + 15 *HX,Y,X + 15 *HX,Y + 5 *HY
960 CIRCLE[C]X + 15 *HX,Y + 10 *HY, 5 *HR,HH, 0, 90 *H
970 LINE[C]X + 20 *HX,Y + 10 *HY,X + 20 *HX,Y + 30 *HY,X + 30 *HX,Y
+ 30 *HY,X + 30 *HX,Y + 5 *HY
980 CIRCLE[C]X + 25 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H
990 LINE[C]X + 25 *HX,Y,X + 15 *HX,Y
1000 LINE[C]X + 35 *HX,Y,X + 35 *HX,Y + 5 *HY
1010 CIRCLE[C]X + 35 *HX,Y + 10 *HY, 5 *HR,HH, 0, 90 *H
1020 LINE[C]X + 40 *HX,Y + 10 *HY,X + 40 *HX,Y + 30 *HY,X + 50 *HX,Y
+ 30 *HY,X + 50 *HX,Y + 5 *HY
1030 CIRCLE[C]X + 45 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H
1040 LINE[C]X + 45 *HX,Y,X + 35 *HX,Y
1050 LINE[C]X + 55 *HX,Y,X + 55 *HX,Y + 5 *HY,X + 70 *HX,Y + 5 *HY,X
+ 75 *HX,Y,X + 55 *HX,Y
1060 CIRCLE[C]X + 80 *HX,Y + 5 *HY, 5 *HR,HH, 315 *H, 135 *H
1070 LINE[C]X + 77 *HX,Y + 1 *HY,X + 56 *HX,Y + 22 *HY
1080 CIRCLE[C]X + 60 *HX,Y + 25 *HY, 5 *HR,HH, 135 *H, 315 *H
1090 LINE[C]X + 63 *HX,Y + 29 *HY,X + 84 *HX,Y + 8 *HY
1100 LINE[C]X + 70 *HX,Y + 25 *HY,X + 65 *HX,Y + 30 *HY,X + 85 *HX,Y
+ 30 *HY,X + 85 *HX,Y + 25 *HY,X + 70 *HX,Y + 25 *HY
1110 REM CHR "-"
1120 BOX[C]X + 90 *HX,Y + 13 *HY,X + 105 *HX,Y + 18 *HY
1130 REM CHR "8"
1140 LINE[C]X + 120 *HX,Y + 10 *HY,X + 120 *HX,Y + 5 *HY,X + 125
*HX,Y + 5 *HY,X + 125 *HX,Y,X + 118 *HX,Y
1150 CIRCLE[C]X + 118 *HX,Y + 5 *HY, 5 *HR,HH, 90 *H, 180 *H
1160 LINE[C]X + 113 *HX,Y + 5 *HY,X + 113 *HX,Y + 10 *HY
1170 CIRCLE[C]X + 118 *HX,Y + 10 *HY, 5 *HR,HH, 180 *H, 270 *H
1180 LINE[C]X + 118 *HX,Y + 15 *HY,X + 115 *HX,Y + 15 *HY
1190 CIRCLE[C]X + 115 *HX,Y + 20 *HY, 5 *HR,HH, 90 *H, 180 *H
1200 LINE[C]X + 110 *HX,Y + 20 *HY,X + 110 *HX,Y + 25 *HY
1210 CIRCLE[C]X + 115 *HX,Y + 25 *HY, 5 *HR,HH, 180 *H, 270 *H
1220 LINE[C]X + 115 *HX,Y + 30 *HY,X + 135 *HX,Y + 30 *HY
1230 CIRCLE[C]X + 135 *HX,Y + 25 *HY, 5 *HR,HH, 270 *H, 0
1240 LINE[C]X + 140 *HX,Y + 25 *HY,X + 140 *HX,Y + 20 *HY
1250 CIRCLE[C]X + 135 *HX,Y + 20 *HY, 5 *HR,HH, 0, 90 *H
1260 LINE[C]X + 135 *HX,Y + 15 *HY,X + 132 *HX,Y + 15 *HY
1270 CIRCLE[C]X + 135 *HX,Y + 20 *HY, 5 *HR,HH, 0, 90 *H
1280 CIRCLE[C]X + 132 *HX,Y + 10 *HY, 5 *HR,HH, 270 *H, 0
1290 LINE[C]X + 137 *HX,Y + 10 *HY,X + 137 *HX,Y + 5 *HY
1300 CIRCLE[C]X + 132 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H
1310 LINE[C]X + 132 *HX,Y,X + 128 *HX,Y,X + 128 *HX,Y + 5 *HY,X +
130 *HX,Y + 5 *HY,X + 130 *HX,Y + 10 *HY,X + 120 *HX,Y + 10 *HY
1320 BOX[C]X + 120 *HX,Y + 20 *HY,X + 130 *HX,Y + 25 *HY
1330 REM CHR "0"
1340 CIRCLE[C]X + 150 *HX,Y + 5 *HY, 5 *HR,HH, 90 *H, 180 *H
1350 LINE[C]X + 145 *HX,Y + 5 *HY,X + 145 *HX,Y + 25 *HY
1360 CIRCLE[C]X + 150 *HX,Y + 25 *HY, 5 *HR,HH, 180 *H, 270 *H
1370 LINE[C]X + 150 *HX,Y + 30 *HY,X + 170 *HX,Y + 30 *HY
1380 CIRCLE[C]X + 170 *HX,Y + 25 *HY, 5 *HR,HH, 270 *H, 0
1390 LINE[C]X + 175 *HX,Y + 25 *HY,X + 175 *HX,Y + 5 *HY
1400 CIRCLE[C]X + 170 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H
1410 LINE[C]X + 170 *HX,Y,X + 150 *HX,Y
1420 CIRCLE[C]X + 160 *HX,Y + 10 *HY, 5 *HR,HH, 0, 180 *H
1430 LINE[C]X + 155 *HX,Y + 10 *HY,X + 155 *HX,Y + 20 *HY
1440 CIRCLE[C]X + 160 *HX,Y + 20 *HY, 5 *HR,HH, 180 *H, 0
1450 LINE[C]X + 165 *HX,Y + 20 *HY,X + 165 *HX,Y + 10 *HY
1460 REM CHR "0"
1470 CIRCLE[C]X + 185 *HX,Y + 5 *HY, 5 *HR,HH, 90 *H, 180 *H
1480 LINE[C]X + 180 *HX,Y + 5 *HY,X + 180 *HX,Y + 25 *HY
1490 CIRCLE[C]X + 185 *HX,Y + 25 *HY, 5 *HR,HH, 180 *H, 270 *H
1500 LINE[C]X + 185 *HX,Y + 30 *HY,X + 205 *HX,Y + 30 *HY
1510 CIRCLE[C]X + 205 *HX,Y + 25 *HY, 5 *HR,HH, 270 *H, 0
1520 LINE[C]X + 210 *HX,Y + 25 *HY,X + 210 *HX,Y + 5 *HY
1530 CIRCLE[C]X + 205 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H
1540 LINE[C]X + 205 *HX,Y,X + 185 *HX,Y
1550 CIRCLE[C]X + 195 *HX,Y + 10 *HY, 5 *HR,HH, 0, 180 *H
1560 LINE[C]X + 190 *HX,Y + 10 *HY,X + 190 *HX,Y + 20 *HY
1570 CIRCLE[C]X + 195 *HX,Y + 20 *HY, 5 *HR,HH, 180 *H, 0
1580 LINE[C]X + 200 *HX,Y + 20 *HY,X + 200 *HX,Y + 10 *HY: RETURN
Dňa 19. 4. 2016 o 8:46 Michal Hucik -
ORDOZ napísal(a):
Ahoj,
chci se zeptat, zda nahodou nekdo nemate logo MZ-800 v nejakem
vektorovem formatu, nebo alespon v bitmape se slusnym
rozlisenim...
Napis Sharp lze na Internetu najit bez problemu.
Predevsim lodicku a nejake jine Sharpi loga jsem nasel tady
http://akiba-pc.watch.impress.co.jp/img/ah/docs/610/236/html/ksharp4.jpg.html
Ale MZ-800 se asi moc po internetech nepovaluje ... slo by to
samozejme vyrobit i z nejakeho MZ-80*, ale nenasel jsem aniprt.
Nejlepsi napis mz-800 je na Mirkovem webu - to rozliseni je
ovsem na nic http://sharpmz.zdechov.net/?wiki/mz-800
Michal
_______________________________________________
SharpMZ mailing list
SharpMZmail.ordoz.com
http://mail.ordoz.com/mailman/listinfo/sharpmz
