Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  882 1856 (N57E37 L= 84)   655    107        0 ( 828/1839- 935/1868)   4.4 E44-E30 N55-N58
      2  778 1703 (N41E32 L= 89)   306     60        0 ( 747/1689- 812/1717)   9.5 E35-E29 N39-N42
      3  670 1628 (N34E37 L= 84)   457    100        0 ( 637/1591- 700/1671) -26.6 E42-E32 N31-N36
      4  948 1630 (N38E16 L=106)   572    144        2 ( 896/1602-1029/1649)   5.7 E19-E09 N35-N39
      5 1435 1403 (N29W23 L=144)  2195    474        2 (1222/1308-1612/1470)  -7.6 W07-W37 N25-N31
      6  338 1422 (N16E56 L= 65)   407     86        1 ( 308/1380- 362/1460) -80.5 E58-E54 N12-N18
      7  413 1132 (S01E41 L= 80)   424    123        1 ( 398/1080- 440/1194)  81.9 E42-E39 S04-N03
      8 1625 1142 (N15W38 L=159)   267     58        0 (1614/1100-1643/1169)  76.0 W37-W39 N12-N16
      9  190 1057 (S08E62 L= 59)  1146    258        0 ( 166/ 944- 235/1168)  74.1 E65-E58 S15-S01
     10  625 1065 (S02E25 L= 96)   477    149        0 ( 564/1006- 670/1104)  45.0 E28-E22 S06-N00
     11 1691  700 (S11W51 L=172)   644    145        0 (1642/ 645-1734/ 759)  63.4 W47-W53 S14-S06
     12 1694  520 (S22W60 L=182)  2575    407        3 (1526/ 470-1806/ 645)  33.7 W45-W71 S26-S12
     13  856  481 (S37E04 L=117)   247     79        0 ( 818/ 464- 891/ 497)  11.3 E06-E01 S38-S34
  

    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