Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1032 1582 (N36E08 L= 76)   941    267        2 ( 979/1458-1069/1666) -54.5 E13-E03 N28-N42
      2  681 1547 (N29E32 L= 52)   776    238        4 ( 634/1476- 752/1624) -32.7 E38-E24 N24-N33
      3  383 1440 (N17E52 L= 32)  2555    467        5 ( 345/1269- 430/1575) -45.0 E62-E43 N07-N25
      4 1647 1473 (N38W42 L=127)   346     50        1 (1625/1449-1671/1497) -33.7 W40-W44 N35-N39
      5 1313 1317 (N22W15 L= 99)   460    220        0 (1283/1218-1348/1422) -67.4 W12-W17 N16-N28
      6 1684 1255 (N23W43 L=128)  1072    276        3 (1613/1132-1747/1365) -49.8 W37-W49 N16-N29
      7 1047 1237 (N14E01 L= 83)   217     88        1 ( 999/1226-1094/1248)  11.3 E04-W01 N12-N14
      8  663 1170 (N05E24 L= 60)   271    128        0 ( 600/1159- 720/1182)  14.0 E28-E20 N03-N06
      9 1701 1113 (N14W45 L=129)   488    172        3 (1669/1072-1721/1166)  71.6 W42-W46 N11-N17
     10 1674 1023 (N08W43 L=128)   297    128        2 (1637/1004-1724/1048)   0.0 W40-W47 N07-N09
     11  716  947 (S08E18 L= 66)   240     95        1 ( 691/ 895- 747/ 997)  74.1 E19-E16 S11-S04
     12 1683  653 (S14W52 L=136)   558    109        1 (1648/ 621-1708/ 675) -26.6 W48-W55 S15-S12
     13  446  415 (S50E44 L= 41)   502    138        3 ( 419/ 390- 471/ 442)  33.7 E48-E39 S52-S46
  

    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