Muharrem DOĞANCI: Aralık 2021

28 Aralık 2021 Salı

Yazılımda Tekelleşmeye Doğru ve Yeni Arayışlar

Allegorithmic firması "Substance Painter"ı

'ye satması sonucu aylık olarak kira ödeme durumu ortaya çıkınca kullanıcılar "RePack" ve "UnAttended" türündeki paketlere yönelmek zorunda kaldı.

Aşağıdaki forumdan TurboBit bağlantılar 29.12.2021 Çarşamba tarihinde kontrol edildi. https://thehouseofportable.com/3438/substance-painter-portable/

Linkler çalıştı, her bir indirme ortalama 4,5 saati buldu. Muadili başka bir yerde bulunamadı.

Program; Windows Defender tarafından normal karşılandı. Intel i7 8 çekirdek işlemci, DDR3 8 GB bellek, DDR3 NVidia GT630 1 GB ekran kartı, 256 GB SSD disk donanımlı bir bilgisayarda denendi, çalıştı. Fakat açılırken ve çalışırken GPU için ekran kartının düşük seviyede kaldığı uyarısını verdi. Deneme modelinde birkaç boyama işlemi yapıldı, ortalama 2 GB bellek harcadı.

Paylaşım başlığının tam adı: "Allegorithmic Substance Painter 2019.2.2 Portable"

sostanzadipintore1922.part1.rar
565 MB
https://turb.to/8t1mg99nhpf0.html

sostanzadipintore1922.part2.rar
565 MB
https://turb.to/063wobvqf9x3.html

sostanzadipintore1922.part3.rar
559 MB
https://turb.to/pc1uw3opvgps.html

Toplam dosya boyutu: 1,64 GB. Paketleri ayıklamak için WinRAR 5.8 ve üzeri kullanılmalıdır.

23 Aralık 2021 Perşembe

SRT Dosyasını, Sıra Numarasını ve Zaman Damgasını Temizleyip TXT Dosyasına Dönüştürmek

SRT dosyasındaki sıra numarasını ve zaman damgasını temizlemek için butona basınız.

Dosyanın SRT dosyası olduğundan emin olunuz.

Dilerseniz satır boşluklarını da silebilirsiniz.

Yeni dosya, "dosya adı"_edit.txt adıyla bu dosyanın bulunduğu klasörde oluşturulacaktır.

Dim DosyaSec As FileDialog

Dim i As Long
Dim j As Long
Dim SiraNo As Long

Dim SRTDosyasi As String
Dim Veri As String
Dim Arr() As String
Dim DosyaAdi As String
Dim Soru1 As String
Dim Soru2 As String

Dim Yanit1 As Boolean
Dim Yanit2 As Boolean

Dim FSO As Scripting.FileSystemObject

Dim RegEx As Object
Dim RegMatches As Object
Dim RegMatch As Object

Sub SRT_to_TXT()

Set FSO = New Scripting.FileSystemObject
Set DosyaSec = Application.FileDialog(msoFileDialogFilePicker)
With DosyaSec
    .AllowMultiSelect = False
    If .Show <> -1 Then
        Exit Sub
    End If
    SRTDosyasi = DosyaSec.SelectedItems(1)
    DosyaAdi = FSO.GetFileName(DosyaSec.SelectedItems(1))
    DosyaAdi = Mid(DosyaAdi, 1, Len(DosyaAdi) - (Len(FSO.GetExtensionName(DosyaAdi)) + 1))
End With

If LCase(Right(SRTDosyasi, 4)) <> ".srt" Then
    Soru2 = MsgBox("Sectiginiz dosya SRT dosyasi degil, devam etmek istiyor musunuz?", vbYesNo)
    If Soru2 = vbYes Then
        DoEvents
    Else
        GoTo Cikis:
    End If
End If

Soru1 = MsgBox("Bos satirlar silinsin mi?", vbYesNo, "Soru")

If Soru1 = vbYes Then
    Yanit1 = True
Else
    Yanit1 = False
End If

Set ADO = CreateObject("ADODB.Stream")
ADO.Charset = "utf-8"
ADO.Open
ADO.LoadFromFile SRTDosyasi
Veri = ADO.ReadText
ADO.Close

Set RegEx = CreateObject("VBScript.RegExp")
With RegEx
    .Global = True
    .Pattern = "(([01]\d|2[0-3]):[0-5]\d:[0-5]\d,[0-9]{3})"
