purebasic.info

PureBasic forum
Текущее время: Чт авг 22, 2019 4:53 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 6 ] 
Автор Сообщение
СообщениеДобавлено: Вт янв 22, 2019 8:36 am 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6538
Благодарил (а): 28 раз.
Поблагодарили: 220 раз.
Пункты репутации: 57
Шрифт называется Millitext, его оригинальный автор Matt Sarnoff
Толщина буквы всего 1 пиксель, высота 5 пикселей.
Такие надписи можно прочитать на экране только если взять настоящую лупу или очки с большим увеличением. Всякие экранные лупы не помогут.
Изображение
Я от скуки написал код для цифр, буквы лень :D
Может кому надо пометить свой шедевр тайным номером где нибудь на видном месте.
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
;Шрифт называется Millitext, его оригинальный автор Matt Sarnoff
;Numbers
Macro mt_0(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(255,0  ,255))
Plot(x, y+2,  RGB(255,0  ,255))
Plot(x, y+3,  RGB(255,0  ,255))
Plot(x, y+4,  RGB(255,255,255))
EndMacro
 
Macro mt_1(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(0,  255,  0))
Plot(x, y+2,  RGB(0,  255,  0))
Plot(x, y+3,  RGB(0,  255,  0))
Plot(x, y+4,  RGB(255,255,255))
EndMacro
Macro mt_2(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(0,  0,  255))
Plot(x, y+2,  RGB(255,255,255))
Plot(x, y+3,  RGB(255,  0,  0))
Plot(x, y+4,  RGB(255,255,255))
EndMacro
Macro mt_3(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(0,  0,  255))
Plot(x, y+2,  RGB(255,255,255))
Plot(x, y+3,  RGB(0,  0,  255))
Plot(x, y+4,  RGB(255,255,255))
EndMacro
Macro mt_4(x,y)
Plot(x, y,    RGB(255,0,  255))
Plot(x, y+1,  RGB(255,0,  255))
Plot(x, y+2,  RGB(255,255,255))
Plot(x, y+3,  RGB(0,  0,  255))
Plot(x, y+4,  RGB(0,  0,  255))
EndMacro
Macro mt_5(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(255,  0,  0))
Plot(x, y+2,  RGB(255,255,255))
Plot(x, y+3,  RGB(0,  0,  255))
Plot(x, y+4,  RGB(255,255,255))
EndMacro
Macro mt_6(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(255,  0,  0))
Plot(x, y+2,  RGB(255,255,255))
Plot(x, y+3,  RGB(255,  0,255))
Plot(x, y+4,  RGB(255,255,255))
EndMacro
 
Macro mt_7(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(255,  0,255))
Plot(x, y+2,  RGB(0,  0,  255))
Plot(x, y+3,  RGB(0,  0,  255))
Plot(x, y+4,  RGB(0,  0,  255))
EndMacro
 
Macro mt_8(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(255,  0,255))
Plot(x, y+2,  RGB(255,255,255))
Plot(x, y+3,  RGB(255,  0,255))
Plot(x, y+4,  RGB(255,255,255))
EndMacro
 
Macro mt_9(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(255,0  ,255))
Plot(x, y+2,  RGB(255,255,255))
Plot(x, y+3,  RGB(0,  0,  255))
Plot(x, y+4,  RGB(255,255,255))
EndMacro
 
 
 
