Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1414 1603 (N29W37 L= 91)   883    200        2 (1390/1516-1437/1701)  47.5 W32-W44 N23-N35
      2 1064 1544 (N31W11 L= 65)   462    133        0 (1001/1524-1139/1559) -26.6 W06-W15 N28-N32
      3 1541 1504 (N21W43 L= 96)   281     56        0 (1507/1488-1573/1518) -26.6 W40-W45 N19-N22
      4 1698 1453 (N16W54 L=108)   866    108        3 (1664/1413-1734/1506) -80.5 W50-W56 N12-N18
      5 1777 1376 (N10W58 L=112)   841    116        3 (1740/1324-1816/1424)  26.6 W53-W64 N07-N12
      6 1658 1383 (N12W48 L=101)   283     43        0 (1636/1359-1678/1412) -56.3 W46-W49 N10-N14
      7 1198 1294 (N13W14 L= 68)   198     73        0 (1154/1281-1234/1309)   0.0 W11-W16 N12-N13
      8  605 1074 (N09E24 L= 29)   296     90        0 ( 566/1037- 642/1103) -45.0 E26-E22 N06-N10
      9 1108 1034 (S00W05 L= 59)   321    125        0 (1053/ 994-1168/1057)   0.0 W01-W08 S02-N00
     10 1251  917 (S09W12 L= 65)   534    233        1 (1217/ 811-1271/1018)  85.6 W10-W13 S15-S02
     11 1489  956 (S10W27 L= 81)   460    167        0 (1419/ 931-1539/1003)   7.1 W22-W30 S11-S08
     12  635  874 (S03E25 L= 28)  1300    398        4 ( 508/ 701- 723/ 985) -64.8 E32-E22 S14-N04
     13  397  760 (S06E44 L=  9)  1908    178        8 ( 243/ 680- 561/ 826)  -2.1 E59-E31 S09-S02
     14  395  697 (S10E46 L=  8)   333     92        1 ( 373/ 668- 418/ 739)  45.0 E47-E43 S11-S07
     15  482  711 (S10E39 L= 15)   387     43        1 ( 453/ 685- 514/ 731) -26.6 E41-E36 S12-S09
     16  295  629 (S13E58 L=356)  2875    286        7 ( 197/ 549- 372/ 710) -48.4 E69-E48 S17-S08
     17 1183  624 (S26W04 L= 58)  1100    256        1 (1078/ 558-1291/ 700)  23.2 E03-W11 S28-S22
     18  773  479 (S29E26 L= 28)  1924    435        3 ( 707/ 315- 818/ 686)  56.3 E38-E21 S39-S15
     19  339  494 (S21E61 L=352)  2033    201        2 ( 281/ 417- 410/ 568)  14.5 E81-E50 S25-S17
     20  612  279 (S40E51 L=  3)   883    118        4 ( 570/ 249- 660/ 312)   7.6 E59-E44 S42-S38
  

    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