Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1362 1629 (N36W25 L=142)   937    235        2 (1248/1600-1469/1653)   6.3 W15-W33 N34-N37
      2 1534 1596 (N34W38 L=155)   322     54        1 (1515/1576-1558/1615)  21.8 W35-W40 N32-N35
      3 1603 1582 (N34W44 L=161)   329     50        0 (1577/1565-1630/1596)  11.3 W41-W46 N32-N34
      4  392 1531 (N29E48 L= 69)   582    217        0 ( 345/1480- 435/1572) -28.6 E53-E42 N25-N32
      5  984 1491 (N25E03 L=114)   541    120        1 ( 957/1436-1013/1546)  90.0 E05-E01 N21-N29
      6  449 1406 (N20E40 L= 77)   269     87        0 ( 440/1364- 464/1451) -71.6 E41-E38 N17-N23
      7  239 1408 (N21E60 L= 57)   549     60        0 ( 220/1384- 258/1431) -36.9 E62-E57 N19-N22
      8 1199 1234 (N09W10 L=127)   375    109        1 (1167/1195-1235/1299) -63.4 W08-W12 N06-N13
      9  543 1135 (N03E30 L= 87)  1179    235        0 ( 498/1013- 602/1241)  65.2 E33-E26 S04-N09
     10  131 1134 (N04E69 L= 47)  2776    345        4 (  86/1081- 165/1209)  45.0 E79-E64 N01-N08
     11  725  916 (S10E18 L= 98)  1529    579        2 ( 648/ 656- 818/1169) -76.9 E23-E12 S26-N04
     12  975 1086 (N00E03 L=114)   190     55        0 ( 949/1065- 990/1115)  45.0 E04-E02 S01-N01
     13  817 1072 (S01E12 L=104)   233     60        1 ( 791/1037- 837/1104) -56.3 E14-E11 S02-N01
     14  782 1029 (S04E15 L=102)   295     73        0 ( 743/1012- 815/1054)  21.8 E17-E12 S04-S01
     15 1897  927 (S06W66 L=183)  1136    184        1 (1867/ 853-1943/ 984)  38.7 W62-W73 S10-S02
     16  914  912 (S10E07 L=110)   546    148        0 ( 838/ 873-1002/ 949)  21.8 E11-E01 S12-S08
     17 1912  826 (S12W70 L=187)  2550    344        4 (1880/ 755-1948/ 897) -69.4 W65-W76 S16-S08
     18  663  860 (S14E23 L= 94)   576    138        3 ( 611/ 824- 720/ 893) -15.9 E25-E18 S15-S11
     19  409  831 (S15E41 L= 76)   525    186        3 ( 351/ 808- 499/ 851)   4.8 E45-E33 S16-S13
     20  946  775 (S19E05 L=112)   450    169        0 ( 870/ 748-1009/ 818)  18.4 E09-W00 S20-S16
     21 1832  753 (S17W61 L=177)   442     65        1 (1812/ 725-1854/ 778)  45.0 W58-W63 S19-S15
     22 1716  718 (S20W50 L=166)   345     87        0 (1690/ 681-1739/ 765)  68.2 W47-W51 S22-S17
     23  300  726 (S21E52 L= 65)   682    159        1 ( 263/ 681- 357/ 761)  16.7 E56-E46 S23-S19
     24  994  663 (S26E02 L=115)   601    282        1 ( 860/ 627-1141/ 699)  12.5 E10-W08 S28-S23
     25  299  607 (S29E55 L= 61)   815    142        2 ( 271/ 546- 327/ 672)  76.0 E57-E53 S32-S24
     26 1544  636 (S26W37 L=154)   238     28        0 (1522/ 619-1563/ 657)  71.6 W35-W38 S27-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