2023/12/15, りょくちゃ (@suitougreentea)
この記事は、Simutrans Advent Calendar 2023 15日目の記事です。
どうもお久しぶりです…!初めましての方は初めまして。りょくちゃと申します。5年くらい前までシムトラやってたのですが、それからは全然触れず…。先日久しぶりにExtendedを触ったら、色々と進化していて驚きました。
\version "2.22.0" | |
#(define color5-engraver | |
(make-engraver | |
(acknowledgers | |
((note-head-interface engraver grob source-engraver) | |
(let* ((cause (event-cause grob)) | |
(pitch (ly:prob-property cause 'pitch)) | |
(alteration (ly:pitch-alteration pitch))) | |
(ly:grob-set-property! grob 'color |
\version "2.22.0" | |
#(define color5-engraver | |
(make-engraver | |
(acknowledgers | |
((note-head-interface engraver grob source-engraver) | |
(let* ((cause (event-cause grob)) | |
(pitch (ly:prob-property cause 'pitch)) | |
(alteration (ly:pitch-alteration pitch))) | |
(ly:grob-set-property! grob 'color |
2023/12/15, りょくちゃ (@suitougreentea)
この記事は、Simutrans Advent Calendar 2023 15日目の記事です。
どうもお久しぶりです…!初めましての方は初めまして。りょくちゃと申します。5年くらい前までシムトラやってたのですが、それからは全然触れず…。先日久しぶりにExtendedを触ったら、色々と進化していて驚きました。
\version "2.19.59" | |
cright = \change Staff = "right" | |
cleft = \change Staff = "left" | |
vil = { | |
\change Staff = "left" | |
\override Rest.staff-position = 4 | |
} | |
vir = { |
\version "2.19.82" | |
% This file provides a way to create a separate whiteout grob from existing grobs | |
% to make their layers separate, which is useful for whiting out overlapping grobs. | |
% To use it, simply \include this file and: | |
% 1. set whiteout-ex property of the grob you want to whiteout to #t (or thickness number). | |
% 2. set whiteout-layer property of the grob to a number you like | |
% (default -1, so you might want to set the layer of the behind grob to -2) | |
% whiteout styles other than outline is not supported. |
Assume X-Y bounding box: [-1, 1]*[-1, 1] -> 2*2 size | |
Orthographic camera scale: 2*sqrt(2)=2.82843 | |
Camera X, Y: (1, 1) | |
Camera Z: 2*sqrt(2)*tan(30deg)=1.63299 (<- looking at (-1, -1, 0) from (1, 1, Z)) | |
Camera Rot: (60deg, 0deg, 135deg) |
% There is an exception to this general rule: inside of an {…} construct (sequential music), the construct’s notion of the “current context” will descend whenever an element of the sequence ends in a subcontext of the previous current context. This avoids spurious creation of implicit contexts in a number of situations but means that the first context descended into will be kept alive until the end of the expression. | |
% In contrast, the contexts of a <<…>> construct’s (simultaneous music) expression are not carried forth, so enclosing a context creating command in an extra pair of <<…>> will keep the context from persisting through all of the enclosing {…} sequence. | |
% - http://lilypond.org/doc/v2.19/Documentation/notation/keeping-contexts-alive.html | |
\version "2.19.81" | |
\score { | |
\new Staff { | |
\new Voice { | |
\override NoteHead.stencil = ##f |
CXX = i686-w64-mingw32-g++ | |
C = i686-w64-mingw32-gcc | |
LD = i686-w64-mingw32-ld | |
SDL_CONFIG = /usr/i686-w64-mingw32/sys-root/mingw/bin/sdl-config | |
SDL2_CONFIG = /usr/i686-w64-mingw32/sys-root/mingw/bin/sdl2-config | |
BACKEND=gdi | |
COLOUR_DEPTH=16 | |
OSTYPE=mingw32 |