Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1427 1786 (N46W63 L=235)   594     75        0 (1390/1767-1467/1803)  -4.8 W56-W70 N45-N47
      2  978 1669 (N49W11 L=183)  2009    415        2 ( 794/1630-1162/1705) -18.4 E06-W24 N42-N53
      3 1512 1634 (N34W53 L=226)  2066    282        4 (1395/1595-1645/1663) -19.2 W42-W65 N28-N36
      4 1329 1603 (N36W35 L=208)   285     76        1 (1300/1572-1365/1630)  15.9 W32-W39 N34-N37
      5  840 1529 (N41E04 L=168)   348     82        0 ( 799/1514- 882/1543) -18.4 E07-W00 N39-N42
      6 1006 1498 (N36W08 L=180)   241     49        1 ( 981/1477-1037/1514)  11.3 W05-W10 N34-N36
      7 1661 1419 (N18W53 L=225)   648    123        0 (1630/1369-1706/1467) -76.0 W51-W55 N13-N21
      8 1753 1396 (N14W61 L=234)   403     27        2 (1733/1379-1775/1417) -56.3 W59-W64 N12-N15
      9  934 1298 (N24E01 L=171)   669    368        1 ( 788/1273-1115/1336)  -7.8 E11-W11 N22-N26
     10 1219 1267 (N18W16 L=188)   321    157        0 (1147/1233-1281/1286) -26.6 W11-W19 N14-N19
     11  235 1107 (N20E58 L=114)   362     80        1 ( 226/1064- 249/1149)  90.0 E59-E56 N17-N23
     12  979 1084 (N11E02 L=170)  1001    474        1 ( 816/1025-1177/1145)  -2.6 E11-W11 N08-N14
     13  306 1071 (N18E50 L=122)   404     80        3 ( 279/1044- 342/1099)  -9.5 E52-E46 N16-N19
     14  499 1042 (N14E34 L=139)   230    110        0 ( 486/ 998- 519/1091) -90.0 E34-E32 N11-N17
     15 1775  959 (S11W51 L=223)  1203    163        3 (1740/ 886-1809/1052)  68.2 W46-W54 S15-S05
     16 1723  959 (S10W46 L=218)   605    138        1 (1683/ 916-1753/1016)  51.3 W42-W48 S12-S07
     17 1420  988 (S02W24 L=196)   315     45        2 (1393/ 967-1450/1007) -33.7 W21-W25 S03-N00
     18  958  902 (N00E06 L=166)   486    281        0 ( 839/ 885-1086/ 924)  -8.1 E13-W01 S01-N01
     19 1878  854 (S21W64 L=236)  1898    175        6 (1836/ 791-1915/ 911)  45.0 W57-W71 S24-S16
     20 1660  869 (S14W39 L=212)   382     98        3 (1621/ 833-1692/ 901) -38.7 W36-W42 S16-S12
     21 1210  831 (S08W08 L=180)   382    109        3 (1178/ 790-1252/ 854)  11.3 W05-W10 S10-S06
     22  996  743 (S10E06 L=166)   881    224        4 ( 948/ 696-1090/ 821) -45.0 E08-W00 S12-S04
     23 1747  746 (S24W48 L=220)  1386    135        3 (1699/ 685-1800/ 812)  49.4 W42-W53 S27-S20
     24  264  615 (S10E65 L=107)  4246    351       10 ( 200/ 490- 326/ 750)  86.6 E74-E59 S19-S01
     25  371  584 (S13E54 L=118)  2089    357        7 ( 280/ 450- 450/ 713) -77.5 E59-E47 S22-S04
     26 1115  653 (S18E00 L=172)   426    136        2 (1068/ 609-1140/ 706)  45.0 E03-W02 S20-S14
     27  911  661 (S14E13 L=159)   297    130        2 ( 862/ 638- 982/ 687) -23.2 E15-E08 S16-S11
     28  401  642 (S09E49 L=123)   375     57        2 ( 382/ 607- 424/ 674)  38.7 E51-E46 S11-S07
     29 1235  518 (S29W05 L=178)   611    133        1 (1192/ 477-1293/ 574)  32.0 W02-W10 S31-S26
     30  850  212 (S48E36 L=136)  1094    164        1 ( 802/ 149- 908/ 267)  23.7 E51-E26 S54-S42
  

    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