Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1043 1758 (N55W01 L=137)   363     55        0 (1022/1732-1066/1786)  59.0 W00-W04 N52-N57
      2  627 1562 (N38E32 L=103)  2365    432        3 ( 458/1459- 816/1629) -14.0 E51-E15 N30-N42
      3  359 1495 (N32E56 L= 79)   536     54        1 ( 338/1465- 391/1521)  45.0 E61-E53 N29-N33
      4  886 1469 (N32E10 L=125)   229     59        0 ( 864/1444- 921/1488)  26.6 E11-E07 N29-N32
      5  403 1436 (N28E49 L= 86)   523     97        0 ( 374/1412- 448/1474) -21.8 E53-E43 N26-N30
      6 1201 1429 (N29W12 L=147)  1046    293        0 (1093/1399-1338/1463)  -3.2 W04-W22 N26-N31
      7 1107 1100 (N08W05 L=140)   193     59        0 (1077/1079-1132/1125) -45.0 W03-W06 N06-N09
      8  500  936 (S03E34 L=101)   574    139        0 ( 438/ 900- 554/ 989)  24.0 E38-E29 S05-N00
      9  309  766 (S14E52 L= 84)   499    137        0 ( 292/ 697- 334/ 827)  53.1 E54-E48 S18-S10
     10 1102  745 (S14W05 L=140)   275     61        0 (1085/ 713-1126/ 772)  71.6 W03-W06 S15-S12
     11  933  613 (S22E06 L=129)   488    155        0 ( 860/ 596-1000/ 640)  12.5 E10-E01 S23-S20
     12 1640  531 (S29W49 L=184)  1522    230        1 (1582/ 484-1710/ 618) -33.7 W40-W57 S32-S22
     13  669  395 (S39E29 L=106)  1483    238        3 ( 588/ 340- 754/ 485)  32.3 E38-E19 S44-S31
     14  952  213 (S56E08 L=127)   446     65        0 ( 922/ 199- 994/ 229) -20.6 E10-E02 S57-S54
  

    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