Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  688 1830 (N35E56 L=299)   640     63        0 ( 670/1795- 710/1861) -45.0 E59-E51 N31-N37
      2  557 1779 (N28E62 L=293)   572     59        1 ( 518/1762- 586/1792)   0.0 E68-E57 N26-N29
      3 1157 1676 (N36E12 L=343)  1507    282        1 (1067/1566-1235/1759) -24.0 E20-E02 N30-N41
      4  772 1604 (N20E32 L=323)   591    143        0 ( 721/1566- 846/1627)  50.2 E34-E27 N16-N22
      5  586 1476 (N08E39 L=316)   404    104        0 ( 570/1423- 602/1526) -50.2 E41-E35 N05-N11
      6  441 1435 (N03E48 L=307)   682    164        1 ( 415/1360- 465/1501) -53.1 E50-E43 S01-N07
      7 1557 1409 (N31W23 L= 18)  1354    225        1 (1474/1329-1626/1471) -13.0 W16-W29 N26-N33
      8 1218 1271 (N12W04 L=360)   493    127        0 (1192/1210-1253/1327)  90.0 W03-W05 N07-N15
      9 1432 1186 (N13W19 L= 14)   560    261        0 (1366/1081-1505/1281) -31.6 W12-W25 N08-N16
     10  295 1217 (S12E53 L=302)   337     87        0 ( 263/1198- 343/1232)  14.0 E56-E48 S13-S11
     11  253 1147 (S17E56 L=299)   318     55        1 ( 234/1117- 272/1174)  53.1 E57-E54 S19-S15
     12  434 1032 (S21E37 L=318)   295     86        0 ( 398/1018- 481/1051)  26.6 E40-E33 S22-S18
     13  438  791 (S35E34 L=321)   564    157        2 ( 371/ 760- 506/ 835)  30.3 E40-E28 S38-S30
     14 1648  609 (S11W53 L= 48)   856    203        2 (1559/ 556-1726/ 658)  51.3 W48-W57 S16-S06
     15 1580  632 (S12W46 L= 41)   315     89        0 (1535/ 615-1622/ 656)  45.0 W43-W48 S14-S09
     16 1188  563 (S28W24 L= 19)   902    195        2 (1107/ 524-1275/ 610)  52.1 W20-W27 S32-S23
     17 1756  518 (S12W71 L= 66)  2138    183        7 (1711/ 459-1798/ 576)  90.0 W63-W79 S15-S07
     18 1525  416 (S25W56 L= 51)   673    144        1 (1446/ 397-1577/ 440)  40.6 W51-W60 S28-S22
     19 1673  398 (S20W74 L= 69)  1011     69        1 (1645/ 365-1707/ 431)   3.0 W66-W85 S21-S19
     20 1021  396 (S44W22 L= 18)   301     48        0 ( 988/ 375-1051/ 412)   9.5 W19-W25 S44-S42
     21 1636  356 (S24W75 L= 70)   807     92        3 (1587/ 340-1673/ 371)  14.0 W68-W84 S25-S21
  

    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