End With

If UBound(Split(Veri, Chr(10))) > 0 Then
    For i = 1 To UBound(Split(Veri, Chr(10)))
        If Yanit1 = True Then
            If Len(Split(Veri, Chr(10))(i - 1)) > 0 Then
                Set RegMatches = RegEx.Execute(Split(Veri, Chr(10))(i - 1))
                If RegEx.Test(Split(Veri, Chr(10))(i - 1)) = False Then
                    j = j + 1
                    ReDim Preserve Arr(1 To j)
                    Arr(j) = Split(Veri, Chr(10))(i - 1)
                End If
            End If
        Else
            Set RegMatches = RegEx.Execute(Split(Veri, Chr(10))(i - 1))
            If RegEx.Test(Split(Veri, Chr(10))(i - 1)) = False Then
                j = j + 1
                ReDim Preserve Arr(1 To j)
                Arr(j) = Split(Veri, Chr(10))(i - 1)
            End If
        End If
    Next i
    For i = LBound(Arr) To UBound(Arr)
        If IsNumeric(Arr(i)) = True Then
            SiraNo = SiraNo + 1
            Arr(i) = ""
        End If
    Next i
End If

If Dir(ThisDocument.Path & Application.PathSeparator & DosyaAdi & "_edit.srt") <> "" Then
    Kill ThisDocument.Path & Application.PathSeparator & DosyaAdi & "_edit.srt"
End If

Set ADO = CreateObject("ADODB.Stream")
ADO.Charset = "utf-8"
ADO.Open
If Yanit1 = True Then
    For i = LBound(Arr) To UBound(Arr)
        If Len(Arr(i)) > 0 Then
            ADO.WriteText Arr(i)
            ADO.WriteText vbNewLine
        End If
    Next i
Else
    For i = LBound(Arr) To UBound(Arr)
        ADO.WriteText Arr(i)
        ADO.WriteText vbNewLine
    Next i
End If
ADO.SaveToFile ThisDocument.Path & Application.PathSeparator & DosyaAdi & "_edit.txt", 2
ADO.Close

MsgBox SiraNo & " satirlik altyazi dosyasi ayiklandi.", vbInformation

Cikis:
Erase Arr
Veri = ""
i = 0
j = 0
SiraNo = 0

End Sub
'Kaynak: Bard, ChatGPT v3.5 _
Derleme: Muharrem DOGANCI, 4.11.2023 Cumartesi
'RegEx.Test(Veri) : Test sonucu "True" ya da "False" gelir
'RegMatches(1).Value : Test sonucu "True" gelirse, sirali sorgulama islem ornegi

22 Aralık 2021 Çarşamba

Blender 3.1 İle Yapay Çimen İçin Geometrik Prosedür ve Materyal

Default Cube TouTube kanalından 2 video ile bu deneyi yaptık.

İlk video:

Bu videodaki bilgileri olduğu gibi kullanmadık. Blender logosunu modelleyip onun üzerinde deneme yaptık.

Modelin üretilmesi için gerekli geometrik bileşen ayarları aşağıdadır.

Logodaki materyal bilgileri aşağıdadır.

İkinci video:

Bu videodaki bilgiler ile 2 tür ağaç oluşturuldu. İlk ağaç sade olarak bırakıldı. İkinci ağaç olduğu gibi üretildi.

Sade ağacın geometrik bileşenleri aşağıdadır.

Videodaki ağacın geometrik bileşenleri aşağıdadır. Bazı küçük değişiklikler yapılmıştır.

Yeşil yapraklar için materyal ayarları aşağıdadır.

Işık saçan toplar için materyal ayarları aşağıdadır.

Ağaç gövdesi için materyal ayarları aşağıdadır.

Render denemesi, yaklaşık 45 dakika. Sağdaki Blender logosu ilk videodaki çelenk bilgileri ile, soldaki ağaçlar ise ikinci videodaki bilgiler ile üretilmiştir.

BLEND dosyasını buradan indirebilirsiniz:
https://www.cgtrader.com/free-3d-models/various/various-models/procedural-wreaths-and-tree-yapay-cimen

JavaScript, CSS ile Hiyerarşik Liste Oluşturmak

Blog için hiyerarşik başlık listesi oluşturmak istediğimizde aşağıdaki HTML, stil biçimlendirme, javascript kodlarını kullanabiliriz.

