Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  424 1584 (N20E57 L= 43)   659     99        0 ( 397/1549- 470/1605)  59.0 E59-E52 N17-N22
      2  370 1295 (N02E49 L= 51)   375     62        1 ( 340/1274- 398/1312)  31.0 E51-E46 N00-N03
      3 1160 1225 (N13W04 L=104)   551    191        1 (1106/1167-1245/1303) -26.6 W00-W10 N10-N16
      4  540 1005 (S12E30 L= 70)   397    133        0 ( 515/ 947- 558/1077) -60.3 E32-E28 S15-S08
      5 1737  948 (N08W49 L=148)   358    109        0 (1702/ 923-1772/ 973)  -8.1 W45-W52 N07-N09
      6 1148  897 (S07W10 L=109)   290    101        0 (1126/ 854-1166/ 959) -63.4 W07-W10 S09-S03
      7 1317  904 (S03W20 L=119)   252     78        0 (1295/ 866-1336/ 943) -78.7 W18-W20 S05-N00
      8  826  672 (S27E05 L= 94)  1655    558        0 ( 603/ 537-1064/ 763)  42.7 E20-W08 S40-S16
      9 1327  633 (S18W28 L=127)   304     90        0 (1290/ 594-1375/ 657)  59.0 W25-W30 S21-S16
     10 1444  630 (S16W35 L=135)   341     59        0 (1419/ 601-1475/ 651)  76.0 W33-W37 S18-S14
     11 1498  578 (S18W41 L=141)   329     73        1 (1478/ 545-1518/ 606)  90.0 W39-W43 S20-S16
     12  886  553 (S33W01 L=101)   454    119        0 ( 843/ 514- 944/ 597)  63.4 E01-W04 S36-S28
     13 1577  471 (S23W53 L=152)   411     65        2 (1553/ 444-1599/ 495) -76.0 W50-W54 S24-S20
     14 1420  281 (S39W53 L=152)   970    163        0 (1358/ 262-1476/ 305)  10.3 W46-W57 S40-S37
  

    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