Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1479 1521 (N24W44 L=106)   614    140        1 (1424/1465-1526/1558) -69.4 W41-W45 N19-N27
      2 1112 1480 (N31W18 L= 80)   469     37        1 (1081/1451-1143/1506) -63.4 W15-W19 N29-N33
      3 1482 1351 (N14W36 L= 98)   409    139        0 (1465/1285-1502/1413)  45.0 W33-W40 N10-N17
      4 1680 1312 (N07W49 L=111)  1440    196        4 (1608/1253-1765/1376) -32.5 W44-W57 N02-N11
      5  402 1321 (N37E39 L= 23)   297     32        1 ( 378/1302- 427/1342) -21.8 E41-E36 N35-N39
      6 1570 1309 (N10W41 L=103)   279     71        0 (1557/1271-1581/1342)  45.0 W38-W42 N07-N11
      7 1504 1085 (S01W30 L= 92)   636    205        0 (1489/ 995-1529/1190)  79.7 W27-W32 S06-N05
      8  944 1089 (N13E03 L= 59)   954    412        0 ( 877/ 994-1024/1169)  66.0 E07-W00 N07-N16
      9 1909 1052 (S15W66 L=128)  4471    162        5 (1875/ 939-1942/1154) -90.0 W59-W74 S22-S08
     10  186 1116 (N27E63 L=359)   403     78        2 ( 167/1072- 206/1149) -45.0 E66-E60 N24-N29
     11 1851  963 (S18W56 L=118)  1569    239        3 (1825/ 869-1882/1081) -85.9 W53-W60 S24-S10
     12  464 1017 (N18E36 L= 27)  1640    417        2 ( 305/ 959- 629/1065) -24.6 E48-E24 N11-N22
     13 1794  911 (S19W49 L=111)  1123    147        2 (1755/ 859-1831/ 969) -60.9 W45-W53 S23-S14
     14 1328  762 (S15W12 L= 74)   605    155        0 (1279/ 696-1366/ 832)  36.9 W07-W15 S17-S11
     15  247  742 (N04E61 L=  1)   640    113        2 ( 234/ 692- 266/ 800)  50.2 E64-E58 N01-N07
     16 1111  634 (S17E04 L= 58)   455    137        0 (1064/ 607-1177/ 678) -50.2 E05-W00 S19-S13
     17 1581  518 (S39W27 L= 89)  5927    796        5 (1206/ 311-1837/ 678)   4.6 E06-W57 S44-S33
     18  546  543 (S12E42 L= 20)   484     77        1 ( 511/ 516- 588/ 575) -45.0 E43-E38 S13-S09
     19 1433  221 (S64W13 L= 75)   631     63        1 (1415/ 200-1460/ 254) -53.1 W10-W20 S70-S58
     20 1381  207 (S63W05 L= 67)   710     60        0 (1364/ 179-1401/ 246) -77.0 W03-W08 S69-S56
  

    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