Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1508 1677 (N35W46 L=180)   388     60        0 (1489/1656-1531/1699)  21.8 W43-W48 N33-N36
      2 1196 1662 (N38W21 L=155)   325     61        0 (1164/1642-1233/1678)   0.0 W18-W24 N36-N38
      3  484 1507 (N35E34 L= 99)  3189    717        6 ( 289/1424- 697/1595) -23.0 E57-E17 N27-N45
      4  216 1217 (N19E56 L= 78)   372     97        2 ( 199/1173- 227/1257) -80.5 E57-E54 N16-N22
      5  262 1149 (N15E51 L= 82)  1272    279        4 ( 232/1019- 318/1245)  81.9 E54-E45 N06-N20
      6  859 1171 (N09E08 L=125)   259     81        2 ( 827/1128- 906/1197) -45.0 E10-E05 N06-N11
      7  389 1173 (N15E40 L= 94)   361    101        2 ( 350/1138- 430/1196)   8.1 E43-E36 N12-N16
      8 1066 1072 (N01W03 L=136)   264     85        1 (1040/1025-1089/1118)  45.0 W00-W04 S01-N04
      9 1807  897 (S16W53 L=187)  1331    316        2 (1723/ 812-1882/ 982)  25.2 W45-W62 S20-S11
     10  918  783 (S14E09 L=125)   216    119        0 ( 879/ 737- 980/ 812)  23.2 E11-E04 S16-S12
     11 1451  715 (S24W25 L=158)   295     99        0 (1395/ 692-1497/ 740)   8.1 W20-W27 S25-S22
     12 1775  573 (S37W55 L=188)   578     76        1 (1756/ 535-1791/ 613) -78.7 W52-W56 S39-S34
     13  577  390 (S35E43 L= 91)  1253    395        2 ( 545/ 260- 630/ 531)  64.5 E49-E36 S46-S25
     14 1283  457 (S40W12 L=146)   903    132        2 (1196/ 406-1368/ 528)  24.8 W05-W18 S42-S35
     15  884  435 (S36E18 L=116)   524    146        0 ( 844/ 386- 918/ 499)  41.2 E22-E14 S39-S31
  

    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