REM  *****  BASIC  *****

Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object

Sub Main
    Doc = ThisComponent
    Sheet = Doc.Sheets(0)
    frequency = 0.3
    For r = 0 To 38
        For c = 0 to 10
            cell = Sheet.getCellByPosition(c, r)

            cell_red = Sin(frequency*(r-c) + 0) * 127 + 128
            cell_green = Sin(frequency*(r-c) + 2) * 127 + 128
            cell_blue = Sin(frequency*(r-c) + 4) * 127 + 128

            cell.CellBackColor = RGB(cell_red,cell_green,cell_blue)
        Next c
    Next r
End Sub