Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  774 1717 (N33E40 L=269)   980    140        1 ( 718/1667- 829/1766) -14.9 E48-E32 N30-N35
      2  551 1627 (N21E50 L=258)  1081    164        1 ( 511/1559- 576/1699) -29.7 E59-E45 N17-N25
      3 1380 1640 (N46W08 L=316)   709    124        0 (1333/1601-1434/1666)  -5.7 W03-W13 N43-N47
      4  434 1561 (N15E56 L=252)   687     94        2 ( 405/1532- 473/1607) -29.7 E61-E52 N12-N17
      5  606 1552 (N18E42 L=267)   505    114        1 ( 567/1505- 640/1598)  90.0 E42-E40 N14-N21
      6  747 1500 (N18E30 L=279)   228     56        0 ( 711/1483- 773/1515)   0.0 E32-E27 N17-N18
      7 1752 1212 (N27W46 L=354)   806     84        1 (1724/1171-1774/1259) -51.3 W43-W48 N24-N29
      8 1289 1188 (N13W11 L=320)   275     77        1 (1267/1153-1314/1231) -36.9 W09-W13 N10-N14
      9 1847 1156 (N26W58 L=  6)   867    142        0 (1807/1097-1887/1213) -20.0 W52-W64 N23-N28
     10  535 1085 (S11E31 L=277)   456    108        1 ( 491/1062- 594/1110)  14.0 E34-E26 S12-S09
     11  419  764 (S33E36 L=273)   410    105        0 ( 379/ 723- 445/ 806)  49.4 E39-E33 S36-S29
     12 1261  596 (S22W26 L=335)   323    116        0 (1246/ 547-1283/ 652) -50.2 W23-W29 S24-S18
     13  615  547 (S43E16 L=292)  1402    248        3 ( 530/ 491- 749/ 588)  24.0 E24-E05 S48-S37
  

    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