Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1040 1834 (N48E20 L=195)  1334    267        2 ( 995/1762-1080/1905) -69.4 E23-E16 N41-N57
      2 1408 1424 (N25W17 L=231)   763    141        2 (1368/1354-1446/1481)  68.2 W14-W19 N19-N29
      3  334 1391 (N05E53 L=161)   662    148        1 ( 309/1319- 375/1460)  83.7 E55-E52 N00-N09
      4  664 1400 (N10E29 L=186)   376    113        2 ( 614/1380- 720/1422)  26.6 E31-E25 N08-N11
      5 1710 1296 (N24W41 L=255)  1189    161        1 (1664/1213-1755/1370) -52.1 W36-W45 N19-N28
      6  689 1233 (N00E23 L=191)   265     88        0 ( 642/1209- 737/1258)  21.8 E26-E20 S01-N02
      7 1914 1081 (N16W63 L=278)  1126    178        2 (1895/ 986-1928/1159) -84.8 W61-W65 N10-N21
      8  756  984 (S13E15 L=199)  1042    335        3 ( 648/ 840- 842/1144)  74.1 E20-E12 S23-S02
      9 1582 1062 (N06W33 L=248)   385     74        0 (1543/1024-1615/1107) -15.9 W29-W36 N04-N08
     10  310  952 (S21E47 L=168)   863    246        0 ( 238/ 865- 370/1046)  50.2 E53-E42 S27-S15
     11  398  781 (S31E39 L=176)  1304    437        0 ( 272/ 696- 522/ 903)  36.0 E51-E29 S37-S21
     12 1868  876 (N03W63 L=278)   460     66        2 (1845/ 851-1885/ 899) -45.0 W59-W65 N01-N04
     13 1667  674 (S13W50 L=265)  4036    966       14 (1361/ 607-1869/ 731)  10.2 W27-W77 S19-S05
     14 1292  638 (S24W25 L=239)   442    122        1 (1219/ 603-1355/ 685)  21.2 W20-W28 S27-S20
  

    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