Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  885 1369 (N28E07 L=157)   267     69        0 ( 854/1347- 918/1386)   0.0 E08-E04 N26-N28
      2 1512 1280 (N16W35 L=199)   317     94        1 (1463/1268-1566/1293) -14.0 W31-W39 N15-N17
      3  675 1040 (N08E22 L=142)   443    123        1 ( 642/1008- 728/1081) -31.0 E24-E18 N06-N10
      4 1538 1040 (N01W33 L=197)   292     81        2 (1506/1002-1563/1073)  45.0 W30-W35 N00-N03
      5 1886 1009 (S05W67 L=231)  1279     77        1 (1846/ 979-1934/1036) -10.6 W61-W77 S06-S03
      6  930  882 (S03E07 L=157)   351    106        1 ( 881/ 842- 976/ 911) -38.7 E09-E04 S05-N00
      7 1760  824 (S15W52 L=216)   666    143        0 (1687/ 804-1818/ 846)  -4.1 W44-W58 S16-S13
      8 1363  652 (S21W20 L=184)  1256    330        3 (1234/ 550-1471/ 739)  27.9 W10-W27 S27-S16
      9  664  698 (S13E26 L=138)   454    137        0 ( 605/ 677- 714/ 725) -15.9 E29-E22 S14-S10
     10 1733  636 (S27W52 L=217)   790    136        0 (1689/ 576-1781/ 684)  40.6 W48-W57 S31-S24
     11 1189  458 (S34W07 L=171)   479     70        1 (1155/ 431-1224/ 489)  38.7 W04-W09 S35-S31
     12  576  327 (S40E48 L=116)   577     84        2 ( 561/ 280- 597/ 367)  38.7 E54-E43 S44-S36
     13 1041  268 (S49E07 L=157)   504     81        1 (1015/ 246-1076/ 306) -66.8 E09-E03 S51-S44
  

    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