Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1391 1662 (N34W48 L=321)  2574    431        6 (1221/1577-1586/1711) -32.0 W35-W59 N23-N40
      2 1728 1493 (N13W65 L=338)   719     85        1 (1699/1465-1753/1541)  11.3 W60-W70 N11-N15
      3 1431 1423 (N19W36 L=310)   375     73        2 (1403/1389-1466/1458)  18.4 W33-W39 N17-N21
      4  882 1362 (N30E00 L=273)   565    126        0 ( 832/1327- 941/1383) -18.4 E03-W03 N28-N31
      5 1592 1334 (N10W44 L=317)  1003    221        2 (1517/1288-1654/1380) -26.6 W39-W50 N06-N14
      6 1210 1320 (N19W19 L=292)   205     83        0 (1176/1301-1251/1331) -11.3 W16-W21 N18-N20
      7 1775 1279 (N01W57 L=331)   775    107        2 (1740/1254-1825/1315) -29.7 W52-W62 S01-N03
      8 1815  954 (S18W52 L=326)   532     84        1 (1790/ 916-1830/1000)  63.4 W49-W54 S20-S15
      9  201  860 (N13E64 L=210)   626    103        1 ( 173/ 825- 245/ 902) -29.7 E67-E58 N10-N15
     10 1409  768 (S17W17 L=290)   218     39        1 (1382/ 749-1429/ 789)   0.0 W14-W18 S18-S15
     11 1772  721 (S32W46 L=320)   410     88        0 (1748/ 685-1794/ 766)  38.7 W43-W48 S33-S29
     12  209  677 (N02E70 L=203)  1043    149        1 ( 194/ 604- 234/ 736)  36.0 E75-E63 S03-N05
     13  485  685 (S01E42 L=232)   862    186        2 ( 392/ 653- 554/ 708) -14.0 E49-E37 S03-N01
     14  462  476 (S14E53 L=221)  1731    416        2 ( 368/ 348- 574/ 604) -84.3 E58-E48 S24-S04
     15  840  304 (S33E34 L=239)  1952    342        4 ( 774/ 212- 935/ 442)  79.2 E39-E28 S43-S22
  

    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