0.0.0.0:80 5line / master gui / gui.factor
master

Tree @master (Download .tar.gz)

gui.factor @masterraw · history · blame

! Copyright (C) 2026 Your name.
! See https://factorcode.org/license.txt for BSD license.
USING: ;
IN: 5line.gui

: with-opengl ( -- ) ;

INITIALIZED-SYMBOL: pattern-table { } ;

! == Building up notes
! * Todo: Note Beaming

! : draw-lines ( from to weight -- ) ;

! : load-image ( -- ) ;

! == Primary notational gadgets

! Spots organize notes
TUPLE: spot-gadg < gadget
   pattern# index ;
M: spot-pen draw-interior ( gadget-pen -- )
   2drop ;
   
! Clefs organize spots
TUPLE: clef-gadg < gadget
   pattern# ;
SINGLETON: clef-pen ;
M: clef-pen draw-interior ( gadget-pen -- )
   2drop ;
M: clef-gadg layout* ( gadget -- )
   drop ;