Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1222 1762 (N56W05 L=167)   550     56        1 (1192/1738-1251/1788)  50.2 W01-W08 N52-N59
      2 1119 1712 (N49E04 L=157)   478    111        0 (1102/1657-1140/1759) -77.5 E06-E01 N44-N53
      3 1504 1712 (N56W40 L=202)   517     40        0 (1485/1686-1529/1731)  21.8 W35-W45 N53-N58
      4  338 1476 (N19E60 L=101)  2891    353       10 ( 258/1369- 420/1600)  80.0 E68-E53 N11-N28
      5  826 1534 (N30E22 L=140)   526    117        2 ( 801/1475- 844/1584) -49.4 E24-E18 N26-N33
      6 1537 1406 (N31W32 L=194)  1251    290        2 (1426/1324-1653/1474) -20.2 W23-W42 N27-N34
      7  375 1414 (N16E53 L=109)   665    117        2 ( 338/1368- 414/1451)  56.3 E55-E50 N12-N18
      8 1009 1305 (N18E05 L=157)   207     53        0 ( 988/1286-1032/1324) -18.4 E06-E03 N16-N18
      9  842  941 (S07E10 L=152)   351     60        0 ( 813/ 918- 875/ 964) -14.0 E11-E07 S08-S05
     10  171  901 (S18E66 L= 95)   738     75        1 ( 147/ 869- 198/ 935)  39.8 E71-E62 S20-S15
     11 1245  548 (S26W22 L=184)   388    138        0 (1184/ 517-1297/ 592)  49.4 W18-W24 S29-S22
     12 1703  498 (S24W65 L=227)   515     50        1 (1679/ 476-1722/ 525) -76.0 W62-W67 S25-S21
     13  403  455 (S47E51 L=111)  1171    125        1 ( 366/ 425- 462/ 497)   7.1 E57-E41 S49-S43
  

    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