Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1437 1601 (N25W44 L=199)   304     85        1 (1388/1583-1472/1618) -51.3 W41-W46 N22-N27
      2 1839 1469 (N06W75 L=229)   715     51        1 (1819/1437-1856/1494)   4.8 W70-W83 N04-N06
      3 1317 1445 (N20W29 L=183)   828    238        1 (1218/1397-1412/1493)  -7.6 W21-W36 N17-N22
      4 1142 1344 (N19W15 L=169)   426    145        0 (1114/1273-1181/1407)  40.6 W12-W19 N15-N21
      5 1596 1228 (N01W39 L=193)   838    165        3 (1543/1158-1632/1295) -82.9 W36-W40 S03-N05
      6  327 1223 (N32E43 L=111)   354     56        2 ( 301/1205- 357/1249) -18.4 E45-E39 N30-N33
      7 1710 1172 (S06W46 L=200)   428    111        0 (1686/1129-1752/1221) -74.1 W44-W48 S09-S02
      8  405 1088 (N22E37 L=117)   797    160        2 ( 350/1014- 434/1152) -68.2 E41-E34 N17-N27
      9 1852 1053 (S17W56 L=211)  1265    213        5 (1800/ 973-1892/1136)  35.0 W49-W62 S20-S12
     10  230  999 (N21E55 L=100)  1131    173        1 ( 203/ 939- 281/1079) -60.9 E57-E50 N16-N25
     11 1723  983 (S16W42 L=196)  1277    288        3 (1646/ 875-1775/1048) -72.9 W37-W47 S23-S10
     12 1659  903 (S19W35 L=190)   752    208        3 (1615/ 827-1706/1011) -81.3 W33-W38 S24-S11
     13 1020  907 (S02E03 L=151)  1042    283        0 ( 916/ 803-1087/ 996) -72.9 E06-W00 S08-N05
     14 1565  917 (S16W29 L=183)   862    196        3 (1523/ 855-1627/ 980)   6.3 W24-W33 S17-S11
     15 1850  720 (S37W55 L=210)   960     95        1 (1810/ 683-1878/ 763)  14.0 W49-W59 S39-S34
     16 1002  674 (S14E10 L=144)   339    115        0 ( 973/ 626-1025/ 731)  45.0 E12-E07 S16-S11
     17 1511  678 (S28W21 L=175)   261     61        0 (1476/ 664-1549/ 694) -31.0 W18-W23 S29-S26
     18  297  582 (S04E62 L= 93)  1698    280        3 ( 203/ 498- 393/ 688) -49.8 E67-E55 S10-N03
     19 1234  594 (S25W01 L=155)  1361    360        0 (1079/ 522-1392/ 681)   2.6 E10-W12 S27-S23
     20  498  537 (S11E46 L=108)  1200    317        5 ( 420/ 448- 590/ 656) -82.4 E49-E40 S17-S02
     21  811  535 (S18E26 L=129)  1320    293        1 ( 702/ 442- 932/ 595)   9.0 E35-E16 S21-S15
     22  923  418 (S28E24 L=131)   326     89        1 ( 882/ 389- 967/ 447)   7.1 E27-E19 S29-S26
     23  572  304 (S27E55 L= 99)   375     74        0 ( 553/ 275- 587/ 347)  26.6 E59-E51 S28-S24
  

    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