Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1200 1816 (N51E06 L=194)  1450    243        4 (1163/1745-1252/1875) -86.4 E10-E03 N43-N59
      2  332 1494 (N11E58 L=143)   912    166        4 ( 311/1445- 354/1550) -54.5 E61-E54 N08-N15
      3  480 1479 (N12E44 L=157)   384     92        0 ( 443/1433- 522/1513)  63.4 E45-E41 N08-N14
      4  512 1390 (N07E39 L=162)   313     60        0 ( 491/1360- 543/1418)  63.4 E40-E37 N04-N08
      5 1600 1347 (N24W31 L=232)   807    154        4 (1573/1273-1628/1403) -63.4 W28-W33 N19-N28
      6  875 1346 (N09E15 L=186)   383     72        0 ( 832/1316- 912/1375)   0.0 E17-E11 N07-N11
      7 1857 1231 (N24W55 L=255)  1744    195        3 (1816/1147-1897/1315) -63.4 W50-W59 N19-N29
      8  953 1167 (N00E07 L=194)   252     85        0 ( 900/1151- 997/1188)  21.8 E09-E04 S01-N02
      9  982  925 (S13E01 L=200)  1050    329        0 ( 845/ 786-1063/1073)  70.7 E06-W02 S23-S03
     10 1753  992 (N07W48 L=248)   531    139        1 (1713/ 945-1805/1036) -18.4 W43-W53 N04-N08
     11  467  920 (S22E34 L=167)   897    302        2 ( 346/ 833- 558/1010)  40.9 E43-E28 S28-S15
     12  170  898 (S26E60 L=140)   510    121        0 ( 142/ 882- 202/ 919) -15.9 E63-E56 S26-S24
     13  697  824 (S24E17 L=184)   413     54        1 ( 672/ 785- 720/ 858)  78.7 E18-E15 S26-S21
     14  496  701 (S35E31 L=170)  1122    229        2 ( 410/ 661- 593/ 744)  28.1 E38-E23 S38-S30
     15 1496  570 (S23W41 L=241)  4901   1028        6 (1062/ 481-1865/ 654)  23.2 W14-W78 S38-S10
  

    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