Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1465 1667 (N28W54 L=238)   939    187        0 (1381/1646-1553/1692) -36.0 W48-W59 N23-N31
      2 1120 1662 (N40W30 L=214)   299     70        0 (1086/1643-1156/1680)  -8.1 W26-W33 N38-N40
      3 1644 1533 (N15W58 L=243)   417     53        0 (1613/1515-1679/1549) -36.9 W55-W61 N13-N16
      4 1209 1426 (N23W23 L=207)   537    120        3 (1137/1403-1258/1446) -20.6 W18-W26 N20-N25
      5  371 1185 (N31E40 L=145)   354    117        1 ( 348/1132- 390/1235)  63.4 E42-E38 N28-N34
      6  629 1067 (N18E22 L=162)   544    197        0 ( 553/1036- 733/1094) -14.0 E27-E15 N16-N19
      7 1858  984 (S21W57 L=241)   517     65        0 (1819/ 969-1895/ 997) -10.3 W51-W62 S23-S19
      8 1615  853 (S21W31 L=216)   538    177        0 (1584/ 772-1658/ 924)  41.2 W27-W35 S24-S17
      9  466  865 (N11E38 L=147)   242     68        0 ( 450/ 836- 491/ 900)  36.9 E39-E35 N09-N12
     10 1269  821 (S12W08 L=193)   563    169        2 (1226/ 741-1305/ 893) -90.0 W07-W09 S17-S06
     11  167  788 (N11E71 L=114)  2042    113        1 ( 137/ 736- 198/ 835) -50.2 E77-E66 N08-N14
     12  449  803 (N07E41 L=144)   384     60        2 ( 415/ 785- 485/ 824) -21.8 E43-E38 N06-N08
     13  592  336 (S24E53 L=132)  1174    187        1 ( 553/ 258- 631/ 427)  55.3 E58-E48 S30-S17
     14 1476  355 (S52W12 L=196)  1266    174        1 (1400/ 328-1562/ 393) -10.0 W04-W21 S54-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