Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1135 1731 (N46W35 L=158)   308     63        1 (1119/1689-1150/1760)  29.7 W30-W37 N43-N47
      2 1377 1570 (N28W40 L=163)  1014    220        1 (1287/1505-1472/1616)   0.0 W30-W49 N26-N29
      3 1486 1417 (N17W39 L=162)   521    177        1 (1415/1381-1558/1461)  -4.4 W33-W46 N15-N17
      4 1064 1350 (N25W11 L=134)   723    156        2 (1005/1304-1140/1379)   0.0 W06-W15 N22-N26
      5 1781 1035 (S13W49 L=172)  5620    764       14 (1585/ 815-1893/1284)  22.3 W29-W68 S21-S02
      6  769 1232 (N25E10 L=112)   203     46        1 ( 744/1210- 801/1252)   0.0 E12-E08 N23-N26
      7 1034 1168 (N15W04 L=127)   186     96        0 (1000/1125-1056/1204) -78.7 W03-W04 N12-N17
      8  926 1091 (N13E04 L=119)   183     19        1 ( 904/1071- 946/1110)   0.0 E05-E02 N12-N14
      9  844 1030 (N12E10 L=113)   185     60        0 ( 811/1016- 867/1050) -18.4 E11-E08 N10-N12
     10  549  969 (N15E30 L= 93)   421     69        1 ( 511/ 950- 591/1001) -31.0 E32-E27 N12-N16
     11  765  907 (N06E18 L=105)   235     73        1 ( 745/ 866- 780/ 943)  63.4 E18-E16 N04-N08
     12 1807  742 (S32W49 L=172)   744    153        0 (1746/ 707-1848/ 805)   9.5 W42-W54 S33-S29
     13  824  755 (S03E18 L=105)   465    165        0 ( 762/ 701- 897/ 795) -53.1 E20-E14 S08-N00
     14 1507  683 (S25W21 L=144)   657    127        2 (1475/ 643-1546/ 732) -81.9 W19-W24 S28-S21
     15 1496  539 (S35W18 L=141)  1841    407        2 (1364/ 421-1600/ 716)  32.5 W06-W28 S39-S25
     16 1161  557 (S23E04 L=119)   421    162        0 (1098/ 512-1212/ 619)  26.6 E08-W00 S25-S20
     17 1679  506 (S45W37 L=159)   413     44        1 (1656/ 483-1704/ 526)  26.6 W33-W39 S47-S42
     18 1642  460 (S47W33 L=156)   517     54        0 (1613/ 440-1665/ 479) -29.7 W29-W36 S50-S44
     19  978  422 (S28E19 L=103)   410    129        0 ( 944/ 395-1032/ 472) -63.4 E20-E16 S30-S23
     20  425  398 (S18E62 L= 61)   510     50        0 ( 409/ 367- 441/ 429)  51.3 E64-E59 S20-S15
  

    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