Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1487 1530 (N19W44 L=239)   352     82        1 (1442/1516-1534/1544) -38.7 W41-W46 N17-N21
      2 1576 1452 (N13W46 L=241)   667    167        1 (1516/1420-1633/1509)   4.8 W41-W53 N11-N14
      3 1822 1457 (N05W71 L=266)   563     77        1 (1799/1438-1846/1474) -23.2 W67-W74 N03-N06
      4  961 1364 (N25W06 L=201)   431    158        0 ( 901/1340-1042/1410) -53.1 W02-W09 N21-N29
      5 1364 1247 (N08W25 L=220)   754    162        4 (1324/1183-1430/1302)  45.0 W21-W29 N04-N11
      6 1869 1187 (S10W62 L=257)  1040    139        2 (1843/1131-1904/1253) -82.9 W59-W65 S14-S06
      7  789 1181 (N19E09 L=186)   244     46        2 ( 768/1155- 811/1208)  56.3 E10-E07 N17-N20
      8  603 1109 (N19E23 L=172)   691    261        1 ( 529/1018- 709/1169)  12.1 E28-E14 N15-N21
      9  355 1069 (N23E42 L=153)   437    142        0 ( 308/1005- 397/1118) -58.0 E45-E38 N18-N26
     10 1505 1064 (S06W28 L=223)   382    121        1 (1442/1042-1565/1089) -40.6 W24-W31 S08-S02
     11 1615  796 (S24W30 L=225)  3123    643        4 (1452/ 532-1727/1046)  40.6 W14-W43 S36-S12
     12  210  987 (N21E57 L=138)   401     76        2 ( 186/ 952- 231/1014) -63.4 E60-E55 N18-N22
     13  989  950 (N01E04 L=191)   710    165        4 ( 935/ 868-1026/1004) -82.9 E05-E02 S03-N05
     14 1218  908 (S07W08 L=203)   778    267        2 (1135/ 863-1304/ 973) -41.2 W03-W13 S09-S01
     15 1423  904 (S12W19 L=214)   287     77        2 (1394/ 873-1450/ 933)  26.6 W17-W21 S13-S11
     16  279  856 (N12E53 L=142)   713     94        3 ( 225/ 832- 327/ 888)  -5.2 E58-E47 N10-N14
     17  118  827 (N13E76 L=119)   837     66        0 ( 105/ 792- 134/ 864)  78.7 E78-E72 N10-N15
     18  882  770 (S06E14 L=181)   529    195        0 ( 857/ 699- 927/ 840)  54.5 E16-E10 S10-S02
     19 1169  754 (S14W01 L=196)   603    158        2 (1130/ 691-1230/ 789)  23.2 E02-W05 S16-S12
     20 1246  736 (S17W05 L=200)   263     55        1 (1225/ 708-1263/ 768) -90.0 W03-W06 S18-S14
     21  438  556 (S08E50 L=145)  5043    495       12 ( 346/ 365- 509/ 734)  38.9 E74-E43 S18-N03
     22 1054  641 (S17E08 L=187)   243     46        2 (1037/ 613-1074/ 672)  56.3 E09-E06 S19-S15
     23  617  543 (S12E37 L=158)   262     51        1 ( 589/ 516- 651/ 565) -45.0 E38-E34 S14-S10
     24  868  524 (S20E23 L=172)   209     31        1 ( 849/ 503- 887/ 550)  33.7 E24-E21 S20-S18
     25  691  373 (S25E41 L=154)  2881    481        5 ( 504/ 250- 898/ 458)   3.7 E70-E24 S29-S22
  

    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