Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  769 1710 (N45E18 L=285)   484     51        1 ( 741/1683- 804/1730) -18.4 E20-E14 N42-N47
      2 1222 1626 (N36W18 L=320)  1211    344        1 (1057/1589-1369/1649) -10.3 W06-W29 N32-N38
      3 1614 1599 (N32W51 L=354)   499     91        0 (1567/1574-1659/1619) -20.6 W47-W55 N30-N33
      4  650 1539 (N32E25 L=278)   881    147        0 ( 570/1520- 725/1560)  -8.7 E31-E18 N30-N34
      5 1648 1478 (N24W49 L=351)   899    196        2 (1589/1432-1717/1531) -33.7 W44-W55 N20-N27
      6 1009 1458 (N25W01 L=303)  1474    414        3 ( 826/1339-1162/1517) -31.8 E11-W10 N16-N29
      7 1581 1350 (N15W39 L=341)  1405    410        3 (1443/1240-1739/1450) -35.0 W30-W50 N08-N22
      8 1281 1325 (N15W18 L=320)   906    333        4 (1209/1240-1378/1437) -71.6 W13-W23 N09-N22
      9 1799 1319 (N13W59 L=  1)   756    114        3 (1774/1261-1823/1375)  60.3 W56-W61 N09-N16
     10  568 1338 (N19E29 L=274)   233     60        1 ( 536/1310- 593/1371) -45.0 E31-E26 N17-N21
     11  247 1309 (N20E57 L=245)   510     71        2 ( 229/1270- 277/1345) -59.0 E60-E53 N17-N22
     12  301 1182 (N11E49 L=253)   796    106        3 ( 260/1149- 344/1216) -26.6 E53-E45 N09-N13
     13 1372  891 (S12W21 L=323)  1440    385        3 (1298/ 731-1469/1049)  64.7 W16-W27 S21-S02
     14 1625  801 (S18W40 L=342)   306     75        1 (1597/ 776-1643/ 833) -45.0 W37-W41 S19-S15
     15  965  736 (S20E05 L=297)   274    122        1 ( 943/ 680- 981/ 796)  74.1 E06-E03 S22-S15
     16  717  600 (S27E23 L=279)   374    122        2 ( 681/ 548- 748/ 666)  53.1 E26-E20 S30-S22
     17 1430  592 (S31W27 L=329)   380     72        0 (1401/ 562-1459/ 633)  53.1 W24-W28 S32-S28
     18 1294  496 (S37W18 L=320)   379     82        0 (1252/ 475-1336/ 517)  18.4 W14-W20 S38-S35
     19  980  444 (S39E07 L=295)   621    154        1 ( 916/ 422-1066/ 471) -10.3 E11-W00 S41-S37
     20  646  400 (S40E36 L=266)   584    108        0 ( 590/ 379- 696/ 417)   0.0 E40-E30 S41-S38
  

    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