Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  763 1876 (N41E50 L=179)   913    265        0 ( 746/1826- 782/1931) -38.2 E58-E44 N36-N47
      2  585 1507 (N10E39 L=190)  1163    349        2 ( 511/1355- 668/1651) -87.3 E42-E36 N00-N21
      3 1320 1303 (N16W10 L=239)  1286    272        2 (1268/1181-1367/1447) -47.3 W03-W15 N09-N23
      4 1516 1404 (N28W20 L=249)   277     31        0 (1490/1380-1538/1430) -26.6 W18-W22 N26-N29
      5  664 1339 (N02E29 L=200)  1017    269        1 ( 527/1296- 777/1360)  14.0 E37-E21 N00-N05
      6  820 1200 (S02E16 L=213)  1005    279        0 ( 776/1056- 848/1316) -50.2 E20-E10 S09-N03
      7  257 1273 (S09E58 L=171)   374     67        0 ( 237/1239- 285/1311)  68.2 E59-E56 S11-S06
      8 1816 1135 (N22W49 L=278)   837    120        1 (1789/1068-1834/1192) -56.3 W45-W51 N18-N25
      9  674 1076 (S12E21 L=208)  1517    373        4 ( 563/1012- 787/1134)  39.8 E27-E14 S17-S07
     10 1440 1066 (N06W22 L=251)   707    175        1 (1382/1009-1523/1131) -10.3 W17-W28 N04-N07
     11 1818  875 (N07W56 L=285)  2109    298        4 (1782/ 770-1856/ 996) -35.5 W49-W64 N02-N13
     12 1026  704 (S25W09 L=238)  1110    364        2 ( 841/ 675-1206/ 744)  28.8 E02-W18 S30-S18
     13  495  702 (S39E28 L=201)  1655    396        3 ( 342/ 683- 663/ 729)  16.5 E41-E14 S42-S34
     14 1695  593 (S11W57 L=286)   362     83        1 (1667/ 573-1726/ 608)   8.1 W53-W60 S12-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