Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1054 1901 (N55E41 L= 85)   874    110        0 (1026/1872-1084/1927) -41.6 E48-E35 N50-N58
      2  554 1630 (N18E50 L= 76)  2434    522        6 ( 490/1474- 610/1781) -47.9 E61-E39 N08-N29
      3  461 1603 (N14E56 L= 70)   373     80        0 ( 440/1569- 475/1646) -59.0 E58-E54 N11-N16
      4  824 1514 (N17E26 L=100)   621    196        2 ( 738/1450- 893/1547)  10.3 E31-E20 N14-N19
      5  793 1471 (N14E26 L=100)   288     58        2 ( 775/1444- 818/1502) -45.0 E28-E24 N12-N15
      6  807 1427 (N12E24 L=102)   256    131        1 ( 749/1412- 865/1445)  23.2 E27-E20 N09-N13
      7  983  858 (S15W02 L=129)   318    127        1 ( 944/ 811-1027/ 900)  74.1 W00-W03 S18-S11
      8  998  654 (S26W10 L=136)   219     75        0 ( 958/ 639-1037/ 667)  36.9 W07-W11 S28-S24
      9 1594  556 (S13W52 L=178)   485    122        0 (1548/ 516-1639/ 597)  66.8 W50-W53 S17-S10
     10 1590  497 (S17W55 L=181)   450     67        1 (1558/ 468-1622/ 522)  45.0 W52-W57 S18-S14
     11 1135  430 (S35W28 L=154)   318     80        0 (1096/ 416-1173/ 448)  21.8 W25-W30 S36-S34
     12  694  413 (S53E03 L=124)   575     84        1 ( 660/ 390- 732/ 445)   0.0 E06-W01 S54-S50
     13 1518  402 (S24W57 L=183)   540     73        1 (1488/ 374-1555/ 430)  78.7 W54-W58 S26-S21
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y