Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1602 1639 (N26W59 L=200)   511     36        0 (1578/1614-1624/1664)   7.1 W55-W63 N25-N27
      2  853 1456 (N31E02 L=138)   204     58        0 ( 825/1431- 878/1477) -53.1 E03-W00 N28-N32
      3  927 1339 (N22W00 L=141)   242     37        1 ( 903/1312- 952/1361) -45.0 E01-W01 N20-N23
      4  187 1270 (N32E63 L= 78)   490     58        0 ( 158/1244- 215/1289)  15.9 E67-E58 N30-N32
      5  259 1232 (N28E52 L= 88)   399     56        1 ( 240/1204- 276/1259) -36.9 E54-E49 N25-N29
      6 1804  906 (S20W52 L=193)   992    206        1 (1718/ 842-1874/ 967)  13.2 W43-W60 S22-S17
      7 1617  928 (S15W35 L=176)   378    102        0 (1573/ 881-1646/ 963)  26.6 W31-W38 S17-S13
      8  490  620 (S12E42 L= 98)  1144    165        2 ( 464/ 531- 524/ 706)  48.0 E47-E37 S17-S07
      9 1707  652 (S35W43 L=183)   326     64        0 (1682/ 633-1730/ 672) -38.7 W40-W46 S36-S32
     10 1456  570 (S34W20 L=161)   833    227        3 (1368/ 536-1573/ 617) -32.0 W13-W30 S39-S29
     11 1600  553 (S39W33 L=174)   292     54        1 (1578/ 532-1622/ 578)  45.0 W30-W35 S40-S37
     12 1229  476 (S36W02 L=143)   903    225        0 (1131/ 409-1309/ 555)  23.2 E06-W08 S38-S31
     13 1079  486 (S32E08 L=133)   623    124        1 (1057/ 429-1111/ 536)  74.1 E10-E04 S35-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