Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1290 1734 (N39W43 L=201)  1153    206        2 (1191/1681-1384/1774)  -2.6 W31-W53 N36-N39
      2 1454 1549 (N23W42 L=201)   297     92        0 (1420/1522-1497/1578) -68.2 W40-W44 N20-N25
      3  523 1347 (N33E26 L=132)   914    278        2 ( 396/1327- 655/1365) -15.3 E37-E15 N30-N36
      4 1143 1283 (N15W13 L=171)   228     69        0 (1103/1266-1180/1295) -36.9 W10-W14 N13-N16
      5  725 1244 (N22E13 L=145)   269     64        0 ( 692/1226- 756/1261)   0.0 E15-E10 N21-N23
      6 1765 1055 (S13W49 L=207)  1766    306        4 (1697/ 972-1830/1146)  28.3 W44-W57 S18-S06
      7  288 1008 (N17E50 L=109)  1657    309        2 ( 153/ 951- 393/1097)   4.2 E66-E39 N14-N20
      8 1851 1037 (S16W58 L=216)   685     68        2 (1822/1008-1876/1068)  31.0 W54-W61 S17-S14
      9 1592  827 (S22W31 L=190)   459    130        0 (1575/ 776-1606/ 898)  74.1 W29-W32 S24-S17
     10 1417  738 (S22W17 L=176)   760    206        0 (1351/ 652-1469/ 826)  36.0 W11-W22 S26-S18
     11 1207  657 (S22W02 L=161)   575    163        1 (1182/ 573-1227/ 732)  58.0 E01-W05 S27-S17
     12 1443  613 (S31W17 L=176)   478    134        0 (1388/ 585-1493/ 657)   7.1 W13-W21 S32-S29
     13  852  448 (S27E26 L=133)   439    125        1 ( 820/ 392- 876/ 508)  36.9 E30-E22 S30-S23
     14 1642  458 (S50W37 L=195)   941    128        2 (1579/ 438-1700/ 489) -10.6 W28-W45 S51-S47
  

    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