Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1165 1462 (N24W10 L=357)   277    138        0 (1116/1428-1213/1514)  35.5 W06-W13 N21-N27
      2 1741 1292 (N14W51 L= 38)   336     55        1 (1721/1259-1756/1323)  76.0 W49-W52 N11-N15
      3 1007 1247 (N10E01 L=347)   206     44        0 ( 991/1223-1024/1276) -76.0 E01-W00 N08-N12
      4  944 1125 (N03E05 L=343)   378     74        3 ( 910/1087- 968/1156) -53.1 E06-E03 N00-N04
      5  675  878 (S11E22 L=326)   235     36        1 ( 655/ 855- 694/ 899) -33.7 E23-E20 S12-S10
      6  365  786 (S16E46 L=301)   293     71        1 ( 330/ 757- 396/ 807)  18.4 E49-E43 S17-S14
      7  762  676 (S24E18 L=330)   625    227        2 ( 717/ 591- 790/ 777)  85.2 E21-E15 S29-S17
      8  202  717 (S19E67 L=281)   871     74        2 ( 172/ 680- 226/ 756) -90.0 E71-E62 S21-S16
      9  210  640 (S24E70 L=277)   672    100        3 ( 183/ 602- 231/ 673) -68.2 E74-E65 S26-S21
     10  607  498 (S36E33 L=314)  1066    287        1 ( 498/ 455- 743/ 554)  13.5 E45-E20 S38-S32
     11 1487  342 (S48W46 L= 33)  1553    163        3 (1433/ 300-1556/ 404) -15.6 W35-W60 S51-S43
     12 1346  337 (S49W30 L= 17)   568     74        1 (1306/ 313-1380/ 359)   8.1 W25-W33 S51-S47
     13  784  232 (S58E30 L=317)  1182    174        2 ( 710/ 192- 863/ 265)   7.4 E43-E18 S62-S55
  

    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