Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1365 1565 (N37W05 L= 82)  2439    533        2 (1283/1340-1478/1780) -50.6 E06-W18 N25-N53
      2  364 1638 (N14E69 L=  7)  3356    144        4 ( 313/1579- 425/1700) -45.0 E81-E60 N10-N19
      3  717 1523 (N15E32 L= 44)   427    122        0 ( 675/1486- 748/1549)   0.0 E34-E29 N12-N16
      4 1167 1491 (N25E05 L= 71)   421    141        0 (1108/1445-1219/1530) -12.5 E09-W00 N23-N26
      5  455 1441 (N04E47 L= 29)   329     49        0 ( 424/1426- 487/1455)  21.8 E49-E44 N02-N05
      6 1610 1299 (N27W29 L=105)   292     55        0 (1586/1274-1640/1328) -21.8 W26-W31 N26-N28
      7  396 1268 (S07E45 L= 31)   510    124        1 ( 371/1206- 411/1318) -74.1 E48-E42 S10-S03
      8 1703 1225 (N26W38 L=114)   894    205        0 (1639/1171-1740/1306)  74.7 W32-W40 N21-N32
      9  257 1177 (S15E55 L= 21)   323     36        2 ( 231/1158- 279/1199)  11.3 E58-E53 S15-S13
     10  947 1099 (S03E06 L= 70)   239     30        1 ( 926/1075- 966/1125) -45.0 E07-E04 S04-S01
     11  105 1040 (S25E76 L=360)  1206     75        2 (  76/1007- 140/1064)   5.4 E89-E68 S27-S23
     12  500  983 (S21E31 L= 46)   278     76        0 ( 460/ 956- 528/1008) -11.3 E33-E28 S21-S19
     13  923  954 (S12E04 L= 73)   487    141        1 ( 854/ 912- 968/1004)  60.3 E06-E01 S15-S07
     14 1582  783 (S03W40 L=116)  1510    317        3 (1545/ 634-1613/ 915) -51.8 W35-W46 S10-N04
     15 1784  790 (N04W56 L=132)  1681    221        3 (1742/ 689-1832/ 884) -59.0 W51-W61 S01-N09
  

    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