Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1334 1620 (N35W38 L=170)   539    137        2 (1266/1596-1388/1636) -18.4 W33-W42 N32-N37
      2  697 1438 (N39E13 L=119)   734    135        2 ( 648/1397- 763/1478) -32.0 E17-E08 N35-N42
      3  447 1233 (N30E35 L= 97)  1245    255        0 ( 378/1144- 514/1329) -51.8 E41-E30 N23-N37
      4  968 1239 (N21W01 L=133)   989    321        4 ( 828/1181-1117/1308) -38.7 E06-W09 N15-N27
      5 1252 1039 (N03W14 L=145)  1093    226        1 (1170/ 928-1319/1140) -81.9 W10-W16 S04-N10
      6  475 1016 (N17E35 L= 97)   318    110        0 ( 451/ 982- 511/1072) -63.4 E36-E32 N14-N20
      7 1814  999 (S14W53 L=185)  1003    140        2 (1784/ 931-1841/1043) -81.9 W49-W56 S17-S10
      8  241  980 (N17E56 L= 76)   433     63        1 ( 223/ 946- 258/1019) -78.7 E57-E54 N15-N20
      9 1863  942 (S19W57 L=189)   780    145        2 (1842/ 912-1901/ 991) -56.3 W54-W62 S21-S15
     10  268  811 (N07E57 L= 75)   441     98        1 ( 243/ 776- 287/ 839) -76.0 E60-E54 N04-N08
     11 1259  700 (S17W07 L=139)   853    148        1 (1191/ 627-1294/ 756)  77.5 W03-W09 S22-S13
     12  287  503 (S13E70 L= 62)   922    188        1 ( 265/ 479- 322/ 533)   5.2 E75-E64 S15-S10
     13  992  340 (S36E20 L=112)  1175    264        2 ( 905/ 265-1040/ 427)  29.4 E29-E13 S40-S30
     14  581  328 (S29E50 L= 82)   903    154        1 ( 531/ 295- 614/ 364)  -8.1 E54-E45 S31-S26
  

    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