Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1154 1727 (N42W35 L=132)   538    155        2 (1087/1691-1220/1763) -10.3 W29-W41 N40-N43
      2 1165 1488 (N27W22 L=120)   535    226        2 (1072/1449-1279/1536)  -7.6 W15-W30 N25-N28
      3 1512 1476 (N16W43 L=141)   896    246        0 (1415/1455-1619/1516) -33.7 W38-W51 N12-N20
      4  877 1493 (N36W05 L=102)   271    110        1 ( 828/1473- 935/1510) -15.9 W01-W08 N34-N36
      5 1850 1394 (N01W72 L=169)   845    198        1 (1825/1373-1888/1410)  -3.8 W67-W82 N00-N01
      6 1386 1375 (N14W31 L=128)   338     59        2 (1358/1352-1425/1401) -45.0 W29-W33 N12-N16
      7 1861 1154 (S12W60 L=157)  1844    338        5 (1826/1001-1891/1281)  66.4 W55-W65 S21-S05
      8 1221 1054 (N02W12 L=109)   228     77        1 (1181/1040-1264/1072) -36.9 W09-W13 N00-N03
      9  346  962 (N18E44 L= 53)   792    221        3 ( 288/ 915- 433/1013) -32.5 E48-E37 N14-N21
     10 1689  900 (S20W37 L=135)  1113    260        3 (1621/ 797-1730/1000) -78.7 W34-W40 S27-S12
     11 1178  658 (S19E01 L= 96)   397    159        0 (1151/ 623-1216/ 698) -90.0 E03-W01 S21-S16
     12 1331  516 (S33W04 L=102)  1174    272        0 (1294/ 442-1363/ 602)  52.1 W00-W07 S37-S27
     13  776  405 (S24E34 L= 64)  1015    232        2 ( 739/ 316- 828/ 487)  59.7 E37-E28 S31-S19
     14 1496  396 (S49W15 L=112)  2605    395        5 (1397/ 334-1593/ 476)   3.0 W05-W24 S54-S42
     15  514  329 (S23E57 L= 40)  1800    276        2 ( 485/ 261- 557/ 408)  47.7 E64-E53 S28-S17
  

    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