Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1343 1598 (N39W31 L=301)   873    188        0 (1275/1545-1421/1638)  17.4 W24-W40 N35-N41
      2  945 1572 (N41E01 L=269)   549    157        1 ( 864/1549-1026/1588) -15.3 E07-W04 N38-N42
      3  939 1368 (N27E03 L=267)   229     63        1 ( 903/1350- 970/1382)   0.0 E05-W00 N25-N27
      4 1093 1275 (N20W06 L=276)   273     62        0 (1055/1257-1123/1295) -11.3 W03-W08 N18-N21
      5 1607 1203 (N11W40 L=310)   879    231        1 (1521/1120-1669/1256) -41.6 W34-W44 N05-N14
      6  546 1022 (N07E31 L=239)  1026    363        1 ( 435/ 873- 659/1134) -45.0 E38-E23 S01-N14
      7  960 1087 (N09E03 L=267)   284     78        0 ( 948/1041- 981/1122)  68.2 E04-E02 N06-N11
      8  316  674 (S14E54 L=216)  1769    339        4 ( 256/ 601- 375/ 766)  79.7 E60-E49 S18-S07
      9 1768  640 (S27W56 L=326)   896    126        1 (1711/ 597-1823/ 681)  14.0 W50-W62 S29-S24
     10 1454  656 (S22W26 L=296)   226     68        0 (1419/ 638-1489/ 674) -21.8 W23-W28 S23-S19
     11  741  605 (S19E22 L=248)   314     64        1 ( 723/ 572- 770/ 640)  78.7 E22-E19 S21-S16
     12 1109  566 (S24W02 L=272)   401    156        0 (1062/ 524-1179/ 596)  26.6 E01-W07 S27-S22
     13 1626  514 (S34W44 L=314)   647     80        2 (1597/ 482-1662/ 543)  53.1 W40-W47 S36-S31
     14 1609  428 (S41W46 L=316)   964     95        1 (1564/ 400-1655/ 453) -18.4 W39-W54 S43-S38
     15 1495  372 (S44W36 L=306)  2780    312        5 (1350/ 344-1624/ 412)  -5.2 W21-W55 S48-S39
     16 1213  322 (S45W09 L=279)   427     52        1 (1184/ 302-1246/ 349)  18.4 W06-W12 S46-S42
     17 1062  290 (S46E04 L=266)   686     74        1 (1020/ 267-1103/ 320) -15.9 E07-W00 S48-S43
     18  962  274 (S47E13 L=257)   589     84        0 ( 928/ 253- 994/ 307)  33.7 E16-E09 S48-S43
     19  787  218 (S51E34 L=236)   767     88        2 ( 752/ 196- 832/ 246)  14.0 E40-E27 S53-S48
  

    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