Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1371 1648 (N31W44 L=249)   687    209        1 (1296/1622-1456/1668) -22.6 W38-W50 N28-N33
      2 1733 1562 (N13W69 L=274)  1679    352        1 (1707/1505-1772/1602)   7.6 W64-W79 N10-N15
      3 1582 1525 (N17W52 L=256)   649    125        3 (1528/1475-1639/1574) -71.6 W49-W53 N12-N21
      4 1721 1427 (N07W58 L=263)   383     91        1 (1696/1406-1741/1454)   0.0 W55-W62 N06-N08
      5  924 1363 (N28W04 L=209)   417    136        0 ( 863/1344- 997/1380) -29.7 W00-W07 N25-N30
      6 1405 1339 (N13W31 L=236)  2119    492        3 (1202/1298-1621/1367) -24.0 W18-W45 N05-N18
      7  582 1159 (N25E23 L=181)   708    181        1 ( 548/1066- 610/1245) -90.0 E24-E21 N19-N31
      8 1836 1148 (S11W57 L=262)  1136    224        4 (1795/1056-1862/1211)  71.6 W54-W61 S16-S06
      9 1790 1139 (S10W52 L=257)   393     62        2 (1769/1119-1819/1166) -53.1 W50-W54 S11-S07
     10 1788 1069 (S13W50 L=255)   499    129        1 (1759/1021-1823/1114) -69.4 W48-W52 S17-S09
     11  964 1040 (N09E03 L=202)   273     95        0 ( 947/ 988- 981/1093)  51.3 E04-W00 N06-N11
     12 1630 1044 (S09W36 L=241)   416    108        2 (1587/1010-1662/1067) -59.0 W33-W38 S12-S07
     13 1749  996 (S16W44 L=249)   586    142        4 (1715/ 922-1777/1063)  77.5 W42-W46 S20-S11
     14 1014  930 (N02E03 L=202)   602    166        1 ( 945/ 903-1093/ 981) -54.5 E06-W01 S01-N06
     15  222  927 (N19E57 L=147)   432     76        0 ( 207/ 888- 240/ 964) -78.7 E58-E55 N16-N21
     16 1276  865 (S09W10 L=215)   245     41        0 (1259/ 841-1296/ 897)  33.7 W08-W11 S10-S07
     17 1392  685 (S23W12 L=217)  1808    383        3 (1325/ 516-1436/ 845)  74.1 W06-W14 S33-S11
     18  287  656 (N02E61 L=144)   452     82        1 ( 274/ 620- 303/ 694)  53.1 E63-E57 N00-N04
     19  381  608 (S02E53 L=151)   386     75        0 ( 363/ 572- 400/ 641)  31.0 E56-E50 S04-N00
     20  395  464 (S11E60 L=145)  2171    341        7 ( 314/ 373- 488/ 546) -66.8 E66-E55 S18-S04
     21 1212  479 (S30E05 L=200)   276    114        0 (1178/ 456-1259/ 518) -66.8 E05-E02 S33-S26
     22  573  444 (S16E46 L=159)   666    240        1 ( 549/ 359- 604/ 513)  54.0 E52-E40 S21-S10
     23  819  303 (S31E37 L=168)  1374    300        2 ( 729/ 254- 875/ 400)  19.4 E45-E28 S34-S25
  

    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