summaryrefslogtreecommitdiff
path: root/metapost/context/base/mpiv/mp-idea.mpiv
diff options
context:
space:
mode:
Diffstat (limited to 'metapost/context/base/mpiv/mp-idea.mpiv')
-rw-r--r--metapost/context/base/mpiv/mp-idea.mpiv44
1 files changed, 0 insertions, 44 deletions
diff --git a/metapost/context/base/mpiv/mp-idea.mpiv b/metapost/context/base/mpiv/mp-idea.mpiv
deleted file mode 100644
index d417ab51f..000000000
--- a/metapost/context/base/mpiv/mp-idea.mpiv
+++ /dev/null
@@ -1,44 +0,0 @@
-% redpart (1,1,0,0) crashes
-
-% let normalredpart = redpart ;
-% let normalgreenpart = greenpart ;
-% let normalbluepart = bluepart ;
-% let normalcyanpart = cyanpart ;
-% let normalmagentapart = magentapart ;
-% let normalyellowpart = yellowpart ;
-% let normalblackpart = blackpart ;
-
-% vardef redpart expr p = if cmykcolor p : 1 - normalcyanpart p elseif rgbcolor p : normalredpart p else : p fi enddef ;
-% vardef greenpart expr p = if cmykcolor p : 1 - normalmagentapart p elseif rgbcolor p : normalgreenpart p else : p fi enddef ;
-% vardef bluepart expr p = if cmykcolor p : 1 - normalyellowpart p elseif rgbcolor p : normalbluepart p else : p fi enddef ;
-% vardef cyanpart expr p = if cmykcolor p : normalcyanpart p elseif rgbcolor p : 1 - normalredpart p else : p fi enddef ;
-% vardef magentapart expr p = if cmykcolor p : normalmagentapart p elseif rgbcolor p : 1 - normalgreenpart p else : p fi enddef ;
-% vardef yellowpart expr p = if cmykcolor p : normalyellowpart p elseif rgbcolor p : 1 - normalbluepart p else : p fi enddef ;
-% vardef blackpart expr p = if cmykcolor p : normalblackpart p elseif rgbcolor p : 0 else : p fi enddef ;
-
-vardef rcomponent expr p = if rgbcolor p : redpart p elseif cmykcolor p : 1 - cyanpart p else : p fi enddef ;
-vardef gcomponent expr p = if rgbcolor p : greenpart p elseif cmykcolor p : 1 - magentapart p else : p fi enddef ;
-vardef bcomponent expr p = if rgbcolor p : bluepart p elseif cmykcolor p : 1 - yellowpart p else : p fi enddef ;
-vardef ccomponent expr p = if cmykcolor p : cyanpart p elseif rgbcolor p : 1 - redpart p else : p fi enddef ;
-vardef mcomponent expr p = if cmykcolor p : magentapart p elseif rgbcolor p : 1 - greenpart p else : p fi enddef ;
-vardef ycomponent expr p = if cmykcolor p : yellowpart p elseif rgbcolor p : 1 - bluepart p else : p fi enddef ;
-vardef bcomponent expr p = if cmykcolor p : blackpart p elseif rgbcolor p : 0 else : p fi enddef ;
-
-vardef somecolor = (1,1,0,0) enddef ;
-
-fill OverlayBox withcolor (rcomponent somecolor,gcomponent somecolor,bcomponent somecolor) ;
-fill OverlayBox withcolor (ccomponent somecolor,mcomponent somecolor,ycomponent somecolor,bcomponent somecolor) ;
-
-% def newcolor text v = forsuffixes i=v : save i ; color i ; endfor ; enddef ;
-% def newnumeric text v = forsuffixes i=v : save i ; numeric i ; endfor ; enddef ;
-% def newboolean text v = forsuffixes i=v : save i ; boolean i ; endfor ; enddef ;
-% def newtransform text v = forsuffixes i=v : save i ; transform i ; endfor ; enddef ;
-% def newpath text v = forsuffixes i=v : save i ; path i ; endfor ; enddef ;
-% def newpicture text v = forsuffixes i=v : save i ; picture i ; endfor ; enddef ;
-% def newstring text v = forsuffixes i=v : save i ; string i ; endfor ; enddef ;
-
-% width := 10 ;
-% beginfig(1) ;
-% newpath width, height ; width := origin -- cycle ;
-% endfig ;
-% width := 10 ;