Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1310 1719 (N48W38 L= 47)   442     72        0 (1274/1686-1337/1744) -78.7 W35-W40 N44-N50
      2 1243 1615 (N41W25 L= 35)   445     77        1 (1208/1575-1272/1645) -71.6 W23-W27 N37-N43
      3 1690 1486 (N25W59 L= 69)   754     99        0 (1642/1452-1723/1513) -39.8 W54-W62 N22-N27
      4  336 1424 (N35E55 L=315)   528     84        2 ( 302/1396- 373/1451) -15.3 E60-E49 N33-N37
      5 1035 1409 (N29W05 L= 14)   317    138        0 ( 978/1379-1098/1433) -29.7 W00-W08 N26-N31
      6 1566 1072 (N02W35 L= 45)   511    128        0 (1526/1028-1597/1133)  39.8 W32-W38 N00-N05
      7 1253 1054 (N05W14 L= 24)   270     74        1 (1225/1013-1282/1086)  53.1 W12-W16 N02-N06
      8 1935 1034 (S06W76 L= 86)   857     54        1 (1916/1009-1951/1067)  23.2 W71-W82 S08-S04
      9 1709  787 (S17W46 L= 55)   554    151        1 (1673/ 744-1731/ 825)  68.2 W42-W48 S19-S14
     10  987  698 (S14E05 L=  4)   411    189        2 ( 935/ 655-1044/ 749) -60.3 E08-E01 S17-S10
     11 1273  557 (S27W12 L= 22)  1667    607        1 (1088/ 424-1535/ 732)  25.1 E01-W31 S35-S18
     12 1099  647 (S19W01 L= 11)   471    150        0 (1056/ 599-1126/ 712)  74.1 E02-W02 S21-S14
     13  395  642 (S14E48 L=321)   828    199        1 ( 354/ 564- 460/ 711) -60.9 E51-E44 S19-S09
     14  489  647 (S14E40 L=329)   590    152        1 ( 433/ 616- 534/ 685) -14.0 E44-E36 S16-S11
     15  718  613 (S18E24 L=345)   298     80        2 ( 684/ 592- 746/ 638) -14.0 E26-E22 S19-S16
     16 1589  591 (S29W37 L= 47)   351     68        0 (1553/ 576-1628/ 605) -14.0 W33-W41 S30-S27
     17  791  529 (S24E21 L=349)   398    104        0 ( 768/ 484- 821/ 575)  45.0 E23-E17 S27-S21
     18 1256  421 (S37W11 L= 20)   583    173        2 (1176/ 403-1334/ 449)  -4.4 W04-W17 S38-S35
     19  807  357 (S37E25 L=345)   541    112        0 ( 754/ 342- 865/ 370)  -6.3 E29-E19 S38-S35
     20  916  291 (S44E19 L=351)  1475    195        1 ( 866/ 221- 984/ 347)  36.3 E26-E11 S51-S39
  

    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