Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  730 1579 (N17E34 L=187)   269     90        1 ( 699/1543- 755/1603) -31.0 E36-E31 N14-N18
      2  663 1535 (N13E36 L=185)   256     57        2 ( 632/1517- 692/1555)  45.0 E37-E34 N11-N14
      3  381 1480 (N04E55 L=166)   538     87        2 ( 354/1448- 412/1512)  76.0 E57-E53 N02-N06
      4  505 1452 (N05E44 L=177)   443     56        2 ( 482/1424- 531/1474) -11.3 E46-E41 N02-N06
      5 1240 1389 (N19W02 L=223)   336     65        1 (1209/1363-1265/1419)  63.4 W00-W03 N16-N21
      6  246 1266 (S11E59 L=161)  1444    337        7 ( 219/1156- 272/1368) -53.1 E63-E53 S17-S04
      7 1605 1125 (N15W31 L=252)   707    268        2 (1539/1041-1670/1241) -28.3 W24-W37 N12-N19
      8  311 1161 (S16E50 L=171)   436     97        2 ( 270/1113- 339/1198)  80.5 E53-E47 S19-S13
      9  971 1065 (S06E04 L=217)   429    188        0 ( 875/1031-1035/1087)  18.4 E09-W00 S08-S04
     10  778 1018 (S14E14 L=207)   336    154        0 ( 718/ 944- 815/1063) -39.8 E18-E10 S17-S11
     11  927  953 (S13E04 L=217)   204     96        0 ( 868/ 920- 968/ 975)   0.0 E07-W00 S14-S12
     12  709  859 (S24E14 L=206)   302    148        0 ( 634/ 836- 766/ 897)  45.0 E18-E11 S27-S20
     13  447  812 (S34E32 L=188)   555    162        1 ( 377/ 791- 512/ 833)   9.5 E38-E26 S35-S32
     14 1053  655 (S27W13 L=233)   441    182        0 ( 961/ 637-1142/ 687)  20.0 W06-W17 S28-S23
     15 1417  620 (S17W36 L=256)  1252    433        2 (1225/ 585-1588/ 653)  19.8 W23-W48 S22-S13
     16 1702  546 (S12W61 L=282)  1549    298        8 (1669/ 479-1741/ 618) -53.1 W55-W67 S15-S07
     17 1782  526 (S09W73 L=293)   836     94        0 (1758/ 488-1805/ 557) -76.0 W69-W77 S11-S07
     18 1617  455 (S19W59 L=279)  1046    331        1 (1562/ 388-1667/ 518)  -3.4 W50-W67 S21-S16
     19 1414  466 (S26W43 L=264)  1001    309        4 (1271/ 443-1538/ 491)  27.9 W33-W50 S30-S20
     20 1345  323 (S36W48 L=269)   720    208        1 (1258/ 297-1421/ 348)  12.1 W40-W54 S38-S33
  

    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