Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  368 1640 (N34E71 L=306)   781     54        3 ( 350/1609- 389/1671) -17.1 E79-E66 N31-N35
      2  576 1593 (N33E42 L=335)  1873    391        6 ( 440/1446- 672/1662) -17.9 E59-E28 N23-N37
      3  470 1457 (N23E45 L=332)   458    172        0 ( 426/1390- 501/1536)  84.8 E46-E43 N17-N28
      4  396 1487 (N24E53 L=324)   388     52        0 ( 380/1458- 409/1516) -53.1 E55-E51 N21-N25
      5 1032 1429 (N27E04 L= 13)   310     96        0 ( 990/1391-1074/1454)  38.7 E06-W00 N23-N28
      6  884 1338 (N19E12 L=  5)   467    196        0 ( 795/1285- 955/1370) -14.0 E18-E06 N16-N20
      7 1615 1089 (N10W38 L= 55)   487    141        2 (1591/1019-1640/1147) -60.3 W36-W40 N06-N13
      8  891 1071 (N03E08 L=  8)   286     56        1 ( 863/1045- 926/1098)  33.7 E09-E06 N01-N04
      9 1226 1031 (N04W12 L= 29)   537    178        0 (1155/ 998-1300/1057)  14.0 W08-W16 N01-N05
     10  748 1034 (S01E17 L=360)   211     72        1 ( 708/1017- 786/1054)   0.0 E19-E14 S01-N00
     11  147  930 (S13E69 L=308)  1129    123        3 ( 119/ 866- 173/ 983)  82.9 E74-E64 S17-S09
     12 1589  742 (S11W40 L= 57)  2354    557        5 (1415/ 611-1725/ 964)  52.0 W30-W48 S20-N03
     13  501  810 (S17E33 L=344)   367    123        0 ( 443/ 786- 560/ 840)  24.0 E37-E28 S18-S14
     14  306  651 (S30E53 L=324)   770     96        3 ( 267/ 606- 352/ 683)  24.8 E60-E47 S33-S26
  

    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