If OpenWindow(0, 0, 0, 200, 200, "Millitext", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  If CreateImage(0, 200, 200) And StartDrawing(ImageOutput(0))
       ; все цифры
      mt_0(100,100):mt_1(102,100):mt_2(104,100)
      mt_3(106,100):mt_4(108,100):mt_5(110,100)
      mt_6(112,100):mt_7(114,100):mt_8(116,100):mt_9(118,100)
     
      ; 2019 выглядит так
      mt_2(100,110):mt_0(102,110):mt_1(104,110):mt_9(106,110)
     
      StopDrawing()
      ImageGadget(0, 0, 0, 200, 200, ImageID(0))
    EndIf
   
    Repeat
      Event = WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow
  EndIf
 
 


_________________
read-only ¯\_(ツ)_/¯


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Вт янв 22, 2019 2:17 pm 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Чт июн 25, 2009 1:02 pm
Сообщений: 2320
Откуда: Russia — Belarus
Благодарил (а): 7 раз.
Поблагодарили: 75 раз.
Пункты репутации: 11
Изображение
Изображение

_________________
EnableExplicit User


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Вт янв 22, 2019 3:04 pm 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6538
Благодарил (а): 28 раз.
Поблагодарили: 220 раз.
Пункты репутации: 57
qpAHToMAS, фото со смартфона?

_________________
read-only ¯\_(ツ)_/¯


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Вт янв 22, 2019 4:43 pm 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Чт июн 25, 2009 1:02 pm
Сообщений: 2320
Откуда: Russia — Belarus
Благодарил (а): 7 раз.
Поблагодарили: 75 раз.
Пункты репутации: 11
kvitaliy писал(а):
qpAHToMAS, фото со смартфона?

Да, через приблуду:
Изображение

Попробовал кириллицу добавить, в принципе можно, но надо расширять символ, для всякиж Ш М Ж букв.

_________________
EnableExplicit User


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Ср янв 23, 2019 12:31 am 
Не в сети
док
Аватар пользователя

Зарегистрирован: Сб мар 28, 2015 11:06 pm
Сообщений: 176
Откуда: Україна
Благодарил (а): 12 раз.
Поблагодарили: 16 раз.
Пункты репутации: 9
как вариант подсмотреть кириллический шрифт 3х5 https://mk-152.livejournal.com/50217.html

зы: на амолед матрицах такое не прокатит..


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Ср янв 23, 2019 2:59 am 
Не в сети
профессор

Зарегистрирован: Пн июл 22, 2013 11:00 pm
Сообщений: 879
Благодарил (а): 2 раз.
Поблагодарили: 42 раз.
Пункты репутации: 9
Думаю так поинтересней. :roll:
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
 
Procedure mt_0(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(255,0  ,255))
Plot(x, y+2,  RGB(255,0  ,255))
Plot(x, y+3,  RGB(255,0  ,255))
Plot(x, y+4,  RGB(255,255,255))
EndProcedure
Procedure mt_1(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(0,  255,  0))
Plot(x, y+2,  RGB(0,  255,  0))
Plot(x, y+3,  RGB(0,  255,  0))
Plot(x, y+4,  RGB(255,255,255))
EndProcedure
Procedure mt_2(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(0,  0,  255))
Plot(x, y+2,  RGB(255,255,255))
Plot(x, y+3,  RGB(255,  0,  0))
Plot(x, y+4,  RGB(255,255,255))
EndProcedure
Procedure mt_3(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(0,  0,  255))
Plot(x, y+2,  RGB(255,255,255))
Plot(x, y+3,  RGB(0,  0,  255))
Plot(x, y+4,  RGB(255,255,255))
EndProcedure
Procedure mt_4(x,y)
Plot(x, y,    RGB(255,0,  255))
Plot(x, y+1,  RGB(255,0,  255))
Plot(x, y+2,  RGB(255,255,255))
Plot(x, y+3,  RGB(0,  0,  255))
Plot(x, y+4,  RGB(0,  0,  255))
EndProcedure
Procedure mt_5(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(255,  0,  0))
Plot(x, y+2,  RGB(255,255,255))
Plot(x, y+3,  RGB(0,  0,  255))
Plot(x, y+4,  RGB(255,255,255))
EndProcedure
Procedure mt_6(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(255,  0,  0))
Plot(x, y+2,  RGB(255,255,255))
Plot(x, y+3,  RGB(255,  0,255))
Plot(x, y+4,  RGB(255,255,255))
EndProcedure
Procedure mt_7(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(255,  0,255))
Plot(x, y+2,  RGB(0,  0,  255))
Plot(x, y+3,  RGB(0,  0,  255))
Plot(x, y+4,  RGB(0,  0,  255))
EndProcedure
Procedure mt_8(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(255,  0,255))
Plot(x, y+2,  RGB(255,255,255))
Plot(x, y+3,  RGB(255,  0,255))
Plot(x, y+4,  RGB(255,255,255))
EndProcedure
Procedure mt_9(x,y)
Plot(x, y,    RGB(255,255,255))
Plot(x, y+1,  RGB(255,0  ,255))
Plot(x, y+2,  RGB(255,255,255))
Plot(x, y+3,  RGB(0,  0,  255))
Plot(x, y+4,  RGB(255,255,255))
EndProcedure
 
Prototype mt(x,y)
Procedure vyvod(s.s)
 
  Protected mt.mt
 
 
 
  StartDrawing(ImageOutput(0))
 For i=0 To Len(s)*2-2 Step 2
   
    mt=PeekI(?simvoly+(PeekU(@s+i)-48)*4);-48 таблица с цифры 0
 
  mt(10+i,100)
 
 Next
 
  StopDrawing()
  ImageGadget(0, 0, 0, 200, 200, ImageID(0))
 
 
 
 DataSection
  simvoly:
Data.i @mt_0(),@mt_1(),@mt_2(),@mt_3(),@mt_4(),@mt_5(),@mt_6(),@mt_7(),@mt_8(),@mt_9()
EndDataSection  
EndProcedure
Procedure vyvod2(s.s,x,y)
 
  Protected mt.mt
 
 
 
  StartDrawing(ImageOutput(0))
 
    mt=PeekI(?simvoly2+(PeekU(@s)-48)*4);-48 таблица с цифры 0
 
  mt(x,y)
 
 
 
  StopDrawing()
  ImageGadget(0, 0, 0, 200, 200, ImageID(0))
 
 
 
 DataSection
  simvoly2:
Data.i @mt_0(),@mt_1(),@mt_2(),@mt_3(),@mt_4(),@mt_5(),@mt_6(),@mt_7(),@mt_8(),@mt_9()
EndDataSection  
EndProcedure
 
 
 
If OpenWindow(0, 0, 0, 200, 200, "Millitext", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
 
  If CreateImage(0, 200, 200)  
    vyvod("5653357899134556666086312456788990974322445778900885443223357889074567885888754214578900531")
   
    vyvod2("7",40,20);типа распихать по картинке из массива координат ещё и цвет в рандом сделать иии размерность по точкам плавающею рандомно  а на символы строки шифрование.:)
    vyvod2("5",20,20)
  EndIf
   
 
 
 
   
    Repeat
      Event = WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow
  EndIf
 



Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 6 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB