Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1298 1693 (N35W43 L=148)  1362    242        2 (1200/1657-1420/1718) -28.1 W35-W51 N29-N38
      2  384 1407 (N45E38 L= 67)  1540    194        3 ( 301/1353- 476/1455) -23.5 E51-E28 N40-N51
      3 1847 1242 (S07W62 L=167)   464     58        3 (1831/1209-1866/1266)  71.6 W59-W66 S08-S05
      4 1546 1154 (S02W34 L=138)   446     98        1 (1523/1106-1566/1212)  78.7 W32-W35 S04-N01
      5 1816 1035 (S17W52 L=157)  1293    277        0 (1732/ 936-1888/1128)  13.4 W42-W63 S19-S14
      6  154 1064 (N28E66 L= 39)  1676    143        5 (  91/1005- 212/1105) -16.9 E82-E57 N23-N31
      7  130  846 (N15E75 L= 30)   815     72        2 (  98/ 825- 164/ 866) -12.1 E83-E68 N13-N16
      8 1599  668 (S32W27 L=132)  1381    307        0 (1553/ 554-1631/ 803)  72.6 W21-W29 S38-S22
      9  252  733 (N07E61 L= 44)   599     67        0 ( 224/ 707- 280/ 773)  29.7 E64-E56 N05-N09
     10  426  749 (N05E44 L= 61)   268     56        0 ( 394/ 737- 461/ 765) -31.0 E46-E41 N03-N06
     11  918  592 (S16E18 L= 87)   274     61        0 ( 904/ 556- 934/ 630)  53.1 E19-E16 S17-S13
     12  770  452 (S20E32 L= 73)   599    124        0 ( 718/ 408- 818/ 497)  11.3 E37-E27 S22-S18
     13 1356  409 (S42W03 L=107)   417     99        0 (1309/ 389-1407/ 428)  -7.1 E01-W07 S42-S40
  

    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