Bu stil kodu, <head></head> arasına yerleştirilmelidir. Açılan liste ok rengini kaldırmak isterseniz "color: black;" kodunu stilden çıkarabilir, rengini değiştirmek isterseniz "black" yerine başka bir renk kullanabilirsiniz.

<style>
ul, #myUL {
  list-style-type: none;
}

#myUL {
  margin: 0;
  padding: 0;
}

.caret {
  cursor: pointer;
  -webkit-user-select: none; /* Safari 3.1+ */
  -moz-user-select: none; /* Firefox 2+ */
  -ms-user-select: none; /* IE 10+ */
  user-select: none;
}

.caret::before {
  content: "\25B6";
  color: black;
  display: inline-block;
  margin-right: 6px;
}

.caret-down::before {
  -ms-transform: rotate(90deg); /* IE 9 */
  -webkit-transform: rotate(90deg); /* Safari */'
  transform: rotate(90deg);  
}

.nested {
  display: none;
}

.active {
  display: block;
}
</style>

Bu javascript kodunu <head></head> arasına yerleştirebilirsiniz. Blog üzerinde ise kesinlikle HTML listeleme kodundan önce eklemelisiniz. Çevrim dışı HTML dosyasında <body></body> arasında, yine HTML listeleme kodundan önce eklemelisiniz.

<script>
var toggler = document.getElementsByClassName("caret");
var i;

for (i = 0; i < toggler.length; i++) {
  toggler[i].addEventListener("click", function() {
    this.parentElement.querySelector(".nested").classList.toggle("active");
    this.classList.toggle("caret-down");
  });
}
</script>

Bu HTML listeleme kodu, <body></body> arasına yerleştirilmelidir. "myUL" kimliği ve "caret", "nested" stil sınıfları gereklidir. Bunları, Türkçeleştirmek isterseniz, stil kümesinde ve javascript kodundaki kısımları da değiştirerek işlem yapabilirsiniz.

<ul id="myUL">
  <li><span class="caret">Konu 1</span>
    <ul class="nested">
      <li>1.1. Alt Başlık</li>
      <li>1.2. Alt Başlık</li>
      <li><span class="caret">1.2.1. Alt Başlık</span>
        <ul class="nested">
          <li>1.2.1.1. Alt Başlık</li>
          <li>1.2.1.2. Alt Başlık</li>
          <li><span class="caret">1.2.1.2.1. Alt Başlık</span>
            <ul class="nested">
              <li>1.2.1.2.1.1. Alt Başlık</li>
              <li>1.2.1.2.1.2. Alt Başlık</li>
              <li>1.2.1.2.1.3. Alt Başlık</li>
              <li>1.2.1.2.1.4. Alt Başlık</li>
            </ul>
          </li>
        </ul>
      </li>  
    </ul>
  <li><span class="caret">Konu 2</span>  
    <ul class="nested">
      <li>2.1. Alt Başlık</li>
      <li>2.2. Alt Başlık</li>
    </ul>
  </li>
</ul>

Test:

Konu 1
- 1.1. Alt Başlık
- 1.2. Alt Başlık
- 1.2.1. Alt Başlık
  - 1.2.1.1. Alt Başlık
  - 1.2.1.2. Alt Başlık
  - 1.2.1.2.1. Alt Başlık
    - 1.2.1.2.1.1. Alt Başlık
    - 1.2.1.2.1.2. Alt Başlık
    - 1.2.1.2.1.3. Alt Başlık
    - 1.2.1.2.1.4. Alt Başlık
Konu 2
- 2.1. Alt Başlık
- 2.2. Alt Başlık

Kaynak: https://www.w3schools.com/howto/howto_js_treeview.asp

Labirent Kufi Hat

İstanbul Üniversitesi'nin merkez kampüsünde rektörlük binasında odalardan birinde bulunan labirent kûfî tabloda besmele yazmaktadır.

Fotoğrafı referans alarak Adobe Illustrator'da, kullanım amacına göre çeşitli dosya biçimleriyle, tekrar oluşturdum.

PNG

SVG

Aşağıdaki kodu seçip not defterine yapıştırın ve dosyayı farklı kaydederek uzantıyı SVG olarak, kayıt türünü tüm dosyalar olarak belirleyin.

Bu Blogda Ara