На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
! Короче, правила и никаких гвоздей
Да здравствует всяк сюда входящий.

Этот раздел - единственное место на форуме, где можно поделиться не только
"сугубо программным" творчеством.
У многих имеется масса различных увлечений, поэтому этот раздел для вас.
Поделитесь с другими форумчанами фотографиями, графическими, музыкальными
работами, собственными литературными произведениями, даже если они всего из 4 строк...

Но хочу напомнить, что на раздел распространяются все
правила форума, а также просьба выполнять следующие требования:
- не выкладывать чужое творчество под своим именем (лучше вообще его не касаться)
- не создавать креативы наподобие пресловутого удаффа
- не уходить от темы при обсуждении темы :)
- по возможности пользоваться хостингом изображений и оставлять ссылки или превью.

С уважением, Дата, подпись.
  
> Забывчивым админам и простым пользователям ПК :), ещё один вариант на околокомпьютерную тематику, навеянный информационной безопасностью
    Прикреплённая картинка
    Прикреплённая картинка
    ещё варианты на белом фоне
    Прикреплённая картинка
    Прикреплённая картинка
    ещё варианты на чёрном фоне
    Прикреплённая картинка
    Прикреплённая картинка
    ещё варианты на прозрачном фоне

    Код формирования всего этого безобразия средствами ImageMagick и VBScript 8)
    ExpandedWrap disabled
      Dim Img
       
      Symbols = "qwertyuiop[]asdfghjkl;zxcvbnm,./1234567890-=!@#$%^&*()_+QWERTYUIOP{}ASDFGHJKL:ZXCVBNM<>?"
      Repeat = 30
      FontS=48
      MX=1575
      MY=2205
      Al=9
      PSWDLen = 12
      FName = "bground.png"
       
      Set Img = CreateObject("ImageMagickObject.MagickImage")
       
      DarkBGround=1
      BGround="black"
       
       
      For FileN=0 To 9
       
      Randomize
       
       FName = BGround&FileN&".png"
       
       Ret = Img.Convert("-size", MX&"X"&MY, "xc:"&BGround, FName)
       
       For FormN = 0 To 2
        Call FormOne(Repeat, FontS+10*FormN, Al-2*FormN, PSWDLen-2*FormN)
       Next
       
      Next
       
      rem --------------------
       
      Function GenPass( ByVal Plen)
       
      Pass = ""
      MLen = Len( Symbols )
       
      Do While Plen > 0
       
       Plen = Plen - 1
       Pass=Pass&Mid(Symbols,1+Int(Rnd*MLen),1)
       
      Loop
       
      GenPass=Pass
       
      End Function
       
      rem --------------------
       
      Sub FormOne( ByVal Rep, ByVal FS, ByVal Al, ByVal PSWlen )
       
      Do While Rep > 0
       
      Text="font-size "&FS&" rotate "&Rnd*50-25&" text "&Rnd*MX-MX/2&","&Rnd*MY-MY/2&" '"&GenPass(PSWlen)&"'"
       
      if DarkBGround > 0 Then
       If Rnd > Al/20  then R = 255 else R = 0 end if
       If Rnd > Al/20  then G = 255 else G = 0 end if
       If Rnd > Al/20  then B = 255 else B = 0 end if
      else
       If Rnd > Al/20  then R = 0 else R = 200 end if
       If Rnd > Al/20  then G = 0 else G = 200 end if
       If Rnd > Al/20  then B = 0 else B = 200 end if
      end if
       
      Ret = Img.Convert( FName, "-fill","rgba("&R&","&G&","&B&",0."&Al&")","-gravity","Center", "-draw", Text, FName)
       
      Rep = Rep - 1
      Loop
       
      End Sub

    Все листы (3x10 шт.) и скрипт — одним файлом
    0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script Execution time: 0,0824 ]   [ 20 queries used ]   [ Generated: 16.11.18, 05:30 GMT ]