Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1310 1659 (N33W41 L=100)   545    169        0 (1243/1623-1376/1694) -10.3 W35-W46 N31-N34
      2 1420 1492 (N20W38 L= 97)   316     90        0 (1397/1462-1445/1532)  18.4 W35-W41 N18-N21
      3 1310 1300 (N13W24 L= 83)   207     89        0 (1261/1280-1335/1331)   9.5 W20-W26 N12-N14
      4  804 1180 (N20E08 L= 50)  1573    446        3 ( 623/1119-1036/1252) -40.6 E18-W03 N11-N29
      5 1759  981 (S18W45 L=104)  1829    452        4 (1721/ 788-1798/1190)  56.3 W38-W52 S28-S06
      6 1828 1117 (S13W55 L=114)   917    112        1 (1801/1066-1858/1158)  59.0 W51-W58 S15-S10
      7 1352 1125 (N03W21 L= 80)   287     51        1 (1325/1100-1373/1149) -76.0 W19-W22 N00-N04
      8 1535  716 (S26W22 L= 81)  1896    482        1 (1401/ 595-1595/ 969)  46.6 W12-W31 S32-S13
      9  575  837 (N07E31 L= 28)   249     91        0 ( 532/ 812- 620/ 860) -38.7 E33-E28 N04-N09
     10  852  782 (S03E16 L= 43)   208     61        0 ( 837/ 751- 873/ 822) -90.0 E16-E15 S04-N00
     11 1016  717 (S11E09 L= 50)   443    142        0 ( 939/ 685-1085/ 760)   0.0 E13-E03 S11-S09
     12 1088  632 (S17E07 L= 52)   313    150        0 (1061/ 569-1123/ 715)  41.2 E10-E02 S20-S13
     13  231  660 (N03E67 L=352)   711    255        0 ( 194/ 619- 269/ 707)  13.2 E76-E59 N01-N05
  

    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