Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1332 1824 (N50W60 L=167)  1228    130        2 (1270/1792-1384/1861)  -2.3 W49-W75 N49-N51
      2 1724 1377 (N13W57 L=164)  1038    223        0 (1626/1337-1807/1433) -28.1 W50-W66 N08-N17
      3  429 1329 (N34E39 L= 67)   261     86        0 ( 401/1292- 451/1364)  45.0 E41-E37 N32-N36
      4 1091 1269 (N20W09 L=115)   275    202        0 (1058/1192-1147/1344)  45.0 W05-W13 N15-N23
      5 1220 1291 (N19W17 L=124)   339    155        0 (1163/1247-1279/1313)   0.0 W12-W20 N17-N19
      6 1717 1230 (N05W50 L=157)   436    122        0 (1679/1175-1750/1276)  21.8 W45-W55 N02-N06
      7 1789 1193 (N01W56 L=163)   461    139        2 (1713/1164-1845/1208)  -3.8 W48-W63 N00-N02
      8  833 1120 (N15E10 L= 97)   486    204        0 ( 780/1055- 902/1198) -59.0 E12-E06 N10-N20
      9 1857 1020 (S11W60 L=167)  6679    386       15 (1773/ 840-1938/1162)  45.0 W49-W75 S22-S02
     10  909  869 (S01E09 L= 97)   209    109        0 ( 889/ 822- 937/ 912) -90.0 E10-E08 S03-N01
     11 1393  808 (S13W19 L=125)   544    126        1 (1369/ 763-1422/ 870) -76.0 W17-W20 S16-S08
     12  191  828 (N05E66 L= 40)   543     59        1 ( 169/ 798- 215/ 856)  31.0 E70-E62 N03-N06
     13 1285  795 (S12W12 L=118)   296     71        2 (1256/ 768-1313/ 832) -68.2 W10-W13 S13-S08
     14 1037  671 (S15E05 L=101)   717    193        4 ( 989/ 615-1078/ 731)  40.6 E09-E02 S18-S11
     15  485  685 (S06E41 L= 66)   264     60        0 ( 465/ 660- 510/ 715) -76.0 E42-E39 S07-S03
     16 1107  583 (S22E03 L=104)   476    138        1 (1085/ 517-1125/ 658)  66.0 E05-W00 S26-S16
     17  514  492 (S19E46 L= 61)   816    194        0 ( 478/ 409- 574/ 560) -90.0 E47-E43 S25-S13
     18  343  457 (S20E67 L= 40)   916    131        1 ( 328/ 400- 354/ 525)  32.0 E77-E60 S24-S14
     19 1231  464 (S33W03 L=110)   953    150        2 (1164/ 435-1303/ 501)   0.0 E01-W08 S34-S30
     20  789  420 (S28E28 L= 78)   712    123        1 ( 767/ 369- 817/ 468)  49.4 E31-E25 S31-S24
     21 1427  313 (S52W19 L=126)   860    100        4 (1378/ 289-1478/ 348)  -4.8 W13-W25 S54-S48
     22  479  319 (S32E64 L= 42)  1196     74        2 ( 433/ 303- 518/ 337)   3.4 E75-E58 S33-S29
  

    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