Skip to content

Instantly share code, notes, and snippets.

View frag.sc
using import glsl
using import glm
out out-color : vec4
location = 0
inline circle (pos uv radius)
let dist-test =
smoothstep
radius
@radgeRayden
radgeRayden / main.c
Last active May 9, 2020
triangle example with fullscreen
View main.c
#ifndef WGPU_H
#define WGPU_H
#include "wgpu.h"
#endif
#include "framework.h"
#include <stdio.h>
#include <stdlib.h>
#define WGPU_TARGET_MACOS 1
View gl.sc
# import C functions and sanitize the scope
vvv bind glad
do
let glad =
include
options
.. "-I" module-dir "/glad/include"
"glad/src/glad.c"
do
using glad.extern
View number-regex.sc
let number-regexp =
do
hex-digit := "[0-9a-fA-F]"
bin-digit := "[01]"
oct-digit := "[0-7]"
fn re-or (...)
let result =
.. "("
va-lifold ""
inline (index _. value computed-result)
View reflection.sc
using import enum
@@ memo
inline member-typeof (T member)
let result =
static-if ((T < Struct) or (T < CStruct))
field-count := (countof T)
let result =
va-lfold none
inline (_ignore value computed-result)
@radgeRayden
radgeRayden / color-test.sc
Last active Nov 14, 2019
Color test for scopes styles
View color-test.sc
fn test-color (style-kind)
let style-code = (default-styler style-kind "")
let styled-name = (default-styler style-kind (style-kind as string))
let color-code =
do
let code = (lslice style-code ((countof style-code) - (countof "\x1b[0m")))
match code
case "\x1b\[30m"
0
case "\x1b[31m"
@radgeRayden
radgeRayden / fnt2scopes.lua
Created Oct 16, 2019
FNT -> Scopes S Expressions converter
View fnt2scopes.lua
local filename = arg[1]
local output =
[[
using import struct
struct FNTCharInfo plain
id : i32
x : i32
y : i32
width : i32
height : i32
View main.lua
local field = {}
local field_width = 10
local field_height = 10
local field_position_x = 100
local field_position_y = 100
local n_mines = 15
local size_square = 30
local start_time = 0
local play_time = 0
local is_game_over = false
@radgeRayden
radgeRayden / video.sc
Last active Aug 5, 2019
sokol_gfx scopes example: drawing palletized images to a texture then updating a gpu buffer
View video.sc
#
in: console VRAM
320x240 palletized pixel data
16-color (subject to change) pallete in RGB 24-bit format
using import glsl
using import glm
#shader constants
let +palette-width+ = 4
@radgeRayden
radgeRayden / main.sc
Last active May 20, 2019
sokol triangle example in scopes
View main.sc
include
(import sokol)
""""#define SOKOL_NO_ENTRY
#define SOKOL_IMPL
#define SOKOL_GLCORE33
#include "include/sokol/sokol_app.h"
#include "include/sokol/sokol_gfx.h"
include
(import C)
You can’t perform that action at this time.