Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  704 1809 (N39E46 L=329)  1164    113        3 ( 667/1762- 758/1845)  51.3 E53-E40 N34-N41
      2  965 1745 (N38E21 L=354)  1338    187        5 ( 875/1680-1019/1784) -15.9 E29-E15 N33-N41
      3 1294 1675 (N40W05 L= 21)   317     73        0 (1256/1659-1328/1688)  38.7 W02-W07 N38-N42
      4  364 1457 (N09E54 L=322)   678    119        1 ( 321/1407- 407/1502)  60.3 E56-E51 N05-N12
      5  678 1438 (N12E29 L=347)   391     81        0 ( 650/1406- 712/1471) -31.0 E31-E26 N10-N13
      6  571 1399 (N08E35 L=341)   225     51        0 ( 547/1376- 595/1427) -26.6 E37-E33 N06-N09
      7  902 1411 (N14E15 L=  1)   353     97        1 ( 850/1382- 943/1427)   0.0 E17-E11 N12-N15
      8 1755 1221 (N20W46 L= 61)   444     61        0 (1725/1199-1790/1240)   0.0 W42-W49 N19-N21
      9  198 1105 (S14E61 L=314)   610    116        0 ( 185/1054- 210/1160)  80.5 E62-E59 S16-S10
     10  413 1014 (S17E39 L=336)   256     56        0 ( 403/ 982- 428/1049) -76.0 E40-E38 S18-S14
     11  177  790 (S33E67 L=309)  1492    143        1 ( 149/ 728- 202/ 859)  29.7 E76-E61 S36-S28
     12 1131  686 (S24W13 L= 29)   905    230        1 (1105/ 579-1164/ 794) -69.0 W11-W16 S30-S17
     13 1552  741 (S12W39 L= 55)   243     87        0 (1537/ 699-1563/ 786) -51.3 W36-W40 S14-S09
     14 1373  522 (S29W35 L= 51)  1135    348        1 (1265/ 453-1522/ 652)  59.5 W29-W40 S34-S17
     15 1579  520 (S24W51 L= 67)  1118    294        0 (1462/ 437-1693/ 600)  56.3 W45-W56 S31-S16
  

    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