Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  988 1600 (N26E20 L= 90)  1095    265        1 ( 930/1496-1056/1708) -32.0 E28-E12 N20-N32
      2  615 1532 (N12E40 L= 70)   335     91        0 ( 602/1488- 635/1582) -63.4 E41-E37 N09-N15
      3  870 1407 (N11E19 L= 91)   712    269        0 ( 749/1360- 975/1437)  15.9 E26-E12 N07-N12
      4 1255 1333 (N18W04 L=114)   402    123        0 (1211/1293-1298/1387)  69.4 W02-W05 N14-N22
      5 1508 1159 (N15W24 L=134)   249     92        0 (1484/1121-1551/1187) -21.8 W22-W27 N14-N16
      6 1417 1036 (N06W22 L=132)   309     62        0 (1403/1000-1434/1074) -68.2 W20-W23 N03-N08
      7 1826  802 (N07W60 L=171)   586     67        3 (1795/ 777-1852/ 827)   0.0 W56-W64 N05-N08
      8  903  694 (S28W03 L=113)   563    123        1 ( 845/ 674- 977/ 717)  20.6 E01-W07 S30-S25
      9  407  584 (S50E36 L= 74)   487     63        0 ( 385/ 561- 442/ 620) -18.4 E38-E31 S51-S47
     10  946  505 (S38W13 L=123)   351     94        0 ( 913/ 470- 986/ 543)  71.6 W11-W13 S40-S34
     11 1177  517 (S29W26 L=136)   354    106        0 (1123/ 502-1232/ 531)  33.7 W23-W29 S31-S27
     12 1359  497 (S25W39 L=149)   309     67        1 (1321/ 484-1397/ 512)  36.9 W36-W41 S26-S23
     13 1431  447 (S25W47 L=157)   408    121        0 (1378/ 418-1476/ 490)  71.6 W44-W47 S28-S21
     14 1294  390 (S33W41 L=152)   598    121        1 (1235/ 369-1352/ 415)  18.4 W36-W45 S34-S30
  

    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