Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1537 1655 (N25W56 L=198)   754    125        1 (1469/1630-1591/1677) -32.0 W51-W59 N22-N27
      2 1491 1620 (N24W50 L=191)   459     84        1 (1450/1589-1533/1643) -51.3 W46-W51 N21-N26
      3 1471 1524 (N20W42 L=184)   819    197        2 (1373/1494-1557/1562) -14.9 W34-W49 N17-N22
      4 1312 1388 (N17W26 L=168)   757    195        1 (1290/1297-1334/1487)  51.3 W23-W31 N11-N21
      5 1788 1099 (S12W51 L=192)  5825    753       12 (1678/ 802-1888/1370)  85.0 W40-W61 S29-N05
      6  777 1324 (N27E07 L=135)   406     80        2 ( 744/1292- 805/1364)  21.8 E09-E04 N25-N28
      7 1855 1226 (S07W62 L=203)  3391    296        9 (1806/1102-1925/1354) -90.0 W56-W71 S15-N00
      8  871 1181 (N16E05 L=137)   205     35        1 ( 842/1166- 893/1198)   0.0 E06-E03 N15-N17
      9  195 1064 (N25E58 L= 83)  1928    316        3 (  88/ 944- 291/1165) -28.2 E79-E49 N16-N32
     10  351 1065 (N22E42 L=100)  1006    210        0 ( 318/ 995- 410/1159) -70.0 E44-E38 N16-N27
     11 1229  924 (S06W09 L=150)  1615    433        3 (1153/ 729-1292/1065)  69.8 W00-W13 S16-N03
     12 1675  998 (S14W39 L=180)   323     75        0 (1651/ 957-1698/1026) -90.0 W36-W40 S16-S12
     13 1700  898 (S21W39 L=180)  1000    284        5 (1597/ 855-1796/ 943)  -9.5 W30-W48 S23-S17
     14 1669  750 (S29W34 L=176)   304    102        0 (1626/ 732-1709/ 781)  -7.1 W30-W38 S30-S26
     15  380  648 (S02E50 L= 91)  1394    336        5 ( 273/ 554- 509/ 763) -49.4 E56-E43 S10-N06
     16 1374  650 (S26W11 L=153)  1626    443        0 (1171/ 549-1545/ 750)   2.1 E03-W24 S27-S23
     17 1029  635 (S18E10 L=132)  1343    354        1 ( 894/ 541-1160/ 719)   8.5 E20-W00 S20-S15
     18  612  621 (S09E35 L=107)   332     60        0 ( 590/ 593- 637/ 652) -90.0 E36-E33 S10-S06
     19  294  564 (S06E63 L= 79)  1265    118        2 ( 251/ 501- 328/ 616)  66.8 E66-E59 S09-S02
     20  629  478 (S17E39 L=102)   270     53        0 ( 597/ 466- 662/ 491) -26.6 E41-E36 S18-S16
  

    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