Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1380 1760 (N46W33 L= 76)   496     47        0 (1355/1734-1407/1784)  29.7 W29-W36 N43-N48
      2 1441 1677 (N39W34 L= 77)   354     42        0 (1417/1659-1464/1695)  31.0 W31-W36 N37-N40
      3 1228 1576 (N31W15 L= 58)   776    204        4 (1130/1515-1309/1618) -26.6 W07-W19 N27-N34
      4 1739 1447 (N23W54 L= 97)   663     97        4 (1708/1403-1777/1483) -68.2 W51-W58 N20-N25
      5  347 1271 (N13E45 L=358)   848    155        2 ( 326/1201- 372/1353) -83.7 E47-E42 N08-N17
      6  211 1187 (N08E58 L=345)   951    192        3 ( 181/1101- 248/1280)  68.2 E60-E54 N03-N13
      7 1658 1128 (N03W41 L= 84)   276     81        1 (1645/1090-1679/1170)  53.1 W39-W42 N01-N05
      8  559 1078 (N00E29 L= 14)   865    231        3 ( 472/1033- 641/1111)   5.2 E34-E23 S02-N02
      9  864  904 (S10E10 L= 33)  1440    479        2 ( 817/ 672- 898/1094)  87.6 E13-E07 S24-N00
     10 1663 1002 (S04W41 L= 84)   268     57        2 (1640/ 973-1685/1024)  45.0 W39-W42 S05-S02
     11  507  895 (S10E33 L= 10)   930    237        3 ( 424/ 861- 607/ 927)   8.7 E38-E25 S12-S08
     12 1709  887 (S11W46 L= 89)   910    296        2 (1583/ 850-1827/ 926)   0.0 W35-W57 S13-S08
     13 1573  788 (S17W36 L= 79)   437    152        0 (1550/ 716-1596/ 846)  90.0 W34-W38 S21-S13
     14  317  689 (S22E52 L=351)  1574    313        2 ( 233/ 592- 385/ 815)  27.6 E66-E43 S27-S14
     15  452  735 (S20E39 L=  4)   591    165        1 ( 415/ 700- 511/ 808) -45.0 E41-E34 S21-S15
     16 1318  686 (S24W19 L= 62)   880    331        1 (1175/ 655-1451/ 755)   9.5 W09-W27 S25-S19
     17  765  587 (S30E18 L= 25)   723    181        2 ( 689/ 535- 833/ 630)  22.6 E24-E12 S33-S27
     18 1757  507 (S34W65 L=108)   988    118        1 (1713/ 479-1794/ 544)  -3.8 W57-W72 S35-S31
     19  446  412 (S41E53 L=350)  2675    278        4 ( 312/ 372- 570/ 467)   5.0 E83-E36 S43-S37
     20 1460  386 (S44W38 L= 81)  2192    314        4 (1323/ 320-1598/ 464)  25.5 W26-W49 S49-S37
     21  901  211 (S60E16 L= 27)   389     60        1 ( 878/ 183- 926/ 231)  20.6 E19-E11 S63-S57
  

    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