← Back to branch summary

~reviczky/context/mirror

« back to all changes in this revision

Viewing changes to metapost/context/base/mpxl/mp-luas.mpxl

  • Committer: Context Git Mirror Bot
  • Author(s): Hans Hagen
  • Date: 2022-05-02 15:02:40 UTC
  • Revision ID: git-v1:d2e1112ef8921f361ac7cf1b49e30923cce6d5f0
2022-05-02 15:50:00

Show diffs side-by-side

added added

removed removed

Lines of Context:
metapost/context/base/mpxl/mp-luas.mpxl
187
187
    setmacro, setdimen, setcount, settoks,
188
188
    setglobalmacro, setglobaldimen, setglobalcount, setglobaltoks ;
189
189
 
190
 
newscriptindex mfid_positionpath   ; mfid_positionpath   := scriptindex("positionpath") ;
191
 
newscriptindex mfid_positioncurve  ; mfid_positioncurve  := scriptindex("positioncurve") ;
192
 
newscriptindex mfid_positionxy     ; mfid_positionxy     := scriptindex("positionxy") ;
193
 
newscriptindex mfid_positionx      ; mfid_positionx      := scriptindex("positionx") ;
194
 
newscriptindex mfid_positiony      ; mfid_positiony      := scriptindex("positiony") ;
195
 
newscriptindex mfid_positionpar    ; mfid_positionpar    := scriptindex("positionpar") ;
196
 
newscriptindex mfid_positionwhd    ; mfid_positionwhd    := scriptindex("positionwhd") ;
197
 
newscriptindex mfid_positionpage   ; mfid_positionpage   := scriptindex("positionpage") ;
198
 
newscriptindex mfid_positionregion ; mfid_positionregion := scriptindex("positionregion") ;
199
 
newscriptindex mfid_positionbox    ; mfid_positionbox    := scriptindex("positionbox") ;
200
 
newscriptindex mfid_positionanchor ; mfid_positionanchor := scriptindex("positionanchor") ;
 
190
newscriptindex mfid_positionpath        ; mfid_positionpath        := scriptindex("positionpath") ;
 
191
newscriptindex mfid_positioncurve       ; mfid_positioncurve       := scriptindex("positioncurve") ;
 
192
newscriptindex mfid_positionxy          ; mfid_positionxy          := scriptindex("positionxy") ;
 
193
newscriptindex mfid_positionx           ; mfid_positionx           := scriptindex("positionx") ;
 
194
newscriptindex mfid_positiony           ; mfid_positiony           := scriptindex("positiony") ;
 
195
newscriptindex mfid_positionposition    ; mfid_positionparagraph   := scriptindex("positionparagraph") ;
 
196
newscriptindex mfid_positionwhd         ; mfid_positionwhd         := scriptindex("positionwhd") ;
 
197
newscriptindex mfid_positionpage        ; mfid_positionpage        := scriptindex("positionpage") ;
 
198
newscriptindex mfid_positioncolumn      ; mfid_positioncolumn      := scriptindex("positioncolumn") ;
 
199
newscriptindex mfid_positionregion      ; mfid_positionregion      := scriptindex("positionregion") ;
 
200
newscriptindex mfid_positionbox         ; mfid_positionbox         := scriptindex("positionbox") ;
 
201
newscriptindex mfid_positionanchor      ; mfid_positionanchor      := scriptindex("positionanchor") ;
 
202
newscriptindex mfid_positioncolumnfromx ; mfid_positioncolumnfromx := scriptindex("positioncolumnfromx") ;
 
203
newscriptindex mfid_positioncolumnbox   ; mfid_positioncolumnbox   := scriptindex("positioncolumnbox") ;
 
204
newscriptindex mfid_overlaycolumnbox    ; mfid_overlaycolumnbox    := scriptindex("overlaycolumnbox") ;
201
205
 
202
 
vardef positionpath     (expr name) = runscript mfid_positionpath      (name) enddef ;
203
 
vardef positioncurve    (expr name) = runscript mfid_positioncurve     (name) enddef ;
204
 
vardef positionxy       (expr name) = runscript mfid_positionxy        (name) enddef ;
205
 
vardef positionx        (expr name) = runscript mfid_positionx         (name) enddef ;
206
 
vardef positiony        (expr name) = runscript mfid_positiony         (name) enddef ;
207
 
vardef positionpar      (expr name) = runscript mfid_positionpar       (name) enddef ;
208
 
vardef positionwhd      (expr name) = runscript mfid_positionwhd       (name) enddef ;
209
 
vardef positionpage     (expr name) = runscript mfid_positionpage      (name) enddef ;
210
 
vardef positioncolumn   (expr name) = runscript mfid_positioncolumn    (name) enddef ;
211
 
vardef positionparagraph(expr name) = runscript mfid_positionparagraph (name) enddef ;
212
 
vardef positionregion   (expr name) = runscript mfid_positionregion    (name) enddef ;
213
 
vardef positionbox      (expr name) = runscript mfid_positionbox       (name) enddef ;
214
 
vardef positionanchor               = runscript mfid_positionanchor           enddef ;
 
206
vardef positionpath     (expr name)   = runscript mfid_positionpath     (name)   enddef ;
 
207
vardef positioncurve    (expr name)   = runscript mfid_positioncurve    (name)   enddef ;
 
208
vardef positionxy       (expr name)   = runscript mfid_positionxy       (name)   enddef ;
 
209
vardef positionx        (expr name)   = runscript mfid_positionx        (name)   enddef ;
 
210
vardef positiony        (expr name)   = runscript mfid_positiony        (name)   enddef ;
 
211
vardef positionwhd      (expr name)   = runscript mfid_positionwhd      (name)   enddef ;
 
212
vardef positionpage     (expr name)   = runscript mfid_positionpage     (name)   enddef ;
 
213
vardef positioncolumn   (expr name)   = runscript mfid_positioncolumn   (name)   enddef ;
 
214
vardef positionparagraph(expr name)   = runscript mfid_positionparagraph(name)   enddef ;
 
215
vardef positionpar      (expr name)   = runscript mfid_positionparagraph(name)   enddef ;
 
216
vardef positionregion   (expr name)   = runscript mfid_positionregion   (name)   enddef ;
 
217
vardef positionbox      (expr name)   = runscript mfid_positionbox      (name)   enddef ;
 
218
vardef positionanchor                 = runscript mfid_positionanchor            enddef ;
 
219
vardef positioncolumnatx(expr name)   = runscript mfid_positioncolumnatx(name)   enddef ;
 
220
vardef positioncolumnbox(expr column) = runscript mfid_positioncolumnbox(column) enddef ;
 
221
vardef overlaycolumnbox (expr column) = runscript mfid_overlaycolumnbox (column) enddef ;
215
222
 
216
223
vardef positioninregion =
217
224
    currentpicture := currentpicture shifted - positionxy(positionanchor) ;
223
230
 
224
231
permanent positionpath, positioncurve, positionxy, positionwhd,
225
232
    positionpage, positionregion, positioncolumn, positionparagraph,
226
 
    positionbox, positionanchor, positioninregion, positionatanchor ;
 
233
    positionbox, positionanchor, positioninregion, positionatanchor,
 
234
    positioncolumnatx, positioncolumnbox, overlaycolumnbox ;
227
235
 
228
236
let wdpart = redpart ;
229
237
let htpart = greenpart ;