LEFT | RIGHT |
(no file at all) | |
1 /* | 1 /* |
2 This file is part of LilyPond, the GNU music typesetter. | 2 This file is part of LilyPond, the GNU music typesetter. |
3 | 3 |
4 Copyright (C) 1998--2012 Jan Nieuwenhuizen <janneke@gnu.org> | 4 Copyright (C) 1998--2012 Jan Nieuwenhuizen <janneke@gnu.org> |
5 Han-Wen Nienhuys <hanwen@xs4all.nl> | 5 Han-Wen Nienhuys <hanwen@xs4all.nl> |
6 | 6 |
7 LilyPond is free software: you can redistribute it and/or modify | 7 LilyPond is free software: you can redistribute it and/or modify |
8 it under the terms of the GNU General Public License as published by | 8 it under the terms of the GNU General Public License as published by |
9 the Free Software Foundation, either version 3 of the License, or | 9 the Free Software Foundation, either version 3 of the License, or |
10 (at your option) any later version. | 10 (at your option) any later version. |
(...skipping 435 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
446 { | 446 { |
447 Grob *gr = unsmob_grob (grob); | 447 Grob *gr = unsmob_grob (grob); |
448 | 448 |
449 LY_ASSERT_SMOB (Grob, grob, 1); | 449 LY_ASSERT_SMOB (Grob, grob, 1); |
450 LY_ASSERT_TYPE (ly_is_procedure, proc, 2); | 450 LY_ASSERT_TYPE (ly_is_procedure, proc, 2); |
451 LY_ASSERT_TYPE (ly_is_symbol, sym, 3); | 451 LY_ASSERT_TYPE (ly_is_symbol, sym, 3); |
452 | 452 |
453 chain_callback (gr, proc, sym); | 453 chain_callback (gr, proc, sym); |
454 return SCM_UNSPECIFIED; | 454 return SCM_UNSPECIFIED; |
455 } | 455 } |
| 456 |
| 457 LY_DEFINE (ly_grob_vertical_less_p, "ly:grob-vertical<?", |
| 458 2, 0, 0, (SCM a, SCM b), |
| 459 "Does @var{a} lie above @var{b} on the page?") |
| 460 { |
| 461 LY_ASSERT_SMOB (Grob, a, 1); |
| 462 LY_ASSERT_SMOB (Grob, b, 2); |
| 463 |
| 464 Grob *ga = unsmob_grob (a); |
| 465 Grob *gb = unsmob_grob (b); |
| 466 |
| 467 return ly_bool2scm (Grob::vertical_less (ga, gb)); |
| 468 } |
LEFT | RIGHT |