Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  793 1585 (N47E00 L=162)   357    103        0 ( 751/1551- 832/1622)  20.6 E04-W04 N45-N48
      2  889 1344 (N29E00 L=161)   894    258        3 ( 769/1273- 983/1396)   7.1 E09-W07 N26-N29
      3 1053 1194 (N16W06 L=167)   626    339        1 ( 910/1145-1202/1229) -13.2 E03-W14 N12-N17
      4 1767 1096 (S09W49 L=211)  1178    229        1 (1694/1026-1815/1180)  18.4 W41-W56 S10-S04
      5  523 1133 (N24E29 L=133)   659    154        0 ( 454/1093- 585/1176)   5.7 E34-E24 N22-N25
      6 1671 1078 (S07W41 L=203)   718    168        1 (1648/1012-1698/1161)  71.6 W38-W43 S10-S01
      7  288 1081 (N25E50 L=112)   322     75        0 ( 257/1052- 324/1110)  15.9 E53-E46 N23-N26
      8 1729  908 (S18W42 L=204)  2305    599        3 (1558/ 707-1881/1107)  22.4 W25-W61 S25-S11
      9  257  998 (N21E54 L=107)   812    203        1 ( 225/ 920- 298/1073) -68.2 E57-E50 N15-N25
     10 1386  893 (S09W18 L=179)   278     91        1 (1352/ 863-1429/ 916) -21.8 W15-W20 S10-S07
     11  145  882 (N15E71 L= 90)   598     40        1 ( 120/ 865- 169/ 900)  -6.3 E76-E67 N13-N15
     12 1316  810 (S12W12 L=173)   342     70        0 (1284/ 777-1346/ 834) -56.3 W09-W13 S13-S10
     13 1163  805 (S08W03 L=164)   240     42        2 (1138/ 785-1189/ 822)  18.4 W01-W04 S09-S07
     14 1235  776 (S12W06 L=168)   304     35        1 (1211/ 754-1258/ 804)  33.7 W04-W07 S13-S10
     15 1296  742 (S15W09 L=171)   202     85        0 (1252/ 727-1334/ 763) -11.3 W06-W11 S16-S14
     16  405  526 (S10E55 L=107)  2739    494        4 ( 269/ 388- 508/ 744) -85.2 E61-E48 S19-N05
     17 1197  672 (S17W02 L=163)  1055    367        1 (1060/ 615-1375/ 710)  -8.5 E07-W13 S20-S14
     18 1358  530 (S31W08 L=170)   697    287        0 (1266/ 453-1474/ 624)  18.4 W00-W18 S33-S27
     19  576  498 (S14E42 L=120)   327     44        0 ( 555/ 473- 595/ 528)  36.9 E43-E39 S15-S12
     20  957  454 (S25E19 L=143)   551    175        0 ( 886/ 415-1008/ 480) -39.8 E24-E16 S28-S23
     21  828  437 (S23E28 L=134)   342     62        0 ( 808/ 406- 851/ 470)  78.7 E29-E26 S25-S20
     22  653  373 (S24E43 L=119)  1055    255        2 ( 616/ 269- 711/ 467)  34.4 E53-E33 S31-S18
     23  929  358 (S31E25 L=137)   275     80        1 ( 878/ 339- 965/ 375)  -8.1 E28-E21 S32-S30
     24  989  321 (S35E23 L=139)   597    137        1 ( 943/ 264-1033/ 372)  26.6 E29-E17 S39-S32
     25 1395  332 (S48W07 L=169)   352     73        1 (1371/ 298-1425/ 357)  33.7 W04-W10 S50-S46
     26 1255  311 (S45E05 L=157)   468     74        0 (1210/ 291-1294/ 332)  -7.1 E09-E01 S46-S43
     27  561  294 (S28E58 L=104)   539    117        0 ( 522/ 275- 619/ 326) -33.7 E60-E51 S30-S25
     28  915  148 (S49E45 L=117)   529     50        2 ( 893/ 125- 934/ 170)  50.2 E49-E40 S52-S46
  

    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