Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1352 1711 (N35W45 L=153)  1822    332        4 (1210/1635-1478/1793)   1.6 W30-W65 N32-N37
      2 1562 1720 (N30W65 L=173)   662    117        0 (1508/1695-1610/1737) -50.2 W60-W71 N26-N32
      3 1868 1197 (S07W63 L=171)  2666    184        6 (1819/1122-1918/1261)  58.0 W58-W71 S12-S03
      4  188  997 (N19E61 L= 47)  2783    386        6 ( 116/ 835- 236/1154) -73.3 E72-E55 N08-N28
      5 1599 1067 (S08W35 L=143)   237     81        2 (1576/1030-1615/1106) -90.0 W34-W36 S10-S05
      6  380  995 (N15E41 L= 66)   308     90        0 ( 365/ 957- 404/1042)  78.7 E42-E39 N12-N17
      7 1706  830 (S24W40 L=148)  1063    317        0 (1612/ 707-1772/ 960)  34.5 W31-W47 S29-S18
      8  169  814 (N08E67 L= 40)  1034    121        3 ( 130/ 777- 227/ 842) -18.4 E73-E59 N05-N09
      9  661  760 (S04E27 L= 81)   431    116        3 ( 635/ 717- 700/ 805)  68.2 E28-E24 S06-S01
     10 1400  572 (S33W13 L=121)   968    237        0 (1358/ 475-1428/ 698)  58.4 W08-W17 S38-S25
     11  358  514 (S13E60 L= 48)   468     55        0 ( 336/ 486- 382/ 535)  18.4 E63-E56 S14-S11
     12 1266  382 (S43E01 L=107)   420     56        1 (1243/ 354-1291/ 413)  26.6 E03-W01 S44-S40
     13 1151  355 (S41E10 L= 98)   297     51        0 (1123/ 339-1181/ 370) -53.1 E12-E08 S43-S39
     14 1067  294 (S44E19 L= 89)   557    149        0 (1013/ 246-1117/ 343)  19.7 E26-E12 S46-S41
  

    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