Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1155 1644 (N44W07 L=263)   619    112        3 (1105/1613-1208/1671)  12.5 W02-W11 N41-N46
      2 1427 1606 (N43W31 L=287)  1650    292        2 (1281/1579-1541/1632)   4.4 W17-W43 N40-N45
      3  413 1461 (N26E49 L=207)   867    182        0 ( 355/1399- 467/1536)  68.2 E53-E46 N21-N31
      4 1872 1310 (N23W72 L=328)  1524    100        1 (1838/1260-1896/1359)  63.4 W66-W76 N19-N25
      5 1353 1144 (N11W20 L=277)  1875    424        3 (1293/ 957-1390/1328) -79.7 W16-W22 N00-N22
      6  623 1102 (N05E26 L=231)  1259    382        1 ( 571/ 963- 669/1276) -74.5 E31-E22 S03-N15
      7 1823 1254 (N19W61 L=318)   412     10        0 (1802/1238-1842/1272)  11.3 W58-W63 N18-N20
      8  802 1158 (N09E14 L=242)   406    150        2 ( 779/1096- 828/1222) -82.9 E16-E12 N05-N13
      9  269  907 (S09E53 L=203)   753    148        0 ( 248/ 843- 293/ 980) -77.5 E55-E51 S13-S04
     10  885  761 (S14E07 L=249)  1261    400        2 ( 802/ 620- 931/ 937)  74.1 E12-E04 S24-S03
     11 1510  635 (S20W35 L=292)   291     75        1 (1486/ 610-1548/ 659) -21.8 W33-W38 S21-S18
     12  818  537 (S30E12 L=245)   368     76        1 ( 796/ 498- 842/ 580) -71.6 E13-E10 S32-S26
     13 1231  296 (S47W24 L=280)   338     34        0 (1209/ 274-1252/ 321)  76.0 W22-W25 S48-S44
     14  674  261 (S55E32 L=224)  1652    167        3 ( 610/ 226- 746/ 293)   0.0 E42-E22 S59-S51
     15  790  268 (S53E18 L=238)   354     23        0 ( 771/ 252- 813/ 286) -26.6 E20-E15 S54-S50
  

    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