Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  812 1681 (N49W03 L=220)   254     56        0 ( 778/1661- 834/1697) -45.0 W00-W04 N46-N50
      2 1597 1593 (N22W55 L=272)  2075    231        9 (1515/1511-1670/1679)  54.0 W45-W64 N16-N27
      3  614 1631 (N50E16 L=201)   518     84        0 ( 570/1601- 645/1666)  20.6 E20-E12 N48-N52
      4 1293 1614 (N31W34 L=251)  2008    391        3 (1119/1552-1467/1653) -33.0 W21-W44 N22-N35
      5 1670 1530 (N16W58 L=275)   516    118        1 (1647/1485-1723/1558)  10.3 W54-W65 N13-N17
      6 1682 1351 (N06W50 L=267)  1216    247        5 (1562/1297-1760/1415) -37.6 W42-W57 N02-N12
      7 1534 1365 (N11W39 L=256)   251     34        0 (1511/1348-1559/1380)   0.0 W36-W40 N09-N11
      8  205 1255 (N33E58 L=159)   658    107        0 ( 160/1212- 245/1287) -23.2 E66-E52 N29-N35
      9  639 1182 (N20E20 L=197)  1296    415        6 ( 441/1124- 803/1243) -31.3 E33-E10 N13-N27
     10  237 1138 (N25E53 L=164)   342     35        1 ( 216/1119- 255/1160)  26.6 E55-E50 N24-N26
     11  154 1111 (N25E64 L=153)   648     60        0 ( 120/1092- 192/1133) -15.3 E69-E58 N23-N26
     12  996  991 (N02E02 L=215)   175     83        0 ( 971/ 951-1012/1019)  56.3 E03-E01 N00-N03
     13  346  961 (N13E44 L=173)   279     72        1 ( 320/ 934- 370/1005) -76.0 E45-E42 N11-N15
     14 1498  957 (S11W26 L=243)   286     74        1 (1481/ 926-1524/1001) -76.0 W25-W27 S13-S08
     15  908  730 (S11E13 L=204)   372    121        0 ( 889/ 676- 945/ 785)  50.2 E14-E09 S14-S08
     16 1887  752 (S34W63 L=280)  1034    122        0 (1831/ 724-1943/ 774)  -6.6 W54-W80 S36-S32
     17 1519  654 (S30W23 L=240)   784    212        0 (1415/ 598-1578/ 725)  17.1 W15-W28 S32-S26
     18  882  449 (S28E23 L=194)  1614    469        3 ( 707/ 371-1088/ 563)   5.4 E38-E06 S29-S24
     19  464  502 (S16E50 L=167)   352     21        0 ( 442/ 477- 481/ 525)  71.6 E51-E48 S17-S14
     20 1234  338 (S45E04 L=213)  1572    332        1 (1087/ 298-1368/ 430)   2.5 E15-W08 S47-S41
  

    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