Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1451 1438 (N24W26 L= 53)  1044    251        2 (1346/1381-1565/1515) -21.8 W19-W34 N20-N28
      2  395 1483 (N22E47 L=340)   301     60        0 ( 381/1457- 410/1509) -53.1 E49-E45 N20-N24
      3 1244 1453 (N23W12 L= 39)   541    104        1 (1186/1413-1297/1477) -23.2 W08-W15 N20-N24
      4  331 1406 (N17E51 L=336)   353     66        0 ( 312/1369- 351/1437)  63.4 E51-E49 N15-N19
      5 1092 1395 (N18W03 L= 29)   197     64        0 (1064/1365-1110/1413) -33.7 W00-W03 N16-N19
      6 1279 1187 (N07W15 L= 41)   470    154        2 (1221/1144-1353/1253) -32.0 W10-W19 N04-N10
      7  618 1186 (N04E26 L=  1)   200     84        1 ( 577/1168- 660/1200)   0.0 E28-E23 N02-N04
      8  980 1118 (N01E03 L= 24)   303    117        0 ( 925/1076-1037/1149)  33.7 E06-W00 S01-N03
      9 1926 1105 (N07W69 L= 96)  1713    273        2 (1892/1066-1968/1149) -15.3 W63-W78 N05-N09
     10  441 1036 (S05E37 L=349)   755    137        1 ( 406/ 961- 476/1101)  63.4 E40-E34 S09-S01
     11 1893  982 (S01W65 L= 92)   715    155        4 (1858/ 935-1924/1018) -26.6 W60-W70 S03-N01
     12  812  939 (S10E13 L= 14)   422    238        0 ( 714/ 874- 915/ 983)  30.3 E18-E06 S14-S07
     13  301  862 (S16E49 L=337)   700    185        1 ( 248/ 815- 369/ 903)  24.4 E54-E43 S18-S13
     14 1824  726 (S16W61 L= 88)  5513    831       15 (1717/ 536-1945/ 896)  55.8 W49-W77 S29-S04
     15 1826  844 (S10W59 L= 85)   546     90        3 (1795/ 818-1854/ 869)  19.4 W55-W62 S10-S07
     16  986  615 (S30E01 L= 26)  2946    794        5 ( 694/ 455-1357/ 780)  27.1 E23-W22 S41-S17
     17  731  709 (S25E18 L=  9)   301     88        1 ( 696/ 681- 768/ 742)  10.2 E20-E15 S26-S22
     18 1709  707 (S19W50 L= 77)   297     49        1 (1684/ 683-1728/ 728) -56.3 W47-W51 S20-S17
     19  332  593 (S33E51 L=335)  2445    466       12 ( 244/ 514- 441/ 642)  -3.2 E59-E41 S37-S29
     20 1293  423 (S41W25 L= 52)   666     82        0 (1247/ 391-1330/ 468)  71.6 W21-W27 S43-S37
  

    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