Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  349 1559 (N12E61 L=116)  3004    456        8 ( 284/1443- 430/1657)  65.2 E67-E51 N05-N19
      2  403 1521 (N10E53 L=123)   448     66        1 ( 373/1494- 438/1547)  53.1 E55-E50 N08-N12
      3  500 1403 (N05E41 L=136)   342     86        1 ( 462/1353- 540/1439)  71.6 E42-E38 N01-N07
      4  274 1407 (N02E61 L=116)   617    201        2 ( 228/1382- 333/1429)   4.8 E67-E55 N00-N03
      5  552 1375 (N04E36 L=141)   237     78        0 ( 517/1346- 596/1402)  51.3 E38-E34 N01-N06
      6  411 1378 (N02E47 L=130)   301     54        1 ( 388/1350- 430/1399) -71.6 E48-E45 N00-N03
      7 1118 1245 (N07W01 L=177)   425    209        0 (1091/1171-1181/1336) -48.8 E02-W05 N03-N12
      8  189 1148 (S14E61 L=115)  4052    674       11 ( 129/1035- 260/1258) -85.9 E70-E54 S21-S07
      9  502  884 (S26E30 L=147)  1364    358        4 ( 385/ 763- 626/1017)  51.7 E38-E23 S34-S15
     10 1438  812 (S09W29 L=206)   699    187        5 (1374/ 766-1523/ 865)  -5.2 W24-W35 S13-S07
     11 1513  672 (S15W39 L=216)  2128    531        7 (1321/ 562-1640/ 773)  46.8 W29-W49 S25-S07
     12  425  591 (S46E36 L=141)   353     65        0 ( 398/ 572- 455/ 612) -11.3 E38-E33 S47-S44
     13 1610  510 (S21W53 L=230)   380     66        0 (1581/ 485-1643/ 536)  63.4 W51-W55 S22-S18
     14 1096  508 (S35W19 L=196)   243     61        0 (1064/ 494-1132/ 527)  11.3 W16-W21 S36-S34
     15 1688  432 (S22W65 L=242)  2044    328        2 (1584/ 378-1788/ 487)  37.4 W58-W75 S28-S15
  

    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