Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1606 1639 (N26W60 L=200)   490     46        1 (1581/1616-1630/1664)   8.1 W56-W63 N24-N27
      2  856 1462 (N31E02 L=138)   244     66        0 ( 829/1431- 883/1488) -59.0 E03-W00 N28-N33
      3  936 1341 (N22W01 L=141)   200     38        2 ( 916/1317- 959/1360) -63.4 W00-W02 N20-N23
      4  188 1268 (N31E62 L= 78)   548     67        0 ( 162/1237- 222/1289)  20.6 E66-E57 N29-N32
      5  260 1230 (N28E52 L= 88)   357     56        2 ( 236/1206- 279/1259) -45.0 E54-E49 N25-N29
      6  691  969 (N05E21 L=119)   191     42        0 ( 665/ 950- 718/ 988)  14.0 E22-E18 N03-N05
      7 1800  900 (S21W51 L=191)   964    195        2 (1718/ 843-1870/ 967)  13.2 W43-W60 S22-S17
      8 1624  931 (S15W36 L=176)   412     90        0 (1590/ 890-1652/ 966)  26.6 W32-W38 S16-S13
      9  497  624 (S12E42 L= 98)  1116    164        3 ( 469/ 535- 533/ 705)  48.0 E47-E37 S17-S07
     10 1709  652 (S35W43 L=183)   337     41        1 (1688/ 633-1733/ 676) -38.7 W41-W46 S36-S32
     11 1461  572 (S34W21 L=161)   863    231        3 (1365/ 537-1572/ 618) -27.9 W13-W30 S39-S29
     12 1603  552 (S39W33 L=173)   329     67        1 (1582/ 528-1631/ 581)  26.6 W31-W35 S40-S37
     13 1235  478 (S36W03 L=143)   854    258        0 (1132/ 410-1324/ 556)  20.6 E06-W10 S38-S31
     14 1086  488 (S32E07 L=133)   605    121        1 (1067/ 432-1118/ 536)  74.1 E09-E04 S36-S28
  

    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