Přejít na obsah
ARCHIVEKArchiv e-mailových konferencí o 8bitových počítačích Archiv Pandory 1999 až 2013

Re: [SharpMZ] MZ-800 logo

Miloš <milsa@[doména skryta]> SHARP MZ-800

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

Zobrazit původní podobu

Vlákno · 6 zpráv

Zobrazit celé vlákno na jedné stránce

  1. [SharpMZ] MZ-800 logo Michal Hucik - ORDOZ <ordoz@[doména skryta]>
  2. Re: [SharpMZ] MZ-800 logo Miloš <milsa@[doména skryta]>
  3. Re: [SharpMZ] MZ-800 logo Michal Hucik - ORDOZ <ordoz@[doména skryta]>
  4. Re: [SharpMZ] MZ-800 logo Michal Hucik - ORDOZ <ordoz@[doména skryta]>
  5. Re: [SharpMZ] MZ-800 logo Martin Lukasek <martin.lukasek@[doména skryta]>
  6. Re: [SharpMZ] MZ-800 logo Martin Lukasek <martin.lukasek@[doména skryta]>