Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  605 1759 (N67E34 L=196)   516     66        0 ( 580/1736- 635/1775)  -4.8 E40-E27 N65-N69
      2  956 1606 (N45W08 L=239)   566     92        2 ( 914/1577-1004/1629) -15.9 W04-W11 N42-N47
      3 1739 1547 (N21W73 L=303)   893     74        2 (1718/1506-1764/1577)  15.3 W68-W80 N19-N22
      4 1602 1404 (N17W48 L=278)  1738    427        1 (1430/1342-1788/1455) -27.4 W36-W63 N09-N23
      5 1021 1316 (N24W05 L=236)   203    105        0 ( 976/1304-1077/1333) -18.4 W02-W08 N22-N25
      6  490 1184 (N24E34 L=197)  1492    336        2 ( 405/1047- 546/1298) -70.6 E41-E29 N15-N32
      7 1293 1150 (N09W18 L=249)   322    161        0 (1239/1117-1360/1171)  -7.1 W14-W22 N07-N10
      8 1601 1127 (N02W39 L=269)   362     87        1 (1578/1089-1617/1166)  36.9 W36-W40 N00-N03
      9  298  925 (N11E52 L=178)   469    106        1 ( 274/ 892- 344/ 958)  15.9 E55-E47 N08-N12
     10  355  899 (N08E47 L=183)   314     87        1 ( 329/ 860- 385/ 936)  53.1 E49-E44 N06-N10
     11  388  682 (S05E49 L=181)   309     53        1 ( 368/ 659- 415/ 706) -45.0 E51-E47 S06-S03
     12  633  610 (S13E32 L=198)   303    106        0 ( 610/ 589- 674/ 658) -68.2 E33-E29 S14-S09
     13  513  498 (S19E46 L=184)   327     68        1 ( 492/ 465- 537/ 527)  23.2 E49-E42 S20-S16
     14  882  396 (S31E23 L=208)  1250    369        3 ( 759/ 304- 996/ 509)  23.7 E36-E11 S37-S24
     15  711  431 (S26E34 L=197)   757    242        0 ( 631/ 333- 793/ 495)  24.2 E45-E25 S32-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