Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  725 1814 (N42E43 L= 92)  1376    122        1 ( 674/1764- 771/1852) -14.0 E52-E36 N37-N45
      2  987 1682 (N35E15 L=121)   262     36        1 ( 967/1662-1011/1704) -14.0 E16-E12 N33-N36
      3 1144 1663 (N36E03 L=132)   289     33        1 (1124/1635-1158/1690) -76.0 E04-E01 N34-N38
      4  476 1643 (N26E52 L= 83)   598     79        2 ( 441/1606- 508/1673) -21.8 E57-E47 N23-N27
      5 1519 1639 (N43W28 L=163)   568     50        1 (1499/1606-1548/1667)  50.2 W25-W31 N39-N45
      6 1642 1329 (N23W37 L=172)  1183    302        0 (1550/1224-1711/1457) -42.7 W29-W42 N17-N29
      7 1869 1329 (N29W63 L=198)   841     90        0 (1830/1305-1906/1352)  12.1 W56-W70 N26-N30
      8  583 1060 (S10E28 L=107)   337     77        1 ( 543/1036- 621/1085)  21.8 E30-E25 S11-S08
      9  111 1002 (S17E74 L= 61)  4361    168        6 (  76/ 910- 164/1072)  60.9 E85-E64 S21-S12
     10 1569 1004 (N02W34 L=169)   320     78        1 (1526/ 985-1601/1033)  36.9 W31-W35 N00-N03
     11 1843  955 (N05W58 L=193)   519     80        1 (1817/ 909-1862/ 988) -33.7 W54-W61 N02-N06
     12  362  900 (S22E43 L= 92)   437    109        1 ( 309/ 867- 404/ 932) -12.5 E48-E39 S23-S19
     13  851  881 (S17E08 L=127)   298     61        1 ( 813/ 860- 879/ 907)  36.9 E10-E06 S18-S15
     14 1557  881 (S06W35 L=170)   224     46        0 (1533/ 859-1581/ 906) -26.6 W33-W37 S06-S04
     15 1493  686 (S18W36 L=171)   353     73        0 (1457/ 656-1524/ 719)  53.1 W34-W37 S20-S15
     16 1533  582 (S23W43 L=178)   532     80        1 (1497/ 558-1580/ 610)  -7.1 W39-W47 S24-S22
     17  580  432 (S51E28 L=107)   637     73        1 ( 553/ 388- 603/ 469) -63.4 E30-E26 S54-S48
     18 1504  448 (S32W48 L=183)   392     80        0 (1474/ 412-1528/ 469) -63.4 W44-W50 S34-S30
     19 1099  329 (S49W23 L=158)   578    167        0 (1024/ 292-1140/ 382)  49.4 W17-W25 S53-S44
  

    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