Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1274 1641 (N33W37 L=146)  1112    304        3 (1152/1552-1364/1710) -75.1 W31-W40 N25-N40
      2 1552 1630 (N23W56 L=166)   427     83        2 (1520/1592-1580/1666)  71.6 W54-W58 N20-N26
      3  819 1632 (N47W05 L=115)   314     99        0 ( 777/1612- 861/1650)  -8.1 W01-W08 N45-N48
      4  792 1285 (N25E07 L=102)   338    125        1 ( 769/1234- 819/1349) -90.0 E08-E05 N21-N29
      5  441 1294 (N34E33 L= 77)   476    143        1 ( 396/1239- 494/1348) -48.4 E36-E28 N29-N38
      6  433 1162 (N26E35 L= 75)   313    107        2 ( 397/1126- 485/1190)  15.9 E37-E29 N24-N27
      7  243 1072 (N25E54 L= 56)   836    144        2 ( 211/1028- 292/1134)  63.4 E57-E48 N22-N28
      8  135 1014 (N23E69 L= 40)  1059    127        2 ( 109/ 976- 170/1081) -41.2 E74-E63 N20-N27
      9  957  775 (S08E10 L=100)   562    186        0 ( 918/ 692-1010/ 846)  37.9 E14-E05 S11-S04
     10 1110  512 (S27E09 L=101)   214     67        1 (1086/ 483-1137/ 537)  21.8 E11-E06 S28-S26
     11  989  465 (S27E18 L= 92)   491    100        1 ( 948/ 440-1050/ 495) -51.3 E20-E14 S29-S24
     12  752  403 (S25E36 L= 74)   376    113        0 ( 698/ 389- 813/ 415) -20.6 E39-E31 S26-S23
     13 1141  194 (S54E24 L= 85)   516     47        1 (1111/ 171-1169/ 213) -21.8 E28-E20 S55-S51
     14 1048  129 (S57E42 L= 68)   555     44        1 (1022/ 108-1067/ 151)  20.0 E47-E36 S60-S54
  

    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